diff options
| author | barras | 2008-03-18 13:30:57 +0000 |
|---|---|---|
| committer | barras | 2008-03-18 13:30:57 +0000 |
| commit | 067aa9a444b7d13733c8ca1cf52d6d73e105dec0 (patch) | |
| tree | efa8f52dccdd7eaa8fdc04de7366f840b9a70d86 /kernel/inductive.ml | |
| parent | 242e810e149d19d9a6089e6af564acd884b61fc5 (diff) | |
improved the implementation of rtree
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10691 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index aef3d6cc82..f60e2dbe0f 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -425,8 +425,8 @@ type subterm_spec = | Not_subterm let spec_of_tree t = - if t=mk_norec then Not_subterm else Subterm(Strict,t) - + if Rtree.eq_rtree (=) t mk_norec then Not_subterm else Subterm(Strict,t) + let subterm_spec_glb = let glb2 s1 s2 = match s1,s2 with @@ -435,7 +435,7 @@ let subterm_spec_glb = | Not_subterm, _ -> Not_subterm | _, Not_subterm -> Not_subterm | Subterm (a1,t1), Subterm (a2,t2) -> - if t1=t2 then Subterm (size_glb a1 a2, t1) + if Rtree.eq_rtree (=) t1 t2 then Subterm (size_glb a1 a2, t1) (* branches do not return objects with same spec *) else Not_subterm in Array.fold_left glb2 Dead_code |