Skip to content
Snippets Groups Projects
Commit e1c5e026 authored by Ralf Jung's avatar Ralf Jung
Browse files

disambiguate an mret 

Thanks to Paolo G. Giarrusso
parent 2959900d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
iris_staging/heap_lang/interpreter.v
+ 1
− 1
View file @ e1c5e026
...@@ -151,7 +151,7 @@ Module interp_monad. ...@@ -151,7 +151,7 @@ Module interp_monad.
Proof. by inversion 1. Qed. Proof. by inversion 1. Qed.
Lemma mret_inv {A} (v: A) s v' s' : Lemma mret_inv {A} (v: A) s v' s' :
mret 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. Proof. by inversion 1. Qed.
Lemma interp_bind_inv A B (x: InterpretM A) (f: A → InterpretM B) r s s' : Lemma interp_bind_inv A B (x: InterpretM A) (f: A → InterpretM B) r s s' :
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment