aboutsummaryrefslogtreecommitdiff
path: root/pretyping/class.ml
diff options
context:
space:
mode:
authorbarras2000-08-08 13:13:04 +0000
committerbarras2000-08-08 13:13:04 +0000
commitb7e660c7115c479de49d026edd3a7c7c068b1f13 (patch)
tree2fc04abd53d9fe33b06e3e99de3e7cf4e6cbafbe /pretyping/class.ml
parent89a3416f68bddad29e80ed7d4f93b4a5ef418bd7 (diff)
reparation bug des coercions (cas ou on importe une coercion faisant
reference a une classe non importee) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@577 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/class.ml')
-rw-r--r--pretyping/class.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/class.ml b/pretyping/class.ml
index db67ac2be4..419bd1bf38 100644
--- a/pretyping/class.ml
+++ b/pretyping/class.ml
@@ -53,7 +53,7 @@ let rec stre_unif_cond = function
stre_max (stre1,stre2)
let stre_of_coe = function
- | NAM_Constant sp -> constant_strength sp
+ | NAM_Constant sp -> constant_or_parameter_strength sp
| NAM_Var id -> variable_strength id
| NAM_Inductive _ | NAM_Constructor _ -> NeverDischarge