proposition: Lemma phi_to_psi_3 : forall beta1 beta2 , beta1 t2<= alpha -> [alpha, [beta1, beta2]] = phi alpha [beta1, beta2].
proof: Proof. intros; fold (fin 0); apply phi_to_psi_2; auto with T2. 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)