From dda7c7bb0b6ea0c2106459d8ae208eff0dfd6738 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 1 Dec 1999 08:03:06 +0000
Subject:  - Typing -> Safe_typing  - proofs/Typing_ev -> pretyping/Typing  -
 env -> sign  - fonctions var_context

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@167 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml | 2 +-
 tactics/elim.ml | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'tactics')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index 634e71f99a..2dc69c55bf 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -10,7 +10,7 @@ open Sign
 open Inductive
 open Evd
 open Reduction
-open Typing_ev
+open Typing
 open Tacmach
 open Proof_trees
 open Pfedit
diff --git a/tactics/elim.ml b/tactics/elim.ml
index 3fe9430c8c..2505f3b0a3 100644
--- a/tactics/elim.ml
+++ b/tactics/elim.ml
@@ -100,13 +100,13 @@ let dyn_decompose args gl =
   match args with 
     | [Clause ids; Command c] -> 
         decompose_these (pf_constr_of_com gl c) ids gl
-    | [CLAUSE ids; Constr c]  -> 
+    | [Clause ids; Constr c]  -> 
         decompose_these c ids  gl
     | l -> bad_tactic_args "DecomposeThese" l gl
 	  
 let h_decompose =
   let v_decompose = hide_tactic "DecomposeThese" dyn_decompose in 
-  fun ids c -> v_decompose [(CLAUSE ids);(CONSTR c)] 
+  fun ids c -> v_decompose [Clause ids; Constr c] 
 
 let vernac_decompose_and = 
   hide_constr_tactic "DecomposeAnd" decompose_and
-- 
cgit v1.2.3