From 1674ab8bc0b76a1162928d0d9097c6a97486205d Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 14 Mar 2012 09:52:07 +0000
Subject: 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
---
 proofs/goal.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/goal.ml b/proofs/goal.ml
index f0ab31c5b8..4d65b636c4 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
-- 
cgit v1.2.3