diff options
| author | letouzey | 2002-12-04 12:57:12 +0000 |
|---|---|---|
| committer | letouzey | 2002-12-04 12:57:12 +0000 |
| commit | 0929adb7a1bb4918123609db38b2e30cb1dcb19e (patch) | |
| tree | 8e3cd25571853b8417428cdac865912eebf5dbe0 /kernel/subtyping.ml | |
| parent | 161bf6d64ebcaf53ee1a15f07f33a6ffc93854ef (diff) | |
suppression du champ mind_singl inutilisé dans mutual_inductive_body
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3373 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 0e24da5876..bf53c69658 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -132,11 +132,6 @@ let check_inductive cst env msid1 l info1 mib2 spec2 = in if kn1 <> kn2 then error () end; - let cst = match mib1.mind_singl, mib2.mind_singl with - | None, None -> cst - | Some c1, Some c2 -> check_conv cst conv env c1 c2 - | _ -> error () - in (* we first check simple things *) let cst = array_fold_left2 check_packet cst mib1.mind_packets mib2.mind_packets |