diff --git a/iris_staging/heap_lang/interpreter.v b/iris_staging/heap_lang/interpreter.v index 36b2f4b9bbd42d926b93fbfe3c16919620cd6b77..2e773ca47a1bdfe91a51b816c87a60b25e338caa 100644 --- a/iris_staging/heap_lang/interpreter.v +++ b/iris_staging/heap_lang/interpreter.v @@ -151,7 +151,7 @@ Module interp_monad. Proof. by inversion 1. Qed. Lemma mret_inv {A} (v: A) s v' s' : - mret (M := InterpretM) v s = (inl v', s') → v = v' ∧ s = s'. + mret (M:=InterpretM) v s = (inl v', s') → v = v' ∧ s = s'. Proof. by inversion 1. Qed. Lemma interp_bind_inv A B (x: InterpretM A) (f: A → InterpretM B) r s s' : @@ -176,7 +176,7 @@ Module interp_monad. Qed. Lemma interp_fmap_inv {A B} (f: A → B) x s v s' : - (f <$> x) s = (inl v, s') → + (fmap (M:=InterpretM) f x) s = (inl v, s') → ∃ v0, v = f v0 ∧ x s = (inl v0, s'). Proof. rewrite /fmap /interp_fmap.