From dcaefd4a668617504aaf335ed346598b03a80ba1 Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 11 Jan 2006 09:47:32 +0000 Subject: Restructuration et simplification des fonctions d'affichage, de détypage et d'"externalisation"; standardisation du nom des fonctions d'affichage MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7837 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/first-order/instances.ml | 2 +- contrib/first-order/sequent.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'contrib/first-order') diff --git a/contrib/first-order/instances.ml b/contrib/first-order/instances.ml index 7dc01a461..0b371966b 100644 --- a/contrib/first-order/instances.ml +++ b/contrib/first-order/instances.ml @@ -121,7 +121,7 @@ let mk_open_instance id gl m t= let nid=(fresh_id avoid var_id gl) in (Name nid,None,dummy_constr)::(aux (n-1) (nid::avoid)) in let nt=it_mkLambda_or_LetIn revt (aux m []) in - let rawt=Detyping.detype (false,env) [] [] nt in + let rawt=Detyping.detype false [] [] nt in let rec raux n t= if n=0 then t else match t with diff --git a/contrib/first-order/sequent.ml b/contrib/first-order/sequent.ml index f9ebafc2a..c1175a4d9 100644 --- a/contrib/first-order/sequent.ml +++ b/contrib/first-order/sequent.ml @@ -291,7 +291,7 @@ let print_cmap map= str "| " ++ Util.prlist Printer.pr_global l ++ str " : " ++ - Ppconstr.pr_constr xc ++ + Ppconstr.pr_constr_expr xc ++ cut () ++ s in msgnl (v 0 -- cgit v1.2.3