proposition: Lemma psi_lt_head : forall alpha beta n gamma alpha' beta' n' gamma', [alpha, beta] t2< [alpha', beta'] -> gcons alpha beta n gamma t2< gcons alpha' beta' n' gamma'.
proof: Proof. inversion 1. - constructor 2;auto with T2. - constructor 3;auto with T2. - constructor 4;auto with T2. - constructor 5;auto with T2. - inversion H1. - lt_clean. Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)