Global Notation "a # b" := (Maps.PMap.get b a) (at level 1).

Lemma mem_compatible_add: forall tp i (cnti: containsThread tp i) c pmap vf arg pmap2 m (Hcomp: mem_compatible (addThread (updThread cnti c pmap) vf arg pmap2) m), mem_compatible (updThread cnti c pmap) m.