diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-26 18:50:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-26 18:50:58 +0000 |
| commit | a0b087a6e16a22b12c8520b81a1526bdda888cd3 (patch) | |
| tree | 212c74e2fa6fddb199e825fad5ef77c9ebaef7b4 /pretyping | |
| 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
Diffstat (limited to 'pretyping')
| -rwxr-xr-x | pretyping/classops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 89542564d..dd35be0fb 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 *) |