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

more implicit Arguments for step_atomic

parent 4fbce512
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
iris/program_logic/language.v
+ 2
− 0
View file @ f8dee71f
...@@ -328,4 +328,6 @@ Section language. ...@@ -328,4 +328,6 @@ Section language.
End language. End language.
Global Arguments step_atomic {Λ ρ1 κ ρ2}.
Notation pure_steps_tp := (Forall2 (rtc pure_step)). Notation pure_steps_tp := (Forall2 (rtc pure_step)).
iris/program_logic/total_adequacy.v
+ 1
− 1
View file @ f8dee71f
...@@ -67,7 +67,7 @@ Proof. ...@@ -67,7 +67,7 @@ Proof.
apply app_eq_inv in Ht as [(t&?&?)|(t&?&?)]; subst. apply app_eq_inv in Ht as [(t&?&?)|(t&?&?)]; subst.
- destruct t as [|e1' ?]; simplify_eq/=. - destruct t as [|e1' ?]; simplify_eq/=.
+ iMod ("IH2" with "[%] Hσ1") as (n2) "($ & Hσ & IH2 & _)". + iMod ("IH2" with "[%] Hσ1") as (n2) "($ & Hσ & IH2 & _)".
{ by eapply (step_atomic _ _ _ _ _ _ _ _ []). } { by eapply (step_atomic _ _ _ _ _ []). }
iModIntro. iExists n2. iFrame "Hσ". iModIntro. iExists n2. iFrame "Hσ".
rewrite -{2}(left_id_L [] (++) (e2 :: _)). iApply "IH2". rewrite -{2}(left_id_L [] (++) (e2 :: _)). iApply "IH2".
by setoid_rewrite (right_id_L [] (++)). by setoid_rewrite (right_id_L [] (++)).
......
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