added mathml_ns

diff --git a/helm/ocaml/cic_transformations/misc.ml b/helm/ocaml/cic_transformations/misc.ml
index 98f680d8dbdf12060531239def535d6bc3aca656..ec983d10641b180742ada6c90a9842ba98c80db0 100644 (file)
--- a/helm/ocaml/cic_transformations/misc.ml
+++ b/helm/ocaml/cic_transformations/misc.ml
@@ -36,6 +36,7 @@
 let domImpl = Gdome.domImplementation ()
 let helm_ns = Gdome.domString "http://www.cs.unibo.it/helm"
 let xlink_ns = Gdome.domString "http://www.w3.org/1999/xlink"
+let mathml_ns = Gdome.domString "http://www.w3.org/1998/Math/MathML"
 
   (* TODO BRRRRR .... *)
   (** strip first 4 line of a string, used to strip xml declaration and doctype

diff --git a/helm/ocaml/cic_transformations/misc.mli b/helm/ocaml/cic_transformations/misc.mli
index 27d55fa2b4f7785bb036f90e5acee8313927c8a6..d2bf22835557ea89c15fd7c240db3640a76f1e6e 100644 (file)
--- a/helm/ocaml/cic_transformations/misc.mli
+++ b/helm/ocaml/cic_transformations/misc.mli
@@ -38,6 +38,7 @@
 val domImpl : Gdome.domImplementation
 val helm_ns : Gdome.domString   (** HELM namespace *)
 val xlink_ns : Gdome.domString  (** XLink namespace *)
+val mathml_ns: Gdome.domString  (** MathML namespace *)
 
 val strip_xml_headings: string -> string