diff options
| author | herbelin | 2002-08-13 16:27:33 +0000 |
|---|---|---|
| committer | herbelin | 2002-08-13 16:27:33 +0000 |
| commit | 469e9f572f2b7ded2b15c3d98f92969df3140208 (patch) | |
| tree | e3368a98ffeb7d109a605e57da07735a94b5ba65 /proofs | |
| parent | 45134de9fd50a1285d75f5891e376eae09fdd20a (diff) | |
Renoncement à distinguer les types "constr" et "types"; nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2964 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index e0b802c3e6..321a7b2ec6 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -46,14 +46,9 @@ let pf_env gls = Global.env_of_context (sig_it gls).evar_hyps let pf_hyps gls = (sig_it gls).evar_hyps let pf_concl gls = (sig_it gls).evar_concl -(* -let pf_untyped_hyps gls = - let sign = Environ.named_context (pf_env gls) in - map_sign_typ (fun x -> body_of_type x) sign -*) let pf_hyps_types gls = let sign = Environ.named_context (pf_env gls) in - List.map (fun (id,_,x) -> (id,body_of_type x)) sign + List.map (fun (id,_,x) -> (id, x)) sign let pf_nth_hyp_id gls n = let (id,c,t) = List.nth (pf_hyps gls) (n-1) in id |