diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-11 01:25:22 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-11 01:25:22 +0000 |
commit | 20445e418ffee0c0dc1398c80af4a2b75abe9ac3 (patch) | |
tree | c019077ca3898406ef9f251b26dba4ec06d24d2d /kernel/typeops.ml | |
parent | d73ae1a52442841ec8c067de7048db977b299a85 (diff) |
Intégration initiale du Cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@234 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
-rw-r--r-- | kernel/typeops.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 5c2aa643b..9fb263c59 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -110,11 +110,9 @@ let instantiate_lc mis = let lc = mis.mis_mip.mind_lc in instantiate_constr (ids_of_sign hyps) lc (Array.to_list mis.mis_args) -let type_of_constructor env sigma c = - let (sp,i,j,args) = destMutConstruct c in - let mind = DOPN (MutInd (sp,i), args) in - let recmind = check_mrectype_spec env sigma mind in - let mis = lookup_mind_specif recmind env in +let type_of_constructor env sigma ((ind_sp,j),args) = + let mind = DOPN (MutInd ind_sp, args) in + let mis = lookup_mind_specif mind env in check_hyps (basename mis.mis_sp) env sigma (mis.mis_mib.mind_hyps); let specif = instantiate_lc mis in let make_ik k = DOPN (MutInd (mis.mis_sp,k), mis.mis_args) in |