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

reference the coq bug for the idtac weirdness

parent 8cf16088
No related branches found
No related tags found
No related merge requests found
...@@ -119,12 +119,13 @@ Ltac wp_finish := ...@@ -119,12 +119,13 @@ Ltac wp_finish :=
Tactic Notation "wp_rec" ">" := Tactic Notation "wp_rec" ">" :=
u_löb ltac:((* Find the redex and apply wp_rec *) u_löb ltac:((* Find the redex and apply wp_rec *)
idtac; (* FIXME WTF without this, it matches the goal before executing u_löb ?!? *) idtac; (* <https://coq.inria.fr/bugs/show_bug.cgi?id=4584> *)
lazymatch goal with lazymatch goal with
| |- _ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => | |- _ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' =>
match eval cbv in e' with match eval cbv in e' with
| App (Rec _ _ _) _ => | App (Rec _ _ _) _ =>
wp_bind K; etrans; [|eapply wp_rec; reflexivity]; wp_finish wp_bind K; etrans; [|eapply wp_rec; reflexivity];
wp_finish
end) end)
end). end).
Tactic Notation "wp_rec" := wp_rec>; wp_strip_later. Tactic Notation "wp_rec" := wp_rec>; wp_strip_later.
......
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