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

BY idT
# 1. [ext] H; x: A; J[x]  C[x]

++++++++++
- : unit = ()
# refine rwh unfold_not 2 thenT dT 2;;
Rewrite start
----------------------------------------
# 
0 
....main....
[ext] H; x: A; J[x]  A
====
[ext] H; x: A; J[x]  C[x]

BY rwh unfold_not 2 thenT dT 2
# 1. [ext] H; x: A  False; J[x]  A
# 2. [ext] H; x: A  False; J[x]; v: False  C[x]

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