# cd ".../not_intro";;
- : string = "/fol_not/not_intro"
# ls ();;
View item /fol_not/not_intro
----------------------------------------
# 
0 
....main....
[ext] H  A type
[ext] H; x: A  False
====
[ext] H  A

BY idT
# 1. [ext] H  A

++++++++++
- : unit = ()
# refine rwh unfold_not 0 thenT autoT;;
Rewrite start
----------------------------------------
* 
0 
....main....
[ext] H  A type
[ext] H; x: A  False
====
[ext] H  A

BY rwh unfold_not 0 thenT autoT

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