diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-23 10:28:00 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-23 18:33:21 +0100 |
| commit | 7fb5a9c518f30298a7a9332f0280c2ca0e690f18 (patch) | |
| tree | ec8d4d1b9062cdac5966706e5a7dc791df53f771 /theories/Init | |
| parent | 33fe6e61ff2f1f8184373ed8fccc403591c4605a (diff) | |
Moving tauto.ml4 to a proper ML file.
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Tauto.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/theories/Init/Tauto.v b/theories/Init/Tauto.v index e0949eb73..1e409607a 100644 --- a/theories/Init/Tauto.v +++ b/theories/Init/Tauto.v @@ -85,14 +85,14 @@ Local Ltac tauto_classical flags := (apply_nnpp || fail "tauto failed"); (tauto_intuitionistic flags || fail "Classical tauto failed"). Local Ltac tauto_gen flags := tauto_intuitionistic flags || tauto_classical flags. -Ltac tauto := with_uniform_flags (fun flags => tauto_gen flags). -Ltac dtauto := with_power_flags (fun flags => tauto_gen flags). +Ltac tauto := with_uniform_flags ltac:(fun flags => tauto_gen flags). +Ltac dtauto := with_power_flags ltac:(fun flags => tauto_gen flags). -Ltac intuition := with_uniform_flags (fun flags => intuition_gen flags ltac:(auto with *)). -Local Ltac intuition_then tac := with_uniform_flags (fun flags => intuition_gen flags tac). +Ltac intuition := with_uniform_flags ltac:(fun flags => intuition_gen flags ltac:(auto with *)). +Local Ltac intuition_then tac := with_uniform_flags ltac:(fun flags => intuition_gen flags tac). -Ltac dintuition := with_power_flags (fun flags => intuition_gen flags ltac:(auto with *)). -Local Ltac dintuition_then tac := with_power_flags (fun flags => intuition_gen flags tac). +Ltac dintuition := with_power_flags ltac:(fun flags => intuition_gen flags ltac:(auto with *)). +Local Ltac dintuition_then tac := with_power_flags ltac:(fun flags => intuition_gen flags tac). Tactic Notation "intuition" := intuition. Tactic Notation "intuition" tactic(t) := intuition_then t. |