Skip to content
Snippets Groups Projects
Commit 1595e35f authored by Janno's avatar Janno Committed by Robbert Krebbers
Browse files

Avoid conversion after only reducing goal.

parent d5b0ff9a
No related branches found
No related tags found
No related merge requests found
...@@ -20,7 +20,7 @@ Declare Reduction pm_eval := cbv [ ...@@ -20,7 +20,7 @@ Declare Reduction pm_eval := cbv [
Ltac pm_eval t := Ltac pm_eval t :=
eval pm_eval in t. eval pm_eval in t.
Ltac pm_reduce := Ltac pm_reduce :=
match goal with |- ?u => let v := pm_eval u in change v end. match goal with |- ?u => let v := pm_eval u in convert_concl_no_check v end.
Ltac pm_reflexivity := pm_reduce; exact eq_refl. Ltac pm_reflexivity := pm_reduce; exact eq_refl.
(** Called by many tactics for redexes that are created by instantiation. (** Called by many tactics for redexes that are created by instantiation.
...@@ -34,4 +34,4 @@ Declare Reduction pm_prettify := cbn [ ...@@ -34,4 +34,4 @@ Declare Reduction pm_prettify := cbn [
bi_tforall bi_texist bi_tforall bi_texist
]. ].
Ltac pm_prettify := Ltac pm_prettify :=
match goal with |- ?u => let v := eval pm_prettify in u in change v end. match goal with |- ?u => let v := eval pm_prettify in u in convert_concl_no_check v end.
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