Inductive bool:Set := true:bool | false:bool.
Inductive Tree:Set := Leaf | Node:nat → Tree → Tree → Tree.
Inductive Myst[n:nat]:Set := myst:(p:nat) ((plus p p) = n) → (Myst n).
τ:(Myst(S(S 0)))