diff options
Diffstat (limited to 'contrib/correctness/psyntax.ml4')
| -rw-r--r-- | contrib/correctness/psyntax.ml4 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/correctness/psyntax.ml4 b/contrib/correctness/psyntax.ml4 index a91bceb8e1..e9bb7c88f9 100644 --- a/contrib/correctness/psyntax.ml4 +++ b/contrib/correctness/psyntax.ml4 @@ -140,7 +140,11 @@ let ast_zwf_zero loc = (* program -> Coq AST *) -let bdize = Termast.ast_of_constr true (Global.env ()) +let bdize c = + let env = + Global.env_of_context (Pcicenv.cci_sign_of Prename.empty_ren Penv.empty) + in + Termast.ast_of_constr true env c let rec coqast_of_program loc = function | Var id -> let s = string_of_id id in <:ast< ($VAR $s) >> @@ -151,7 +155,7 @@ let rec coqast_of_program loc = function (function Term t -> coqast_of_program t.loc t.desc | _ -> invalid_arg "coqast_of_program") l in - <:ast< (APPLIST $f ($LIST $args)) >> + <:ast< (APPLIST $f ($LIST $args)) >> | Expression c -> bdize c | _ -> invalid_arg "coqast_of_program" |