fact: Definition FStalCorrect (Ar : rArray vM) (Lt : list triplet) (S : State) (res : mbDT) := wellFormedArray Ar -> rArrayState Ar S -> match res with | quatuor Ar' false L T => wellFormedArray Ar' /\ (exists S' : State, stalmarckP S Lt S' /\ rArrayState Ar' S' /\ evalTrace S T S') /\ OlistRz L /\ (forall e : rNat, ~ InRz (rZPlus e) L -> rArrayGet _ Ar' e = rArrayGet _ Ar e) | quatuor Ar' true L T => exists S' : State, stalmarckP S Lt S' /\ contradictory S' /\ evalTrace S T S' end.