diff options
| author | herbelin | 2005-02-18 22:14:57 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-18 22:14:57 +0000 |
| commit | d56dbd226a805d93d539c63e9fa89062572bb295 (patch) | |
| tree | ffe757ec9a756e061b6a22270814e5417b790732 /pretyping/evarconv.ml | |
| parent | f1c9b401cf40df87eb4be7ca512a6bc199f09b7c (diff) | |
Standardisation of function names about global references (especially, renaming of constr_of_reference into constr_of_global)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6745 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index dc6df2c92f..5f6f1522f5 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -100,11 +100,11 @@ let apprec_nohdbeta env isevars c = (t2 us2) = (cstr us) extra_args1 = extra_args2 - by finding a record R and an object c := [xs:bs](Build_R a1..am v1..vn) + by finding a record R and an object c := [xs:bs](Build_R params v1..vn) with vi = (cstr us), for which we know that the i-th projection proji satisfies - (proji params c) = (cstr us) + (proji params (c xs)) = (cstr us) Rem: such objects, usable for conversion, are defined in the objdef table; practically, it amounts to "canonically" equip t2 into a @@ -116,7 +116,7 @@ let check_conv_record (t1,l1) (t2,l2) = let proji = reference_of_constr t1 in let cstr = reference_of_constr t2 in let { o_DEF = c; o_TABS = bs; o_TPARAMS = params; o_TCOMPS = us } = - canonical_structure_info (proji, cstr) in + lookup_canonical_conversion (proji, cstr) in let params1, c1, extra_args1 = match list_chop (List.length params) l1 with | params1, c1::extra_args1 -> params1, c1, extra_args1 |