proposition: Theorem eqStateEvalZ : forall (Ar : rArray vM) (S : State) (q : rZ), wellFormedArray Ar -> rArrayState Ar S -> eqStateRz S (evalZ Ar q) q.
proof: Proof. intros Ar S q H' H'0. apply rArrayStateDef2 with (Ar := Ar); auto with stalmarck. apply evalZInv; auto with stalmarck. Qed.
imports: Stalmarck(interState doTriplet)