Commit c1b44eaa authored by Michael Sammler's avatar Michael Sammler
Browse files

fast bailout for normalize_and_simpl_goal

parent fcdbda03
Pipeline #57425 passed with stage
in 12 minutes and 3 seconds
......@@ -65,6 +65,11 @@ Proof. naive_solver. Qed.
Ltac normalize_and_simpl_goal_step :=
first [
lazymatch goal with
| |- _ _ => split; [splitting_fast_done|]
| _ => splitting_fast_done
end
|
progress normalize_goal; simpl
|
lazymatch goal with
......@@ -86,6 +91,7 @@ Ltac normalize_and_simpl_goal_step :=
| |- ?P -> ?Q =>
lazymatch type of P with
| Prop => first [
assert_is_trivial P; intros _ |
progress normalize_goal_impl |
notypeclasses refine (apply_simpl_impl _ _ _ _ _); [ solve [refine _] |]; simpl;
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