proposition: Lemma battle_length_std: battle_length standard k (iota (cnf alpha)) (l-k)%nat.
proof: Proof. red; generalize L06. replace (l-1)%nat with (Init.Nat.pred (k + (l - k )))%nat; auto. generalize R0; abstract lia. Qed.
imports: hydras(L_alpha) hydras(Hydra_Lemmas Epsilon0_Needed_Free Epsilon0_Needed_Std Hydra_Termination O2H)