diff options
| author | filliatr | 1999-12-13 09:15:15 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-13 09:15:15 +0000 |
| commit | df0f615f240dabddfc1d605b697edd0b533eb3e0 (patch) | |
| tree | a345b3452f009b4679b45132e3b4b138fa2ae3e0 /toplevel/command.ml | |
| parent | 677cf7db31c0dbf2f138ba2d25063737dfc662c5 (diff) | |
petite erreur dans Command
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@246 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 6fb0018ddb..f0e40d7bf8 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -79,7 +79,7 @@ let abstraction_definition ident arity com = let parameter_def_var ident c = let c = constr_of_com1 true Evd.empty (Global.env()) c in declare_parameter (id_of_string ident) c; - if is_verbose() then message ((string_of_id ident) ^ " is assumed") + if is_verbose() then message (ident ^ " is assumed") let hypothesis_def_var is_refining ident n c = let warning () = @@ -95,7 +95,7 @@ let hypothesis_def_var is_refining ident n c = if Lib.is_section_p disch_sp then begin declare_variable (id_of_string ident) (constr_of_com1 true Evd.empty (Global.env()) c,n,false); - if is_verbose() then message ((string_of_id ident) ^ " is assumed"); + if is_verbose() then message (ident ^ " is assumed"); if is_refining then mSGERRNL [< 'sTR"Warning: Variable "; 'sTR ident; 'sTR" is not visible from current goals" >] |