----------------------------------------
* * * * * 
1 1 1 1 0 
....main....
[ext] H; P: Univ; Q: Univ; v: (P  Q)  P; v1: P; v2: P  Q

BY dT 5 thenT trivialT
-----
* * [ext] H; P: Univ; Q: Univ; v: (P  Q)  P; v1: P; v2: P  P

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