diff options
Diffstat (limited to 'src/Util/SideConditions/Autosolve.v')
| -rw-r--r-- | src/Util/SideConditions/Autosolve.v | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Util/SideConditions/Autosolve.v b/src/Util/SideConditions/Autosolve.v index 9f8eb61de..840d3a592 100644 --- a/src/Util/SideConditions/Autosolve.v +++ b/src/Util/SideConditions/Autosolve.v @@ -5,15 +5,17 @@ Require Import Crypto.Util.SideConditions.ModInvPackage. Require Import Crypto.Util.SideConditions.ReductionPackages. Require Import Crypto.Util.SideConditions.RingPackage. -Ltac autosolve_gen autosolve_tac else_tac := +Ltac autosolve_gen autosolve_tac ring_intros_tac else_tac := CorePackages.preautosolve (); CorePackages.Internal.autosolve ltac:(fun _ => AdmitPackage.autosolve ltac:(fun _ => ModInvPackage.autosolve ltac:(fun _ => ReductionPackages.autosolve autosolve_tac ltac:(fun _ => - RingPackage.autosolve ltac:(fun _ => + RingPackage.autosolve_gen_intros ring_intros_tac ltac:(fun _ => CorePackages.autosolve else_tac ))))). -Ltac autosolve else_tac := - autosolve_gen autosolve else_tac. +Ltac autosolve_gen_intros ring_intros_tac else_tac := + autosolve_gen ltac:(autosolve_gen_intros ring_intros_tac) ring_intros_tac else_tac. + +Ltac autosolve else_tac := autosolve_gen_intros default_ring_intros_tac else_tac. |