fact: Fixpoint process_eval_rec5 beta ht res l : pres := if l is i :: l1 then let (ht1, res1) := eval alpha beta ht i in if res <= res1 then process_eval_rec5 beta ht1 res l1 else if beta <= res1 then process_eval_rec5 beta ht1 res1 l1 else if res1 <= alpha then (if res1 is edraw then if l1 is _ :: _ then Pres ht1 drawwin else Pres ht1 (esflip res1) else Pres ht1 (esflip res1)) else process_eval_rec5 res1 ht1 res1 l1 else Pres ht (esflip res).
imports: HB(structures) mathcomp(all_ssreflect) mathcomp(all_algebra)