fact: Definition oneStateAll (S : State) (a b : rNat) := oneState S (rZPlus a) (rZPlus b) + oneState S (rZPlus a) (rZMinus b) + (oneState S (rZMinus a) (rZPlus b) + oneState S (rZMinus a) (rZMinus b)).
imports: Stalmarck(state) Coq(Arith) Stalmarck(stateDec) Coq(Inverse_Image) Coq(Compare) Coq(Relation_Definitions)