Commit 31321366 authored by Ralf Jung's avatar Ralf Jung
Browse files

demonstrate the folding problem

parent 212b1b02
...@@ -115,4 +115,11 @@ Module LiftingTests. ...@@ -115,4 +115,11 @@ Module LiftingTests.
+ by apply const_intro; omega. + by apply const_intro; omega.
+ done. + done.
Qed. Qed.
Goal E, True wp (Σ:=Σ) E (Let (App Pred (LitNat 42)) (App Pred (Var 0))) (λ v, (v = LitNatV 40)).
intros E. rewrite -wp_let. rewrite -Pred_spec -!later_intro.
asimpl. (* TODO RJ: Can we somehow make it so that Pred gets folded again? *)
rewrite -Pred_spec -later_intro. by apply const_intro.
End LiftingTests. End LiftingTests.
Supports Markdown
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