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

wp_app: remove commented-out tactics

parent a199e3f7
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -33,9 +33,7 @@ Proof. ...@@ -33,9 +33,7 @@ Proof.
rewrite big_sepL_app. iDestruct "Hel" as "[Hvl Hel]". rewrite big_sepL_app. iDestruct "Hel" as "[Hvl Hel]".
iAssert ([ list] y [], Q y)%I with "[Hvl]" as "Hvl". iAssert ([ list] y [], Q y)%I with "[Hvl]" as "Hvl".
{ by rewrite big_sepL_nil. } { by rewrite big_sepL_nil. }
(*assert (length ((of_val <$> ([] : list val)) ++ el) = length el) as Hlen by reflexivity.*) remember [] as vl. clear Heqvl. iInduction el as [|e el] "IH" forall (vl).
remember [] as vl. clear Heqvl. (*remember (length el) as n. clear Heqn.*)
iInduction el as [|e el] "IH" forall (vl).
- rewrite app_nil_r. by iApply "HΦ". - rewrite app_nil_r. by iApply "HΦ".
- destruct Hf as [vf Hf]. set (K := AppRCtx vf vl el). - destruct Hf as [vf Hf]. set (K := AppRCtx vf vl el).
rewrite (_ : App f ((of_val <$> vl) ++ e :: el) = fill_item K e); last first. rewrite (_ : App f ((of_val <$> vl) ++ e :: el) = fill_item K e); last first.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment