diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 09:47:32 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-01-11 09:47:32 +0000 |
| commit | dcaefd4a668617504aaf335ed346598b03a80ba1 (patch) | |
| tree | 9b97ca322252777d101152452193d0a7c8537e2e /toplevel/fhimsg.ml | |
| parent | 88d15de0cc467368dc71851e995d82093f9692ca (diff) | |
Restructuration et simplification des fonctions d'affichage, de détypage
et d'"externalisation"; standardisation du nom des fonctions d'affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7837 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/fhimsg.ml')
| -rw-r--r-- | toplevel/fhimsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/fhimsg.ml b/toplevel/fhimsg.ml index dd5160f76..91e77f495 100644 --- a/toplevel/fhimsg.ml +++ b/toplevel/fhimsg.ml @@ -231,7 +231,7 @@ let explain_ill_formed_rec_body k ctx err names i vdefs = | RecCallInCasePred c -> (str "Not allowed recursive call in the type of cases in") | NotGuardedForm c -> - str "Sub-expression " ++ prterm_env ctx c ++ spc() ++ + str "Sub-expression " ++ pr_lconstr_env ctx c ++ spc() ++ str "not in guarded form (should be a constructor, Cases or CoFix)" in let pvd = P.pr_term k ctx vdefs.(i) in |