Bad name should be an error and not just a warning.

[helm.git] / helm / matita / matitaEngine.ml

diff --git a/helm/matita/matitaEngine.ml b/helm/matita/matitaEngine.ml
index 94efb904f4a9da6685225c612673edb9c4a0f30f..c3a8be67d3d6c1a3f2e90b246c18f252925c0907 100644 (file)
--- a/helm/matita/matitaEngine.ml
+++ b/helm/matita/matitaEngine.ml
@@ -542,7 +542,7 @@ let eval_command opts status cmd =
      | Cic.CurrentProof (_,metasenv',bo,ty,_,_) ->
          let name = UriManager.name_of_uri uri in
          if not(CicPp.check name ty) then
-           MatitaLog.warn ("Bad name: " ^ name);
+           MatitaLog.error ("Bad name: " ^ name);
          if opts.do_heavy_checks then
            begin
              let dbd = MatitaDb.instance () in