]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/cic_transformations/misc.ml
checked in new version of matita from svn
[helm.git] / helm / ocaml / cic_transformations / misc.ml
index e42a0c5f7d1117c8ced9e0e7f2fc30f94e27cb03..56d54255623822103d0909f4f25c709310b442ce 100644 (file)
 (*                                                                            *)
 (******************************************************************************)
 
-let domImpl = Gdome.domImplementation ();;
-let helmns = Gdome.domString "http://www.cs.unibo.it/helm";;
+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"
+let boxml_ns = Gdome.domString "http://helm.cs.unibo.it/2003/BoxML"
 
   (* TODO BRRRRR .... *)
   (** strip first 4 line of a string, used to strip xml declaration and doctype
@@ -43,5 +46,4 @@ let strip_xml_headings =
   let xml_headings_RE = Pcre.regexp "^.*\n.*\n.*\n.*\n" in
   fun s ->
     Pcre.replace ~rex:xml_headings_RE s
-;;