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