diff options
Diffstat (limited to 'contrib/first-order')
-rw-r--r-- | contrib/first-order/instances.ml | 2 | ||||
-rw-r--r-- | contrib/first-order/sequent.ml | 2 |
2 files changed, 2 insertions, 2 deletions
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 |