# open Fol_not;;
# refine rwh unfold_not 0;;
Rewrite start
----------------------------------------
# 
0 
....main....
[ext] H  A type
====
[ext] H  (A) type

BY rwh unfold_not 0
# 1. [ext] H  (A  False) type

++++++++++
- : unit = ()
# 