fact: Hypotheses (H : forall (a:A)(l:list (ltree A)), Q l -> P (lnode A a l)) (H0 : Q nil) (H1 : forall t:ltree A, P t -> forall l:list (ltree A), Q l -> Q (cons t l)).
imports: ZArith List Arith Zwf Relations Inverse_Image