fact: Fixpoint make_htree_aux (h: nat) (start : Z) : Z * htree Z h := match h with | 0 => ((1+ start)%Z, hleaf start) | S h' => let p := make_htree_aux h' (1+start)%Z in let q := make_htree_aux h' (fst p) in (fst q, hnode start (snd p) (snd q)) end.
imports: ZArith