From e40f33d24476a91fec447233efd2e921ff7c882b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 20 Jun 2012 16:30:08 +0000
Subject: Fixing bug #2817 (occur check was not done up to instantiation of
 known instances in unification.ml). This refines the fix to bug #1918.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15459 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index ab676f0e9a..d7fb3f63b9 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -265,6 +265,7 @@ let destMeta c = match kind_of_term c with
   | _ -> invalid_arg "destMeta"
 
 let isMeta c = match kind_of_term c with Meta _ -> true | _ -> false
+let isMetaOf mv c = match kind_of_term c with Meta mv' -> mv = mv' | _ -> false
 
 (* Destructs a variable *)
 let destVar c = match kind_of_term c with
-- 
cgit v1.2.3