discriminations nets

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@123 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 1 deletions

diff --git a/tactics/dn.ml b/tactics/dn.ml
index 55112ba798..33ce0df5db 100644
--- a/tactics/dn.ml
+++ b/tactics/dn.ml
@@ -31,7 +31,7 @@ type ('lbl,'pat,'inf) t = {
   tm   : ('lbl,'pat,'inf) under_t; 
   args : ('lbl,'pat) dn_args }
 
-let create dna = {tm = Tlm.create(); args = dna}
+let create dna = { tm = Tlm.empty; args = dna }
 
 let path_of dna =
   let rec path_of_deferred = function