# down 1;;
----------------------------------------
# # 
0 1 
....main....
[ext] H  A type
[ext] H  B type
[ext] H  C type
====
[ext] H; v: A  B  C  A type

BY 

++++++++++
- : unit = ()
# open Fol_struct;;
# refine thinT 2 thenT trivialT;;
----------------------------------------
# * 
1 0 
....main....
[ext] H  A type
[ext] H  B type
[ext] H  C type
====
[ext] H; v: A  B  C  A type

BY thinT 2 thenT trivialT

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