diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-14 09:52:07 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-14 09:52:07 +0000 |
| commit | 1674ab8bc0b76a1162928d0d9097c6a97486205d (patch) | |
| tree | dd96dd33db49cae6b872703c8088d13b0f32e365 /proofs | |
| parent | 087bf4ee8b4fd3fb54fc94e2b4c339161f251b3e (diff) | |
Remove support for "abstract typing constraints" that requires unicity of solutions to unification.
Only allow bidirectional checking of constructor applications, enabled by a program_mode flag:
it is backwards-incompatible due to delta-reduction, constructor parameters might get instantiated
with delta-equivalent but not syntactically equivalent terms.
Prepare for merging the Program-specific version of Pretyping/Cases/Coercion with the main code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15032 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index f0ab31c5b..4d65b636c 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -153,9 +153,8 @@ module Refinable = struct and add the new evars to it. *) let my_type = Retyping.get_type_of env !rdefs t in let j = Environ.make_judge t my_type in - let tycon = Evarutil.mk_tycon_type typ in let (new_defs,j') = - Coercion.Default.inh_conv_coerce_to (Pp.dummy_loc) env !rdefs j tycon + Coercion.Default.inh_conv_coerce_to (Pp.dummy_loc) env !rdefs j typ in rdefs := new_defs; j'.Environ.uj_val |