fact: Axiom put_method_R : forall n s1 s2 k v1 v2, RState _ _ R s1 s2 -> R v1 v2 -> let (s1', u1) := put_method _ n s1 k v1 in let (s2', u2) := put_method _ n s2 k v2 in RState _ _ R s1' s2' /\ RUpdate _ _ R u1 u2.
imports: Coq(FunctionalExtensionality Arith Lia) Coq(Arith.Peano_dec Arith.Compare_dec) Coq(Relations.Relation_Operators) Coq(List) Chapar(Predefs)