Commit 3f8273a4 authored by Robbert Krebbers's avatar Robbert Krebbers

Tactic for solving entailment involving just stars.

parent c9261672
...@@ -117,6 +117,10 @@ Module upred_reflection. Section upred_reflection. ...@@ -117,6 +117,10 @@ Module upred_reflection. Section upred_reflection.
end. end.
End upred_reflection. End upred_reflection.
Tactic Notation "solve_sep_entails" :=
upred_reflection.quote; apply upred_reflection.flatten_entails;
apply (bool_decide_unpack _); vm_compute; exact Logic.I.
Tactic Notation "cancel" constr(Ps) := Tactic Notation "cancel" constr(Ps) :=
upred_reflection.quote; upred_reflection.quote;
match goal with match goal with
Markdown is supported
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