diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-26 09:50:56 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-04-26 09:50:56 +0000 |
commit | 80297f53a4a43aff327426a08ffd58236ec4d56d (patch) | |
tree | b6543d840f01a018db828e3058148a0a942fdfa0 /tactics/btermdn.ml | |
parent | 99cda3324ad90fc77e810f0412f44bf81df99371 (diff) |
Nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@367 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/btermdn.ml')
-rw-r--r-- | tactics/btermdn.ml | 25 |
1 files changed, 8 insertions, 17 deletions
diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml index 3015e651b..e6a4b43dd 100644 --- a/tactics/btermdn.ml +++ b/tactics/btermdn.ml @@ -26,27 +26,18 @@ let bounded_constr_val_discr (t,depth) = | None -> None | Some (c,l) -> Some(c,List.map (fun c -> (c,depth-1)) l) -type 'a t = (lbl,constr * int,'a) Dn.under_t +type 'a t = (lbl,constr * int,'a) Dn.t -let newdn () = Dn.create bounded_constr_pat_discr +let create = Dn.create -let ex_termdn = newdn() +let add dn (c,v) = Dn.add dn bounded_constr_pat_discr ((c,!dnet_depth),v) -let inDN tdn = { - Dn.args = ex_termdn.Dn.args; - Dn.tm = tdn } +let rmv dn (c,v) = Dn.rmv dn bounded_constr_pat_discr ((c,!dnet_depth),v) -let outDN dn = dn.Dn.tm - -let create () = outDN (newdn()) - -let add dn (c,v) = outDN (Dn.add (inDN dn) ((c,!dnet_depth),v)) - -let rmv dn (c,v) = outDN (Dn.rmv (inDN dn) ((c,!dnet_depth),v)) - -let lookup dn t = +let lookup dn t = List.map (fun ((c,_),v) -> (c,v)) - (Dn.lookup (inDN dn) bounded_constr_val_discr (t,!dnet_depth)) + (Dn.lookup dn bounded_constr_val_discr (t,!dnet_depth)) + +let app f dn = Dn.app (fun ((c,_),v) -> f(c,v)) dn -let app f dn = Dn.app (fun ((c,_),v) -> f(c,v)) (inDN dn) |