diff options
| author | herbelin | 2000-11-26 18:50:58 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-26 18:50:58 +0000 |
| commit | a0b087a6e16a22b12c8520b81a1526bdda888cd3 (patch) | |
| tree | 212c74e2fa6fddb199e825fad5ef77c9ebaef7b4 | |
| parent | 24e09baf09e006021e662529585b94fbf702dde5 (diff) | |
Remplacement de certains sp_of_id par des locate
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@956 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rwxr-xr-x | pretyping/classops.ml | 2 | ||||
| -rw-r--r-- | toplevel/class.ml | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 89542564dd..dd35be0fba 100755 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -239,7 +239,7 @@ let stre_of_cl = function if is_constant sp then constant_or_parameter_strength sp else NeverDischarge | CL_Var id -> - variable_strength id + variable_strength (make_qualid [] (string_of_id id)) | _ -> NeverDischarge (* coe_value : int -> Term.constr * bool *) diff --git a/toplevel/class.ml b/toplevel/class.ml index 463cfef5bf..e6e4654b56 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -35,7 +35,8 @@ let id_of_varid c = match kind_of_term c with | IsVar id -> id | _ -> anomaly "class__id_of_varid" -let stre_of_VAR c = variable_strength (destVar c) +let stre_of_VAR c = + variable_strength (make_qualid [] (string_of_id (destVar c))) (* lf liste des variable dont depend la coercion f lc liste des variable dont depend la classe source *) @@ -54,7 +55,7 @@ let rec stre_unif_cond = function let stre_of_coe = function | NAM_Constant sp -> constant_or_parameter_strength sp - | NAM_Var id -> variable_strength id + | NAM_Var id -> variable_strength (make_qualid [] (string_of_id id)) | NAM_Inductive _ | NAM_Constructor _ -> NeverDischarge (* try_add_class : Names.identifier -> |