From 6e2ca58652b23415cba082c4be77823f182d14ba Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 2 Apr 2008 16:23:10 +0000
Subject: Minor fixes. Use expanded type in class_tactics for Morphism search,
 to alleviate some problems with delta. Better precedence in lambda notation.
 Temporarily deactivate notations for relation conjunction, equivalence and so
 on, while we search for a better syntax and maybe a generalization (fixes bug
 #1820). Better destruct_call in Program.Tactics.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10742 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/class_tactics.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tactics')

diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4
index 5c24224774..32103a0581 100644
--- a/tactics/class_tactics.ml4
+++ b/tactics/class_tactics.ml4
@@ -580,7 +580,7 @@ let resolve_morphism env sigma oldt m ?(fnewt=fun x -> x) args args' cstr evars
     let appmtype = Typing.type_of env sigma appm in
     let cstrs = List.map (function None -> None | Some (_, (a, r, _, _)) -> Some (a, r)) (Array.to_list morphobjs') in
     let appmtype', signature, sigargs = build_signature evars env appmtype cstrs cstr (fun (a, r) -> r) in
-    let cl_args = [| appmtype ; signature ; appm |] in
+    let cl_args = [| appmtype' ; signature ; appm |] in
     let app = mkApp (Lazy.force morphism_type, cl_args) in
     let morph = Evarutil.e_new_evar evars env app in
     let proj = 
-- 
cgit v1.2.3