diff options
| author | filliatr | 1999-12-13 09:05:20 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-13 09:05:20 +0000 |
| commit | e23a63f9920eff0fcc392dcdf11806393402d24c (patch) | |
| tree | 5059b0c778ca4867cd5d7b4cf7fe172638e20b4b /toplevel/command.ml | |
| parent | 2b62054dcccae08fdb5b61145e4b84d746e6faf1 (diff) | |
documentation interfaces
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@244 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 6a0a2e2a98..6fb0018ddb 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -78,7 +78,8 @@ 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 + declare_parameter (id_of_string ident) c; + if is_verbose() then message ((string_of_id ident) ^ " is assumed") let hypothesis_def_var is_refining ident n c = let warning () = @@ -94,6 +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_refining then mSGERRNL [< 'sTR"Warning: Variable "; 'sTR ident; 'sTR" is not visible from current goals" >] |