diff options
| author | herbelin | 2008-03-30 22:30:44 +0000 |
|---|---|---|
| committer | herbelin | 2008-03-30 22:30:44 +0000 |
| commit | 7944955b892f0ffa70ecf92f83b372cddc5b867b (patch) | |
| tree | 479fc9f009fa1a81490c016956c61d6f7c62896c /tactics | |
| parent | 90e5407fcfc59dce5ea592aeae6195183a2b4ad2 (diff) | |
Modifications diverses et variées :
- Nouvel essai de prise en compte unfold dans apply (unification.ml)
- Correction bug commit précédent (constrintern.ml)
- Correction bug d'explication des evars non résolues (evarutil.ml)
- Fenêtre de query coqide plus large (command_windows.ml)
- Orthographe tauto (tauto.ml4)
- Crédits (ConstructiveEpsilon.v)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10731 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tauto.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tauto.ml4 b/tactics/tauto.ml4 index 3c65fe1592..0207f1fb93 100644 --- a/tactics/tauto.ml4 +++ b/tactics/tauto.ml4 @@ -23,7 +23,7 @@ open Util let assoc_last ist = match List.assoc (Names.id_of_string "X1") ist.lfun with | VConstr c -> c - | _ -> failwith "Tauto: anomaly" + | _ -> failwith "tauto: anomaly" let is_empty ist = if is_empty_type (assoc_last ist) then @@ -165,7 +165,7 @@ let tauto g = try intuition_gen (interp <:tactic<fail>>) g with Refiner.FailError _ | UserError _ -> - errorlabstrm "tauto" [< str "Tauto failed" >] + errorlabstrm "tauto" [< str "tauto failed" >] let default_intuition_tac = interp <:tactic< auto with * >> |