diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 17:41:10 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 17:41:10 +0000 |
| commit | 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 (patch) | |
| tree | 9a238c0c4919245db39f805056754b1798e94357 /tactics/btermdn.ml | |
| parent | e2363aafc80d9a8efaf9c13bbf9e4e5bb0f4eb10 (diff) | |
The type Pattern.constr_label was isomorphic to Libnames.global_reference.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6427 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/btermdn.ml')
| -rw-r--r-- | tactics/btermdn.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/btermdn.ml b/tactics/btermdn.ml index 475a45e5d..7d41ebf9d 100644 --- a/tactics/btermdn.ml +++ b/tactics/btermdn.ml @@ -11,6 +11,7 @@ open Term open Termdn open Pattern +open Libnames (* Discrimination nets with bounded depth. See the module dn.ml for further explanations. @@ -34,7 +35,7 @@ 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 = (constr_label,constr_pattern * int,'a) Dn.t +type 'a t = (global_reference,constr_pattern * int,'a) Dn.t let create = Dn.create |