diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:48:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 10:48:37 +0000 |
| commit | 32170384190168856efeac5bcf90edf1170b54d6 (patch) | |
| tree | 0ea86b672df93d997fa1cab70b678ea7abdcf171 /toplevel/himsg.ml | |
| parent | 1e5182e9d5c29ae9adeed20dae32969785758809 (diff) | |
Nouveau modèle d'analyse syntaxique et d'interprétation des tactiques et commandes vernaculaires (cf dev/changements.txt pour plus de précisions)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2722 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/himsg.ml')
| -rw-r--r-- | toplevel/himsg.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 4041d311c..c2892a74b 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -381,10 +381,6 @@ let explain_refiner_cannot_generalize ty = let explain_refiner_not_well_typed c = str"The term " ++ prterm c ++ str" is not well-typed" -let explain_refiner_bad_tactic_args s l = - str "Internal tactic " ++ str s ++ str " cannot be applied to " ++ - Tacmach.pr_tactic (s,l) - let explain_intro_needs_product () = str "Introduction tactics needs products" @@ -404,7 +400,6 @@ let explain_refiner_error = function | CannotUnify (m,n) -> explain_refiner_cannot_unify m n | CannotGeneralize ty -> explain_refiner_cannot_generalize ty | NotWellTyped c -> explain_refiner_not_well_typed c - | BadTacticArgs (s,l) -> explain_refiner_bad_tactic_args s l | IntroNeedsProduct -> explain_intro_needs_product () | DoesNotOccurIn (c,hyp) -> explain_does_not_occur_in c hyp | NonLinearProof c -> explain_non_linear_proof c |