diff options
| author | bertot | 2002-01-23 14:17:57 +0000 |
|---|---|---|
| committer | bertot | 2002-01-23 14:17:57 +0000 |
| commit | bef4e9e5842527ffc76c0ae9635a2188fd09602a (patch) | |
| tree | 688ef63f0f2bf4f9eee216be7e955c6d27e78d53 /contrib/interface/centaur.ml | |
| parent | 58c4a23cc2d7b01bbc6a7e60d6d074bb0a0e5b26 (diff) | |
In Pcoq, the search commands had an erroneous behavior. Bound variables
in theorems were renamed to avoid the names present in the current goal's
context. This version corrects this problem.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2425 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/centaur.ml')
| -rw-r--r-- | contrib/interface/centaur.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/interface/centaur.ml b/contrib/interface/centaur.ml index fd60e1e61f..1cd2070479 100644 --- a/contrib/interface/centaur.ml +++ b/contrib/interface/centaur.ml @@ -252,7 +252,7 @@ let add_search (global_reference:global_reference) assumptions cstr = global_reference) in let ast = try - CT_premise (CT_ident id_string, translate_constr assumptions cstr) + CT_premise (CT_ident id_string, translate_constr false assumptions cstr) with Not_found -> CT_premise (CT_ident id_string, CT_coerce_ID_to_FORMULA( @@ -271,14 +271,14 @@ let ctf_EmptyGoalMessage id = let print_check (ast, judg) = let {uj_val=value; uj_type=typ} = judg in let value_ct_ast = - (try translate_constr (Global.env()) value + (try translate_constr false (Global.env()) value with UserError(f,str) -> raise(UserError(f, Ast.print_ast (ast_of_constr true (Global.env()) value) ++ fnl () ++ str ))) in let type_ct_ast = - (try translate_constr (Global.env()) typ + (try translate_constr false (Global.env()) typ with UserError(f,str) -> raise(UserError(f, Ast.print_ast (ast_of_constr true (Global.env()) value) ++ fnl() ++ str))) in @@ -300,8 +300,8 @@ and ntyp = nf_betaiota typ in (CT_premises_list [CT_eval_result (xlate_formula ast, - translate_constr env nvalue, - translate_constr env ntyp)]))));; + translate_constr false env nvalue, + translate_constr false env ntyp)]))));; |