diff options
| author | Maxime Dénès | 2014-03-11 14:23:27 -0400 |
|---|---|---|
| committer | Maxime Dénès | 2014-07-22 17:34:57 -0400 |
| commit | 9c9f5a3bde48a46c8e5146093392883ee16bc9e2 (patch) | |
| tree | 3ea3b2b8fe1efbbb602952361d9adfa91aae357f /kernel/inductive.ml | |
| parent | 286abd141d415a621cc8ea98055d8dc744c8b752 (diff) | |
Made intersection on regular trees less intensional.
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |