# up 1;;
...
# down 1;;
----------------------------------------
# # 
0 1 
....main....
[ext] H; x: A; J[x]  A
====
[ext] H; x: A  False; J[x]  A

BY 

++++++++++
- : unit = ()
# refine rwh (foldC << "not"{'A} >> unfold_not) 2;;
----------------------------------------
# # 
1 0 
....main....
[ext] H; x: A; J[x]  A
====
[ext] H; x: A  False; J[x]  A

BY rwh (foldC << "not"{'A} >> unfold_not) 2
# 1. [ext] H; x: A; J[x]  A

++++++++++
- : unit = ()
# down 1;;
----------------------------------------
# # # 
1 0 1 
....main....
[ext] H; x: A; J[x]  A
====
[ext] H; x: A; J[x]  A

BY 

++++++++++
- : unit = ()
# refine nthAssumT 1;;
----------------------------------------
* * * 
1 1 0 
....main....
[ext] H; x: A; J[x]  A
====
[ext] H; x: A; J[x]  A

BY nthAssumT 1

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