Thm* b:. b
Thm* b:. b Prop
Thm* false
Thm* Type
Thm* (A B) Prop
Thm* true
Thm* b:, A:Type, p,q:A. if b p else q fi A