Skip to content
Snippets Groups Projects
Commit 0657f6bf authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Stuck.

parent 741c78cf
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
theories/typing/perm.v
+ 1
− 1
View file @ 0657f6bf
...@@ -118,7 +118,7 @@ Section has_type. ...@@ -118,7 +118,7 @@ Section has_type.
WP ν @ E {{ Φ }}. WP ν @ E {{ Φ }}.
Proof. Proof.
iIntros "H◁ HΦ". setoid_rewrite has_type_value. unfold has_type. iIntros "H◁ HΦ". setoid_rewrite has_type_value. unfold has_type.
destruct (eval_expr ν) eqn:EQν; last by iDestruct "H◁" as "[]". destruct (eval_expr ν) eqn:EQν; last by iDestruct "H◁" as "[]". simpl.
iMod ("HΦ" $! v with "[] H◁") as "HΦ". done. iMod ("HΦ" $! v with "[] H◁") as "HΦ". done.
iInduction ν as [| | |[] e ? [|[]| | | | | | | | | |] _| | | | | | | |] "IH" iInduction ν as [| | |[] e ? [|[]| | | | | | | | | |] _| | | | | | | |] "IH"
forall (Φ v EQν); try done. forall (Φ v EQν); try done.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment