proposition: Lemma R5 : trace_to (O2H.iota zero) (interval k (Nat.pred (Nat.pred l))) (O2H.iota (cnf alpha)).
proof: Proof. rewrite <- unshift_interval_pred. - apply R4. - unfold l; apply Nat.lt_le_trans with (S k). + lia. + specialize (L_ge_S alpha Halpha (S k)); lia. Qed.
imports: hydras(L_alpha) hydras(Hydra_Lemmas Epsilon0_Needed_Free Epsilon0_Needed_Std Hydra_Termination O2H)