From 9c9f5a3bde48a46c8e5146093392883ee16bc9e2 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 11 Mar 2014 14:23:27 -0400
Subject: Made intersection on regular trees less intensional.

---
 kernel/inductive.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index edaec5ff4f..f408de8c75 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -508,7 +508,7 @@ let inter_recarg r1 r2 = match r1, r2 with
 | Imbr i1, Mrec i2 -> if Names.eq_ind i1 i2 then Some r2 else None
 | _ -> None
 
-let inter_wf_paths = Rtree.inter inter_recarg Norec
+let inter_wf_paths = Rtree.inter Declareops.eq_recarg inter_recarg Norec
 
 let spec_of_tree t =
   if eq_wf_paths t mk_norec
-- 
cgit v1.2.3