diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-13 16:20:47 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-13 16:20:47 +0000 |
| commit | 45134de9fd50a1285d75f5891e376eae09fdd20a (patch) | |
| tree | 5e80fb25c3065ba1489d513cc09a695fb7da8d51 /toplevel | |
| parent | 5c668276b37f09077231c314b03254df6dce3c48 (diff) | |
Renoncement à distinguer les types "constr" et "types"; nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2963 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/discharge.ml | 2 | ||||
| -rw-r--r-- | toplevel/himsg.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 93277300b..26cf3083c 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -209,7 +209,7 @@ let process_object oldenv olddir full_olddir newdir match c with | None -> SectionLocalAssum - (expmod_constr oldenv work_alist (body_of_type t)) + (expmod_constr oldenv work_alist t) | Some body -> SectionLocalDef (expmod_constr oldenv work_alist body) diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 82991495d..a64c3b800 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -169,12 +169,12 @@ let explain_cant_apply_not_functional ctx rator randl = let ctx = make_all_name_different ctx in (* let pe = pr_ne_context_of (str"in environment") ctx in*) let pr = prterm_env ctx rator.uj_val in - let prt = prterm_env ctx (body_of_type rator.uj_type) in + let prt = prterm_env ctx rator.uj_type in let term_string = if List.length randl > 1 then "terms" else "term" in let appl = prlist_with_sep pr_fnl (fun c -> let pc = prterm_env ctx c.uj_val in - let pct = prterm_env ctx (body_of_type c.uj_type) in + let pct = prterm_env ctx c.uj_type in hov 2 (pc ++ spc () ++ str": " ++ pct)) randl in str"Illegal application (Non-functional construction): " ++ @@ -248,7 +248,7 @@ let explain_ill_formed_rec_body ctx err names i vdefs = let explain_ill_typed_rec_body ctx i names vdefj vargs = let pvd,pvdt = prjudge_env ctx (vdefj.(i)) in - let pv = prterm_env ctx (body_of_type vargs.(i)) in + let pv = prterm_env ctx vargs.(i) in str"The " ++ (if Array.length vdefj = 1 then mt () else int (i+1) ++ str "-th") ++ str"recursive definition" ++ spc () ++ pvd ++ spc () ++ |