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

F_mur_ref_conc: simplify app

parent 2450b8d0
Branches master
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/logrel/F_mu_ref_conc/fundamental_unary.v
+ 1
− 1
View file @ ece3f6fa
......@@ -78,7 +78,7 @@ Section typed_interp.
- (* app *)
smart_wp_bind (AppLCtx (e2.[env_subst vs])) v "#Hv" IHtyped1.
smart_wp_bind (AppRCtx v) w "#Hw" IHtyped2.
iApply wp_mono; [|iApply "Hv"]; auto.
by iApply "Hv".
- (* TLam *)
iApply wp_value.
iAlways; iIntros (τi) "%". iApply wp_pure_step_later; auto; iNext.
......
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