diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-08-22 21:05:59 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-10-17 12:50:44 +0200 |
commit | 1a58e205e79ca2fd0a40b014e929c180e5ff57eb (patch) | |
tree | 154e97a53231d810f3dfb5d461e37b5bf2e5b342 /pretyping/evarconv.ml | |
parent | 8764f77d807ff9d3f6260b657865ad0f40248cab (diff) |
Properly handling projection parameters in canonical structures.
Diffstat (limited to 'pretyping/evarconv.ml')
-rw-r--r-- | pretyping/evarconv.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 9b002a5bc..0f1a508c8 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -178,7 +178,9 @@ let check_conv_record env sigma (t1,sk1) (t2,sk2) = (proji, Sort_cs (family_of_sort s)),[] | Proj (p, c) -> let c2 = Globnames.ConstRef (Projection.constant p) in - let sk2 = Stack.append_app [|c|] sk2 in + let c = Retyping.expand_projection env sigma p c [] in + let _, args = destApp sigma c in + let sk2 = Stack.append_app args sk2 in lookup_canonical_conversion (proji, Const_cs c2), sk2 | _ -> let (c2, _) = Termops.global_of_constr sigma t2 in |