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

export solve_vals_cas_compare_safe

parent 9d4b5fb1
No related branches found
No related tags found
No related merge requests found
...@@ -530,7 +530,7 @@ Tactic Notation "wp_store" := ...@@ -530,7 +530,7 @@ Tactic Notation "wp_store" :=
| _ => fail "wp_store: not a 'wp'" | _ => fail "wp_store: not a 'wp'"
end. end.
Local Ltac solve_vals_cas_compare_safe := Ltac solve_vals_cas_compare_safe :=
(* The first branch is for when we have [vals_cas_compare_safe] in the context. (* The first branch is for when we have [vals_cas_compare_safe] in the context.
The other two branches are for when either one of the branches reduces to The other two branches are for when either one of the branches reduces to
[True] or we have it in the context. *) [True] or we have it in the context. *)
......
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