From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Tue, 28 Jun 2005 17:38:42 +0000 (+0000)
Subject: lapply improved
X-Git-Tag: INDEXING_NO_PROOFS~17
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=7b78ae643999aa95b95b376fab54adb33dbed206;p=helm.git

lapply improved
---

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index ee099e420..2e8124d7e 100644
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -122,7 +122,7 @@ let rec pp_tactic = function
   | LApply (_, term_opt, term, ident) -> 
       sprintf "lapply %s%s%s" (pp_term_ast term) 
         (match term_opt with None -> "" | Some t -> " to " ^ pp_term_ast t)
-        (match ident with None -> "" | Some id -> " " ^ id)
+        (match ident with None -> "" | Some id -> " using " ^ id)
 
 let pp_flavour = function
   | `Definition -> "Definition"