From 14c5325d2e94d9d60c47af734579731abb74573f Mon Sep 17 00:00:00 2001 From: msozeau Date: Mon, 28 Jul 2008 09:10:41 +0000 Subject: Fix bug in term dnet preventing some unifications. Allow "higher-order" class constraints of the form Π x1 ... xn, Class args. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11278 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/btermdn.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tactics/btermdn.ml') diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml index 2412968a1..379949f46 100644 --- a/tactics/btermdn.ml +++ b/tactics/btermdn.ml @@ -52,7 +52,7 @@ let bounded_constr_val_discr (t,depth) = match constr_val_discr t with | Dn.Label (c,l) -> Dn.Label(c,List.map (fun c -> (c,depth-1)) l) | Dn.Nothing -> Dn.Nothing - | Dn.Everything -> Dn.Nothing + | Dn.Everything -> Dn.Everything type 'a t = (global_reference,constr_pattern * int,'a) Dn.t -- cgit v1.2.3