diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tauto.ml4 | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 56f7607235..7f29b4358c 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -109,7 +109,6 @@ let rec tauto_intuit t_reduce t_solver ist = $t_solver ) >> -(* let unfold_not_iff = function | None -> interp <:tactic<Unfold not iff>> | Some id -> @@ -119,19 +118,6 @@ let unfold_not_iff = function let reduction_not_iff = Tacticals.onAllClauses (fun ido -> unfold_not_iff ido) let t_reduction_not_iff = valueIn (VTactic reduction_not_iff) -*) - -let reduction_not_iff ist = - match ist.goalopt with - | None -> anomaly "reduction_not_iff" - | Some gl -> - List.fold_right - (fun id tac -> - let id = nvar id in <:tactic<Unfold not iff in $id; $tac>>) - (Tacmach.pf_ids_of_hyps gl) - <:tactic<Unfold not iff>> - -let t_reduction_not_iff = tacticIn reduction_not_iff let intuition_gen tac = interp (tacticIn (tauto_intuit t_reduction_not_iff tac)) |