inductive true : Prop
| intro : true
inductive false : Prop
inductive eq {α : Sort u} (a : α) : α → Prop
| refl : eq a
structure and (a b : Prop) : Prop :=
intro :: (left : a) (right : b)
inductive or (a b : Prop) : Prop
| inl {} (h : a) : or
| inr {} (h : b) : or