definition Bool [inline] : Type.{1} := Type.{0}

inductive or (A B : Bool) : Bool :=
| or_intro_left  : A → or A B
| or_intro_right : B → or A B

check or
check or_intro_left
check or_rec