diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-03 16:47:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-03 17:07:58 +0200 |
| commit | 6aeda23a14a5a5dfca259fe99a19d7bcb42d1052 (patch) | |
| tree | 564bc776bbf721449769f3ebd88d80110b1a032a /kernel/subtyping.ml | |
| parent | e123ec7621d06cde2b65755bab75b438b9f02664 (diff) | |
Removing a few suspicious functions from the kernel.
These functions were messing with the deferred universe constraints in an
error-prone way, and were only used for printing as of today. We inline
the one used by the printer instead.
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 1bd9d6e49..d3fb4ef58 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -368,8 +368,9 @@ let check_constant cst env mp1 l info1 cb2 spec2 subst1 subst2 = let u1 = inductive_polymorphic_instance mind1 in let arity1,cst1 = constrained_type_of_inductive env ((mind1,mind1.mind_packets.(i)),u1) in - let cst2 = - Declareops.constraints_of_constant (Environ.opaque_tables env) cb2 in + let cst2 = assert false in +(* let cst2 = *) +(* Declareops.constraints_of_constant (Environ.opaque_tables env) cb2 in *) let typ2 = Typeops.type_of_constant_type env cb2.const_type in let cst = Constraint.union cst (Constraint.union cst1 cst2) in let error = NotConvertibleTypeField (env, arity1, typ2) in @@ -384,8 +385,9 @@ let check_constant cst env mp1 l info1 cb2 spec2 subst1 subst2 = if Declareops.constant_has_body cb2 then error DefinitionFieldExpected; let u1 = inductive_polymorphic_instance mind1 in let ty1,cst1 = constrained_type_of_constructor (cstr,u1) (mind1,mind1.mind_packets.(i)) in - let cst2 = - Declareops.constraints_of_constant (Environ.opaque_tables env) cb2 in + let cst2 = assert false in +(* let cst2 = *) +(* Declareops.constraints_of_constant (Environ.opaque_tables env) cb2 in *) let ty2 = Typeops.type_of_constant_type env cb2.const_type in let cst = Constraint.union cst (Constraint.union cst1 cst2) in let error = NotConvertibleTypeField (env, ty1, ty2) in |