proposition: Lemma phi_to_psi_3 : forall beta1 beta2 , beta1 <= alpha -> [alpha, [beta1, beta2]] = phi alpha [beta1, beta2].
proof: Proof. intros. fold (F 0). apply phi_to_psi_2. auto with T2. Qed.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo