--- /dev/null
+Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
+Name: lablgtk-20000829_gtkmathview
+Version: 0.1.0
+Release: 1
+Copyright: LGPL
+Group: Development/Libraries
+Requires: lablgtk_20000829 gtkmathview
+Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz
+%description
+GtkMathView is the binding for lablgtk of the GtkMathView widget.
+
+%prep
+%setup
+
+%build
+make
+make opt
+
+%install
+make install
+
+%files
+%doc COPYING
+
+/usr/lib/ocaml/lablgtk/mathview
--- /dev/null
+gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo
+gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx
+gtkMathView.cmo: gtk_mathview.cmo
+gtkMathView.cmx: gtk_mathview.cmx
--- /dev/null
+This library is made available under the LGPL.
+You should have got a copy of the LGPL with Objective Caml.
+The LGPL applies to all the files in this directory, but not in
+subdirectories.
+
+For the test subdirectory, there is no specific licensing policy,
+but you may freely take inspiration from the code, and copy parts of
+it in your application.
+
+Author:
+ Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
--- /dev/null
+# Makefile for lablgtk_mathview.
+
+LABLGTKDIR = /usr/local/lib/ocaml/lablgtk
+MLFLAGS += -I $(LABLGTKDIR)
+
+TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
+
+all: $(TARGETS)
+
+opt: lablgtkmathviewopt
+
+configure:
+ @rm -f config.make
+ @$(MAKE) --no-print-directory -f configure.mk
+
+depend:
+ @rm -f .depend
+ @$(MAKE) --no-print-directory -f configure.mk .depend
+
+.depend config.make:
+ @$(MAKE) --no-print-directory -f configure.mk
+
+COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
+LINKER = $(CAMLC) $(MLFLAGS)
+COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
+LINKOPT = $(CAMLOPT) $(MLFLAGS)
+
+include config.make
+
+INSTALLDIR = $(LIBDIR)/lablgtk/mathview
+
+MLLIBS = lablgtkmathview.cma
+CLIBS =
+MLLINK = unix.cma str.cma
+
+ifdef DEBUG
+CFLAGS = -g $(GTKCFLAGS)
+MLLINK += -cclib -lcamlrund
+MLFLAGS += -g
+else
+CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
+endif
+
+THFLAGS = -thread
+THLINK = unix.cma threads.cma
+
+ifdef USE_CC
+CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
+else
+CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
+endif
+
+# Rules
+.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
+.c.o:
+ $(CCOMPILER) $<
+.ml.cmo:
+ $(COMPILER) $<
+.mli.cmi:
+ $(COMPILER) $<
+.ml.cmx:
+ $(COMPOPT) $<
+.var.h:
+ ./var2def < $< > $@
+.var.c:
+ ./var2conv < $< > $@
+
+# Targets
+COBJS = ml_gtk_mathview.o
+MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
+ALLOBJS = $(MLOBJS)
+
+lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
+
+install:
+ if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
+ cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
+ if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
+ cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
+ cp $(MLLIBS) $(INSTALLDIR)
+ cp $(COBJS) $(INSTALLDIR)
+ if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
+ if test -f lablgtkmathview.cmxa; then \
+ cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
+ $(INSTALLDIR); fi
+
+lablgtkmathview.cma: $(MLOBJS)
+ $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) $(GTKMATHVIEWLIBS)
+lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
+ $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) $(GTKMATHVIEWLIBS)
+
+ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
+ $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
+
+clean:
+ rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
+
+include .depend
--- /dev/null
+CAMLC=ocamlc
+CAMLOPT=ocamlopt
+USE_GL=
+USE_GNOME=
+USE_CC=
+DEBUG=
+CC=cc
+RANLIB=ranlib
+LIBDIR=/usr/lib/ocaml
+BINDIR=/usr/bin
+INSTALLDIR=/usr/lib/ocaml/lablgtk/mathview
+GTKCFLAGS=-I/usr/lib/glib/include -I/usr/X11R6/include -I/usr/lib/ocaml/lablgtk
+GTKLIBS=-ccopt -L/usr/lib -ccopt -L/usr/X11R6/lib -cclib -lgtk -cclib -lgdk -ccopt -rdynamic -cclib -lgmodule -cclib -lglib -cclib -ldl -cclib -lXi -cclib -lXext -cclib -lX11 -cclib -lm
+GTKMATHVIEWLIBS=-ccopt -L/usr/local/lib/gtkmathview -cclib -lgtkmathview
+GNOMELIBS=
--- /dev/null
+# makefile for configuring lablGTK_mathview
+
+# Default compilers
+CAMLC = ocamlc
+CAMLOPT = ocamlopt
+
+# Default installation directories
+BINDIR = `$(GETBINDIR)`
+INSTALLDIR = $(LIBDIR)/lablgtk/mathview
+
+# Autoconf
+GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
+LIBDIR = `$(GETLIBDIR)`
+GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
+GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
+
+ifdef USE_GNOME
+GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
+GNOMELIBS = `gnome-config --libs gtkxmhtml`
+else
+GTKGETCFLAGS = gtk-config --cflags
+endif
+
+GTKGETLIBS = gtk-config --libs
+
+configure: .depend config.make
+
+.depend:
+ ocamldep *.ml *.mli > .depend
+
+config.make:
+ @echo CAMLC=$(CAMLC) > config.make
+ @echo CAMLOPT=$(CAMLOPT) >> config.make
+ @echo USE_GL=$(USE_GL) >> config.make
+ @echo USE_GNOME=$(USE_GNOME) >> config.make
+ @echo USE_CC=$(USE_CC) >> config.make
+ @echo DEBUG=$(DEBUG) >> config.make
+ @echo CC=$(CC) >> config.make
+ @echo RANLIB=`$(GETRANLIB)` >> config.make
+ @echo LIBDIR=$(LIBDIR) >> config.make
+ @echo BINDIR=`$(GETBINDIR)` >> config.make
+ @echo INSTALLDIR=$(INSTALLDIR) >> config.make
+ @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
+ @echo GTKLIBS=`$(GTKGETLIBS)` | \
+ sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
+ >> config.make
+ #<CSC>
+ echo GTKMATHVIEWLIBS="-ccopt -L/usr/local/lib/gtkmathview -cclib -lgtkmathview " >> config.make
+ #</CSC>
+ @echo GNOMELIBS=$(GNOMELIBS) | \
+ sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
+ >> config.make
+ cat config.make
--- /dev/null
+open Gaux
+open Gtk
+open Gtk_mathview
+open GtkBase
+open GtkMathView
+open GObj
+
+exception ErrorLoadingFile of string;;
+
+class math_view_signals obj = object
+ inherit GContainer.container_signals obj
+ method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
+ method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
+end
+
+class math_view obj = object
+ inherit GContainer.container (obj : Gtk_mathview.math_view obj)
+ method connect = new math_view_signals obj
+ method load ~filename =
+ if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
+ method get_selection = MathView.get_selection obj
+ method unload = MathView.unload obj
+ method dump = MathView.dump obj
+ method get_width = MathView.get_width obj
+ method get_height = MathView.get_height obj
+ method set_adjustments =
+ fun adj1 adj2 ->
+ MathView.set_adjustments obj (GData.as_adjustment adj1)
+ (GData.as_adjustment adj2)
+ method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
+ method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
+ method get_buffer = MathView.get_buffer obj
+ method get_frame = new GBin.frame (MathView.get_frame obj)
+ method set_font_size = MathView.set_font_size obj
+ (*method get_top = MathView.get_top obj
+ method set_top = MathView.set_top obj*)
+end
+
+let math_view ?adjustmenth ?adjustmentv ?border_width ?width ?height
+ ?packing ?show ()
+=
+ let w =
+ MathView.create
+ ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
+ ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
+ ()
+ in
+ Container.set w ?border_width ?width ?height;
+ pack_return (new math_view w) ~packing ~show
+;;
--- /dev/null
+open Gtk
+open Gtk_mathview
+open Tags
+open GtkBase
+open Gpointer
+
+module MathView = struct
+ let cast w : math_view obj = Object.try_cast w "GtkMathView"
+ external create : Gtk.adjustment optobj -> Gtk.adjustment optobj ->
+ math_view obj = "ml_gtk_math_view_new"
+ let create ~adjustmenth ~adjustmentv () =
+ create (optboxed adjustmenth) (optboxed adjustmentv)
+ external load : [>`math_view] obj -> filename:string -> bool =
+ "ml_gtk_math_view_load"
+ external get_selection : [>`math_view] obj -> string option =
+ "ml_gtk_math_view_get_selection"
+ external unload : [>`math_view] obj -> unit =
+ "ml_gtk_math_view_unload"
+ external dump : [>`math_view] obj -> unit =
+ "ml_gtk_math_view_dump"
+ external get_width : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_width"
+ external get_height : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_height"
+ external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
+ "ml_gtk_math_view_set_adjustments"
+ external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
+ "ml_gtk_math_view_get_hadjustment"
+ external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
+ "ml_gtk_math_view_get_vadjustment"
+ external get_buffer : [>`math_view] obj -> Gdk.pixmap =
+ "ml_gtk_math_view_get_buffer"
+ external get_frame : [>`math_view] obj -> [`frame] obj =
+ "ml_gtk_math_view_get_frame"
+ external set_font_size : [>`math_view] obj -> int -> unit =
+ "ml_gtk_math_view_set_font_size"
+ (*external get_top : [>`math_view] obj -> (int * int) =
+ "ml_gtk_math_view_get_top"
+ external set_top : [>`math_view] obj -> int -> int -> unit =
+ "ml_gtk_math_view_set_top"*)
+
+ module Signals = struct
+ open GtkSignal
+
+ let jump : ([>`math_view],_) t =
+ let marshal_jump f _ =
+ function
+ [GtkArgv.STRING (Some str)] -> f str
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
+ in
+ { name = "jump"; marshaller = marshal_jump }
+
+ let clicked : ([>`math_view],_) t =
+ let marshal_clicked f _ =
+ function
+ [] -> f ()
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
+ in
+ { name = "clicked"; marshaller = marshal_clicked }
+ end
+end
--- /dev/null
+type math_view = [`widget|`container|`bin|`eventbox|`math_view]
--- /dev/null
+#include <string.h>
+#include <gtk/gtk.h>
+#include <caml/mlvalues.h>
+#include <caml/alloc.h>
+#include <caml/memory.h>
+#include <caml/callback.h>
+#include <caml/fail.h>
+
+#include <gtkmathview/gtkmathview.h>
+#include <ml_gtk.h>
+
+#include <wrappers.h>
+#include <ml_glib.h>
+#include <ml_gdk.h>
+#include <ml_gtk.h>
+#include <gtk_tags.h>
+
+/* <CSC/>: Next row should be put in a .h of lablgtk. */
+#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
+
+#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
+ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val,Val_GtkWidget_sink)
+ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
+ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
+ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)
+ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
+ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
+//ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
+ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
+ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
+ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
+ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
+ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
+ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
+
+/*
+value ml_gtk_math_view_get_top (value arg1)
+{
+ CAMLparam1(arg1);
+ CAMLlocal1 (result);
+ int x, y;
+ gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
+ result = alloc(2, 0);
+ Store_field(result, 0, Val_int(x));
+ Store_field(result, 0, Val_int(y));
+ CAMLreturn (result);
+}
+*/
+
+value ml_gtk_math_view_get_selection (value arg1)
+{
+ const char *stringa;
+ stringa = gtk_math_view_get_selection (GtkMathView_val (arg1));
+ return Val_option (stringa, Val_string);
+}
--- /dev/null
+LABLGTK_DIR = ../../lablgtk-20000829
+LABLGTK_MATHVIEW_DIR = ..
+OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I mlmathview
+OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I mlmathview
+
+all: test
+opt: test.opt
+
+test: test.cmo
+ $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
+ test.cmo \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
+
+test.opt: test.cmx
+ $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
+ test.cmx \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
+
+.SUFFIXES: .ml .mli .cmo .cmi .cmx
+.ml.cmo:
+ $(OCAMLC) -c $<
+.mli.cmi:
+ $(OCAMLC) -c $<
+.ml.cmx:
+ $(OCAMLOPT) -c $<
+
+clean:
+ rm -f *.cm[iox] *.o test test.opt
--- /dev/null
+(******************************************************************************)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 25/09/2000 *)
+(* *)
+(* This is a simple test for the OCaml (LablGtk indeed) binding of the *)
+(* MathView widget *)
+(******************************************************************************)
+
+(* Callbacks *)
+let jump s =
+ print_string ("jump: " ^ s ^ "\n") ;
+ flush stdout
+;;
+
+let clicked () =
+ print_string "clicked: IT WORKS\n" ;
+ flush stdout
+;;
+
+let load mathview () =
+ mathview#load "test.xml" ;
+ print_string "load: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+exception Ok;;
+let get_selection mathview () =
+ let selection =
+ match mathview#get_selection with
+ None -> "NO SELECTION"
+ | Some s -> s
+ in
+ print_string ("get_selection: " ^ selection ^ "\n") ;
+ flush stdout
+;;
+
+let unload mathview () =
+ mathview#unload ;
+ print_string "unload: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let dump mathview () =
+ mathview#dump ;
+ print_string "dump: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let get_width mathview () =
+ print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
+ flush stdout
+;;
+
+let get_height mathview () =
+ print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
+ flush stdout
+;;
+
+let set_adjustments mathview () =
+ let adj1 = GData.adjustment () in
+ let adj2 = GData.adjustment () in
+ mathview#set_adjustments adj1 adj2 ;
+ adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
+ adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
+ print_string "set_adjustments: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_hadjustment mathview () =
+ let adj = mathview#get_hadjustment in
+ adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
+ print_string "get_hadjustment: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_vadjustment mathview () =
+ let adj = mathview#get_vadjustment in
+ adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
+ print_string "get_vadjustment: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_buffer mathview () =
+ let buffer = mathview#get_buffer in
+ Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
+ ~width:50 ~height:50 ~filled:true () ;
+ print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
+ flush stdout
+;;
+
+let get_frame mathview () =
+ let frame = mathview#get_frame in
+ frame#set_shadow_type `NONE ;
+ print_string "get_frame: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let set_font_size mathview () =
+ mathview#set_font_size 24 ;
+ print_string "set_font_size: FONT IS NOW 24\n" ;
+ flush stdout
+;;
+
+(* Widget creation *)
+let main_window = GWindow.window ~title:"GtkMathView test" () in
+let vbox = GPack.vbox ~packing:main_window#add () in
+let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
+(*let mathview = GMathView.math_view ~packing:sw#add_with_viewport ~width:50 ~height:50 () in*)
+let mathview = GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
+let hbox = GPack.hbox ~packing:vbox#pack () in
+let button_load = GButton.button ~label:"load" ~packing:hbox#pack () in
+let button_get_selection = GButton.button ~label:"get_selection" ~packing:hbox#pack () in
+let button_unload = GButton.button ~label:"unload" ~packing:hbox#pack () in
+let button_dump = GButton.button ~label:"dump" ~packing:hbox#pack () in
+let button_get_width = GButton.button ~label:"get_width" ~packing:hbox#pack () in
+let button_get_height = GButton.button ~label:"get_height" ~packing:hbox#pack () in
+let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:hbox#pack () in
+let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:hbox#pack () in
+let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:hbox#pack () in
+let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:hbox#pack () in
+let button_get_frame = GButton.button ~label:"get_frame" ~packing:hbox#pack () in
+let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:hbox#pack () in
+(* Signals connection *)
+ignore(button_load#connect#clicked (load mathview)) ;
+ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
+ignore(button_unload#connect#clicked (unload mathview)) ;
+ignore(button_dump#connect#clicked (dump mathview)) ;
+ignore(button_get_width#connect#clicked (get_width mathview)) ;
+ignore(button_get_height#connect#clicked (get_height mathview)) ;
+ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
+ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
+ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
+ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
+ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
+ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
+ignore(mathview#connect#jump jump) ;
+ignore(mathview#connect#clicked clicked) ;
+(* Main Loop *)
+main_window#show () ;
+GMain.Main.main ()
+;;
--- /dev/null
+<math display="block">
+ <mrow helm:xref="SELECTION OK">
+ <mo>∫</mo>
+ <mo>⁡</mo>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mi>a</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>b</mi>
+ </mrow>
+ <mrow>
+ <msup>
+ <mi>x</mi>
+ <mn>2</mn>
+ </msup>
+ <mo>+</mo>
+ <mrow>
+ <mi>p</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>q</mi>
+ </mrow>
+ </mfrac>
+ </mrow>
+ <mo fontstyle="italic">d</mo>
+ <mi>x</mi>
+ <mo>=</mo>
+ <mrow>
+ <mrow>
+ <mfrac><mi>a</mi><mn>2</mn></mfrac>
+ <mo>⁢</mo>
+ <mrow>
+ <mi>ln</mi>
+ <mo>⁡</mo>
+ <mrow>
+ <mo>(</mo>
+ <mrow>
+ <msup><mi>x</mi><mn>2</mn></msup>
+ <mo>+</mo>
+ <mrow>
+ <mi>p</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>)</mo>
+ </mrow>
+ </mrow>
+ </mrow>
+ <mo>+</mo>
+ <mrow>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mn>2</mn>
+ <mo>⁢</mo>
+ <mi>b</mi>
+ </mrow>
+ <mo>-</mo>
+ <mrow>
+ <mi>a</mi>
+ <mo>⁢</mo>
+ <mi>p</mi>
+ </mrow>
+ </mrow>
+ <msqrt>
+ <mrow>
+ <mrow>
+ <mn>4</mn>
+ <mo>⁢</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>-</mo>
+ <msup>
+ <mi>p</mi>
+ <mn>2</mn>
+ </msup>
+ </mrow>
+ </msqrt>
+ </mfrac>
+ <mo>⁢</mo>
+ <mrow>
+ <mi xlink:href="JUMPS WORK">arctg</mi>
+ <mo>⁡</mo>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mn>2</mn>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>p</mi>
+ </mrow>
+ <msqrt>
+ <mrow>
+ <mrow>
+ <mn>4</mn>
+ <mo>⁢</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>-</mo>
+ <msup>
+ <mi>p</mi>
+ <mn>2</mn>
+ </msup>
+ </mrow>
+ </msqrt>
+ </mfrac>
+ </mrow>
+ </mrow>
+ <mo>+</mo>
+ <mi>c</mi>
+ </mrow>
+</math>
--- /dev/null
+*.cmi *.cmo *.cmx *.cma *.cmxa config.make
--- /dev/null
+gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo
+gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx
+gtkMathView.cmo: gtk_mathview.cmo
+gtkMathView.cmx: gtk_mathview.cmx
--- /dev/null
+This library is made available under the LGPL.
+You should have got a copy of the LGPL with Objective Caml.
+The LGPL applies to all the files in this directory, but not in
+subdirectories.
+
+For the test subdirectory, there is no specific licensing policy,
+but you may freely take inspiration from the code, and copy parts of
+it in your application.
+
+Author:
+ Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
--- /dev/null
+# Makefile for lablgtk_mathview.
+
+LABLGTKDIR = /usr/lib/ocaml/lablgtk
+MINIDOMDIR = ./minidom
+TESTDIR = ./test
+MLFLAGS += -I $(LABLGTKDIR) -I $(MINIDOMDIR)
+
+TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
+
+all: Minidom $(TARGETS)
+
+opt: Minidom.opt lablgtkmathviewopt
+
+Minidom:
+ cd $(MINIDOMDIR); make
+
+Minidom.opt:
+ cd $(MINIDOMDIR); make opt
+
+configure:
+ @rm -f config.make
+ @$(MAKE) --no-print-directory -f configure.mk
+
+depend:
+ @rm -f .depend
+ @$(MAKE) --no-print-directory -f configure.mk .depend
+
+.depend config.make:
+ @$(MAKE) --no-print-directory -f configure.mk
+
+COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
+LINKER = $(CAMLC) $(MLFLAGS)
+COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
+LINKOPT = $(CAMLOPT) $(MLFLAGS)
+
+include config.make
+
+INSTALLDIR = $(LIBDIR)/lablgtk/mathview
+
+MLLIBS = lablgtkmathview.cma
+CLIBS =
+MLLINK = unix.cma str.cma
+
+ifdef DEBUG
+CFLAGS = -g $(GTKCFLAGS)
+MLLINK += -cclib -lcamlrund
+MLFLAGS += -g
+else
+CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
+endif
+CFLAGS += $(MINIDOMCFLAGS) $(GTKMATHVIEWCFLAGS)
+
+THFLAGS = -thread
+THLINK = unix.cma threads.cma
+
+ifdef USE_CC
+CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
+else
+CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
+endif
+
+# Rules
+.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
+.c.o:
+ $(CCOMPILER) $<
+.ml.cmo:
+ $(COMPILER) $<
+.mli.cmi:
+ $(COMPILER) $<
+.ml.cmx:
+ $(COMPOPT) $<
+.var.h:
+ ./var2def < $< > $@
+.var.c:
+ ./var2conv < $< > $@
+
+# Targets
+COBJS = ml_gtk_mathview.o
+MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
+ALLOBJS = $(MLOBJS)
+
+lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
+
+install:
+ if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
+ cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
+ if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
+ cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
+ cp $(MLLIBS) $(INSTALLDIR)
+ cp $(COBJS) $(INSTALLDIR)
+ if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
+ if test -f lablgtkmathview.cmxa; then \
+ cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
+ $(INSTALLDIR); fi
+
+lablgtkmathview.cma: $(MLOBJS)
+ $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
+lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
+ $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
+
+ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
+ $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
+
+clean:
+ rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
+ cd $(MINIDOMDIR); make clean
+ cd $(TESTDIR); make clean
+
+include .depend
--- /dev/null
+# makefile for configuring lablGTK_mathview
+
+# Default compilers
+CAMLC = ocamlc
+CAMLOPT = ocamlopt
+
+# Default installation directories
+BINDIR = `$(GETBINDIR)`
+INSTALLDIR = $(LIBDIR)/lablgtk/mathview
+
+# Autoconf
+GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
+LIBDIR = `$(GETLIBDIR)`
+GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
+GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
+
+ifdef USE_GNOME
+GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
+GNOMELIBS = `gnome-config --libs gtkxmhtml`
+else
+GTKGETCFLAGS = gtk-config --cflags
+endif
+
+GTKGETLIBS = gtk-config --libs
+
+configure: .depend config.make
+
+.depend:
+ ocamldep *.ml *.mli > .depend
+
+config.make:
+ @echo CAMLC=$(CAMLC) > config.make
+ @echo CAMLOPT=$(CAMLOPT) >> config.make
+ @echo USE_GL=$(USE_GL) >> config.make
+ @echo USE_GNOME=$(USE_GNOME) >> config.make
+ @echo USE_CC=$(USE_CC) >> config.make
+ @echo DEBUG=$(DEBUG) >> config.make
+ @echo CC=$(CC) >> config.make
+ @echo RANLIB=`$(GETRANLIB)` >> config.make
+ @echo LIBDIR=$(LIBDIR) >> config.make
+ @echo BINDIR=`$(GETBINDIR)` >> config.make
+ @echo INSTALLDIR=$(INSTALLDIR) >> config.make
+# Luca: was
+# @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
+# Luca: now
+ @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I$(LIBDIR)/lablgtk >> config.make
+ @echo GTKLIBS=`$(GTKGETLIBS)` | \
+ sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
+ >> config.make
+# Luca: GtkMathView configuration
+ @echo GTKMATHVIEWCFLAGS=`gtkmathview-config --cflags` >> config.make
+ @echo MINIDOMCFLAGS=`minidom-config --cflags` >> config.make
+ @echo GTKMATHVIEWLIBS=`gtkmathview-config --libs` >> config.make
+ @echo MINIDOMLIBS=`minidom-config --libs` >> config.make
+# Luca: end of GtkMathView configuration
+ @echo GNOMELIBS=$(GNOMELIBS) | \
+ sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
+ >> config.make
+ cat config.make
--- /dev/null
+open Gaux
+open Gtk
+open Gtk_mathview
+open GtkBase
+open GtkMathView
+open GObj
+
+exception ErrorLoadingFile of string;;
+exception ErrorWritingFile of string;;
+exception NoSelection;;
+
+class math_view_signals obj = object
+ inherit GContainer.container_signals obj
+ method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
+ method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
+ method selection_changed =
+ GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
+end
+
+class math_view obj = object
+ inherit GContainer.container (obj : Gtk_mathview.math_view obj)
+ method connect = new math_view_signals obj
+ method load ~filename =
+ if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
+ method unload = MathView.unload obj
+ method get_selection = MathView.get_selection obj
+ method set_selection (node : Ominidom.o_mDOMNode option) = MathView.set_selection obj node
+ method get_width = MathView.get_width obj
+ method get_height = MathView.get_height obj
+ method get_top = MathView.get_top obj
+ method set_top = MathView.set_top obj
+ method set_adjustments =
+ fun adj1 adj2 ->
+ MathView.set_adjustments obj (GData.as_adjustment adj1)
+ (GData.as_adjustment adj2)
+ method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
+ method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
+ method get_buffer = MathView.get_buffer obj
+ method get_frame = new GBin.frame (MathView.get_frame obj)
+ method set_font_size = MathView.set_font_size obj
+ method get_font_size = MathView.get_font_size obj
+ method set_anti_aliasing = MathView.set_anti_aliasing obj
+ method get_anti_aliasing = MathView.get_anti_aliasing obj
+ method set_kerning = MathView.set_kerning obj
+ method get_kerning = MathView.get_kerning obj
+ method set_log_verbosity = MathView.set_log_verbosity obj
+ method get_log_verbosity = MathView.get_log_verbosity obj
+ method export_to_postscript
+ ?(width = 595) ?(height = 822) ?(x_margin = 72) ?(y_margin = 72)
+ ?(disable_colors = false) ~filename () =
+ let result = MathView.export_to_postscript obj
+ ~width ~height ~x_margin ~y_margin ~disable_colors ~filename
+ in
+ if not result then raise (ErrorWritingFile filename)
+ method get_font_manager_type = MathView.get_font_manager_type obj
+ method set_font_manager_type ~fm_type = MathView.set_font_manager_type obj ~fm_type
+end
+
+let math_view ?adjustmenth ?adjustmentv ?font_size ?font_manager ?border_width
+ ?width ?height ?packing ?show () =
+ let w =
+ MathView.create
+ ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
+ ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
+ ()
+ in
+ Container.set w ?border_width ?width ?height;
+ let mathview = pack_return (new math_view w) ~packing ~show in
+ begin
+ match font_size with
+ | Some size -> mathview#set_font_size size
+ | None -> ()
+ end;
+ begin
+ match font_manager with
+ | Some manager -> mathview#set_font_manager_type ~fm_type:manager
+ | None -> ()
+ end;
+ mathview
+;;
--- /dev/null
+open Gtk
+open Gtk_mathview
+open Tags
+open GtkBase
+open Gpointer
+
+external mDOMNode_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode =
+ "ml_gtk_math_view_mDOMNode_of_bodex_option"
+
+external mDOMNode_option_of_boxed_option :
+ Gpointer.boxed option -> Minidom.mDOMNode option =
+ "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
+
+let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
+
+let o_mDOMNode_option_of_mDOMNode_option =
+ function
+ | Some x -> Some (o_mDOMNode_of_mDOMNode x)
+ | None -> None
+
+let mDOMNode_option_of_o_mDOMNode_option =
+ function
+ | Some x -> Some (x#get_dom_node)
+ | None -> None
+
+module MathView = struct
+ exception NoSelection
+
+ let cast w : math_view obj = Object.try_cast w "GtkMathView"
+ external create : Gtk.adjustment optobj -> Gtk.adjustment optobj ->
+ math_view obj = "ml_gtk_math_view_new"
+ let create ~adjustmenth ~adjustmentv () =
+ create (optboxed adjustmenth) (optboxed adjustmentv)
+ external load : [>`math_view] obj -> filename:string -> bool =
+ "ml_gtk_math_view_load"
+ external unload : [>`math_view] obj -> unit =
+ "ml_gtk_math_view_unload"
+ external raw_get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
+ "ml_gtk_math_view_get_selection"
+ let get_selection obj =
+ o_mDOMNode_option_of_mDOMNode_option (raw_get_selection obj)
+ external raw_set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
+ "ml_gtk_math_view_set_selection"
+ let set_selection obj node =
+ raw_set_selection obj (mDOMNode_option_of_o_mDOMNode_option node)
+ external get_width : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_width"
+ external get_height : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_height"
+ external get_top : [>`math_view] obj -> (int * int) =
+ "ml_gtk_math_view_get_top"
+ external set_top : [>`math_view] obj -> int -> int -> unit =
+ "ml_gtk_math_view_set_top"
+ external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
+ "ml_gtk_math_view_set_adjustments"
+ external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
+ "ml_gtk_math_view_get_hadjustment"
+ external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
+ "ml_gtk_math_view_get_vadjustment"
+ external get_buffer : [>`math_view] obj -> Gdk.pixmap =
+ "ml_gtk_math_view_get_buffer"
+ external get_frame : [>`math_view] obj -> [`frame] obj =
+ "ml_gtk_math_view_get_frame"
+ external set_font_size : [>`math_view] obj -> int -> unit =
+ "ml_gtk_math_view_set_font_size"
+ external get_font_size : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_font_size"
+ external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
+ "ml_gtk_math_view_set_anti_aliasing"
+ external get_anti_aliasing : [>`math_view] obj -> bool =
+ "ml_gtk_math_view_get_anti_aliasing"
+ external set_kerning : [>`math_view] obj -> bool -> unit =
+ "ml_gtk_math_view_set_kerning"
+ external get_kerning : [>`math_view] obj -> bool =
+ "ml_gtk_math_view_get_kerning"
+ external set_log_verbosity : [>`math_view] obj -> int -> unit =
+ "ml_gtk_math_view_set_log_verbosity"
+ external get_log_verbosity : [>`math_view] obj -> int =
+ "ml_gtk_math_view_get_log_verbosity"
+ external export_to_postscript :
+ [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
+ "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
+ external get_font_manager_type : [>`math_view] obj ->
+ [`font_manager_gtk | `font_manager_t1] =
+ "ml_gtk_math_view_get_font_manager_type"
+ external set_font_manager_type : [>`math_view] obj ->
+ fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
+ "ml_gtk_math_view_set_font_manager_type"
+
+ module Signals = struct
+ open GtkSignal
+
+ let clicked : ([>`math_view],_) t =
+ let marshal_clicked f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
+ in
+ { name = "clicked"; marshaller = marshal_clicked }
+
+ let jump : ([>`math_view],_) t =
+ let marshal_jump f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
+ in
+ { name = "jump"; marshaller = marshal_jump }
+
+ let selection_changed : ([>`math_view],_) t =
+ let marshal_selection_changed f _ =
+ function
+ [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
+ | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
+ in
+ { name = "selection_changed"; marshaller = marshal_selection_changed }
+ end
+end
--- /dev/null
+type math_view = [`widget|`container|`bin|`eventbox|`math_view]
--- /dev/null
+*.cmi *.cmo *.cmx test test.opt
--- /dev/null
+LIBDIR = /usr/lib/ocaml
+INSTALLDIR = $(LIBDIR)/minidom
+OBJECTS = minidom.cmi minidom.cmo ml_minidom.o ominidom.cmi ominidom.cmo
+OBJECTS_OPT = minidom.cmx ominidom.cmx
+INST = minidom.o ominidom.o ml_minidom.h minidom.mli
+
+all: $(OBJECTS) test
+
+opt: $(OBJECTS_OPT) test.opt
+
+ml_minidom.o: ml_minidom.c
+ gcc -c -I/usr/lib/ocaml/caml/ `glib-config --cflags` `minidom-config --cflags` $<
+
+minidom.cmi: minidom.mli
+ ocamlc -c $<
+
+minidom.cmo: minidom.ml minidom.cmi
+ ocamlc -c $<
+
+minidom.cmx: minidom.ml minidom.cmi
+ ocamlopt -c $<
+
+ominidom.cmi: ominidom.mli
+ ocamlc -c $<
+
+ominidom.cmo: ominidom.ml
+ ocamlc -c $<
+
+ominidom.cmx: ominidom.ml
+ ocamlopt -c $<
+
+test.cmo: test.ml minidom.cmo
+ ocamlc -c test.ml
+
+test.cmx: test.ml minidom.cmx
+ ocamlopt -c test.ml
+
+test: test.cmo minidom.cmo ml_minidom.o
+ ocamlc -custom -o test minidom.cmo test.cmo ml_minidom.o \
+ -cclib "`glib-config --libs` `minidom-config --libs`"
+
+test.opt: test.cmx minidom.cmx ml_minidom.o
+ ocamlopt -o test.opt minidom.cmx test.cmx ml_minidom.o \
+ -cclib "`glib-config --libs` `minidom-config --libs`"
+
+install:
+ if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
+ cp $(OBJECTS) $(OBJECTS_OPT) $(INST) $(INSTALLDIR)
+
+clean:
+ rm -f *.o *.cm? test test.opt
--- /dev/null
+
+type mDOMString
+type mDOMDoc
+type mDOMNode
+type mDOMAttr
+type mDOMEntity
+
+external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
+external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
+external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
+
+external doc_load : string -> mDOMDoc = "ml_doc_load"
+external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
+
+external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
+external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
+
+external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
+external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
+external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
+external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
+
+external node_is_text : mDOMNode -> bool = "ml_node_is_text"
+external node_is_element : mDOMNode -> bool = "ml_node_is_element"
+external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
+external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
+external node_get_type : mDOMNode -> int = "ml_node_get_type"
+external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
+external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
+external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
+external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
+external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
+external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
+external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
+external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
+external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
+external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
+external node_is_first : mDOMNode -> bool = "ml_node_is_first"
+external node_is_last : mDOMNode -> bool = "ml_node_is_last"
+
+external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
+external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
+external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
+external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
+external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
+external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
+
+let rec node_list_of_node_first =
+ function None -> []
+ | Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
+
+let rec attr_list_of_attr_first =
+ function None -> []
+ | Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
+
+let node_get_children node =
+ (node_list_of_node_first (node_get_first_child node))
+
+let node_get_attributes node =
+ (attr_list_of_attr_first (node_get_first_attribute node))
+
--- /dev/null
+
+type mDOMString
+type mDOMDoc
+type mDOMNode
+type mDOMAttr
+type mDOMEntity
+
+external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
+external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
+external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
+
+external doc_load : string -> mDOMDoc = "ml_doc_load"
+external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
+
+external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
+external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
+
+external doc_add_entity : doc:mDOMDoc -> name:mDOMString -> content:mDOMString -> mDOMEntity = "ml_doc_add_entity"
+external doc_get_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_entity"
+external doc_get_predefined_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
+external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
+
+external node_is_text : mDOMNode -> bool = "ml_node_is_text"
+external node_is_element : mDOMNode -> bool = "ml_node_is_element"
+external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
+external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
+external node_get_type : mDOMNode -> int = "ml_node_get_type"
+external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
+external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
+external node_get_attribute : node:mDOMNode -> name:mDOMString -> mDOMString option = "ml_node_get_attribute"
+external node_get_attribute_ns : node:mDOMNode -> name:mDOMString -> ns_uri:mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
+external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
+external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
+external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
+external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
+external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
+external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
+external node_is_first : mDOMNode -> bool = "ml_node_is_first"
+external node_is_last : mDOMNode -> bool = "ml_node_is_last"
+
+external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
+external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
+external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
+external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
+external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
+external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
+
+val node_get_children : mDOMNode -> mDOMNode list
+val node_get_attributes : mDOMNode -> mDOMAttr list
+
--- /dev/null
+
+#include <assert.h>
+#include <mlvalues.h>
+#include <memory.h>
+
+#include "minidom.h"
+
+#define Val_ptr(p) ((value) (p))
+#define Val_option(p,f) ((p != NULL) ? ml_some(f(p)) : Val_unit)
+#define Val_mDOMString(s) (copy_string((char*) (s)))
+#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
+
+static value
+ml_some(value v)
+{
+ CAMLparam1(v);
+ value ret = alloc_small(1,0);
+ Field(ret,0) = v;
+ CAMLreturn(ret);
+}
+
+value
+ml_string_of_mDOMString(value s)
+{
+ CAMLparam1(s);
+ CAMLreturn(s);
+}
+
+value
+ml_mDOMString_of_string(value s)
+{
+ CAMLparam1(s);
+ CAMLreturn(s);
+}
+
+value
+ml_doc_load(value file_name)
+{
+ mDOMDocRef doc_ref;
+
+ CAMLparam1(file_name);
+
+ doc_ref = mdom_load(String_val(file_name), FALSE, NULL);
+ if (doc_ref == NULL) failwith("minidom: could not load document");
+
+ CAMLreturn((value) doc_ref);
+}
+
+value
+ml_doc_unload(value doc)
+{
+ CAMLparam1(doc);
+
+ mdom_unload((mDOMDocRef) doc);
+
+ CAMLreturn(Val_unit);
+}
+
+value
+ml_doc_new(value s)
+{
+ mDOMDocRef doc_ref;
+
+ CAMLparam1(s);
+
+ doc_ref = mdom_doc_new(mDOMString_val(s));
+ if (doc_ref == NULL) failwith("minidom: could not create new document");
+
+ CAMLreturn((value) doc_ref);
+}
+
+
+value
+ml_doc_get_root_node(value doc)
+{
+ mDOMNodeRef root;
+
+ CAMLparam1(doc);
+ root = mdom_doc_get_root_node((mDOMDocRef) doc);
+ if (root == NULL) failwith("minidom: document has no root node!");
+
+ CAMLreturn((value) root);
+}
+
+value
+ml_doc_add_entity(value doc, value name, value content)
+{
+ mDOMEntityRef ent;
+
+ CAMLparam3(doc, name, content);
+ ent = mdom_doc_add_entity((mDOMDocRef) doc, mDOMString_val(name), mDOMString_val(content));
+ if (ent == NULL) failwith("minidom: could not add entity");
+
+ CAMLreturn((value) ent);
+}
+
+value
+ml_doc_get_entity(value doc, value name)
+{
+ mDOMEntityRef ent;
+
+ CAMLparam2(doc, name);
+ ent = mdom_doc_get_entity((mDOMDocRef) doc, mDOMString_val(name));
+
+ CAMLreturn(Val_option(ent, Val_ptr));
+}
+
+value
+ml_doc_get_predefined_entity(value name)
+{
+ mDOMEntityRef ent;
+
+ CAMLparam1(name);
+ ent = mdom_get_predefined_entity(mDOMString_val(name));
+
+ CAMLreturn(Val_option(ent, Val_ptr));
+}
+
+value
+ml_entity_get_content(value ent)
+{
+ CAMLparam1(ent);
+ CAMLreturn(Val_mDOMString(mdom_entity_get_content((mDOMEntityRef) ent)));
+}
+
+value
+ml_node_is_text(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_text((mDOMNodeRef) node)));
+}
+
+value
+ml_node_is_element(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_element((mDOMNodeRef) node)));
+}
+
+value
+ml_node_is_blank(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_blank((mDOMNodeRef) node)));
+}
+
+value
+ml_node_is_entity_ref(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_entity_ref((mDOMNodeRef) node)));
+}
+
+value
+ml_node_get_type(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_int(mdom_node_get_type((mDOMNodeRef) node)));
+}
+
+value
+ml_node_get_name(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
+}
+
+value
+ml_node_get_content(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
+}
+
+value
+ml_node_get_ns_uri(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_ns_uri((mDOMNodeRef) node), Val_mDOMString));
+}
+
+value
+ml_node_get_attribute(value node, value name)
+{
+ CAMLparam2(node,name);
+ CAMLreturn(Val_option(mdom_node_get_attribute((mDOMNodeRef) node, String_val(name)), Val_mDOMString));
+}
+
+value
+ml_node_get_attribute_ns(value node, value name, value ns_uri)
+{
+ CAMLparam2(node,name);
+ CAMLreturn(Val_option(mdom_node_get_attribute_ns((mDOMNodeRef) node,
+ String_val(name),
+ String_val(ns_uri)), Val_mDOMString));
+}
+
+value
+ml_node_get_parent(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_parent((mDOMNodeRef) node), Val_ptr));
+}
+
+value
+ml_node_get_prev_sibling(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_prev_sibling((mDOMNodeRef) node), Val_ptr));
+}
+
+value
+ml_node_get_next_sibling(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_next_sibling((mDOMNodeRef) node), Val_ptr));
+}
+
+value
+ml_node_get_first_child(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_first_child((mDOMNodeRef) node), Val_ptr));
+}
+
+value
+ml_node_get_first_attribute(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_first_attribute((mDOMNodeRef) node), Val_ptr));
+}
+
+value
+ml_node_is_first(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_first((mDOMNodeRef) node)));
+}
+
+value
+ml_node_is_last(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_bool(mdom_node_is_last((mDOMNodeRef) node)));
+}
+
+value
+ml_attr_get_name(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_name((mDOMAttrRef) attr), Val_mDOMString));
+}
+
+value
+ml_attr_get_ns_uri(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_ns_uri((mDOMAttrRef) attr), Val_mDOMString));
+}
+
+value
+ml_attr_get_value(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_value((mDOMAttrRef) attr), Val_mDOMString));
+}
+
+value
+ml_attr_get_prev_sibling(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_prev_sibling((mDOMAttrRef) attr), Val_ptr));
+}
+
+value
+ml_attr_get_next_sibling(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_next_sibling((mDOMAttrRef) attr), Val_ptr));
+}
+
+value
+ml_attr_get_parent(value attr)
+{
+ CAMLparam1(attr);
+ CAMLreturn(Val_option(mdom_attr_get_parent((mDOMAttrRef) attr), Val_ptr));
+}
+
--- /dev/null
+
+#ifndef ml_minidom_h
+#define ml_minidom_h
+
+#define Val_ptr(p) ((value) (p))
+#ifndef Val_option
+#define Val_option(p,f) ((p != NULL) ? ml_some(f(p)) : Val_unit)
+#endif /* Val_option */
+#define Val_mDOMString(s) (copy_string((char*) (s)))
+#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
+#define mDOMNode_val(v) ((mDOMNodeRef) v)
+
+#define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit)
+#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0))
+#define Val_mDOMNodeRef(p) (mDOMNode_option_mDOMNodeRef(p))
+#define mDOMNodeRef_val(v) (mDOMNodeRef_mDOMNode_option(v))
+
+#endif /* ml_minidom_h */
--- /dev/null
+
+exception Node_has_no_parent;;
+exception Node_has_no_sibling of string;;
+exception Node_has_no_children;;
+exception Node_has_no_attributes;;
+exception Attribute_has_no_sibling of string;;
+exception Attribute_has_no_parent;;
+exception Undefined_entity;;
+
+let option_to_exception v e =
+ match v with
+ Some x -> x
+ | None -> raise e
+;;
+
+class o_mDOMString (str: Minidom.mDOMString) =
+ object
+ method get_dom_string = str
+ method get_string = Minidom.string_of_mDOMString str
+ end;;
+
+let o_mDOMString_of_string str =
+ new o_mDOMString (Minidom.mDOMString_of_string str)
+
+class o_mDOMEntity (ent : Minidom.mDOMEntity) =
+ object
+ method get_dom_entity = ent
+ method get_content =
+ new o_mDOMString (Minidom.entity_get_content ent)
+ end
+;;
+
+class o_mDOMDoc (doc : Minidom.mDOMDoc) =
+ object
+ method get_dom_doc = doc
+
+ method get_root_node =
+ new o_mDOMNode (Minidom.doc_get_root_node doc)
+ method add_entity (name : o_mDOMString) (value : o_mDOMString) =
+ new o_mDOMEntity
+ (Minidom.doc_add_entity doc
+ (name#get_dom_string) (value#get_dom_string)
+ )
+ method get_entity (name : o_mDOMString) =
+ match Minidom.doc_get_entity doc (name#get_dom_string) with
+ | Some x -> new o_mDOMEntity x
+ | None -> raise Undefined_entity
+ method get_predefined_entity (name : o_mDOMString) =
+ match Minidom.doc_get_predefined_entity doc (name#get_dom_string) with
+ | Some x -> new o_mDOMEntity x
+ | None -> raise Undefined_entity
+ end
+and o_mDOMNode (node : Minidom.mDOMNode) =
+ object
+ method get_dom_node = node
+
+ method is_text = Minidom.node_is_text node
+ method is_element = Minidom.node_is_element node
+ method is_blank = Minidom.node_is_blank node
+ method is_entity_ref = Minidom.node_is_entity_ref node
+
+ method get_type = Minidom.node_get_type node
+ method get_name =
+ match Minidom.node_get_name node with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_ns_uri =
+ match Minidom.node_get_ns_uri node with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_attribute (name : o_mDOMString) =
+ match Minidom.node_get_attribute node (name#get_dom_string) with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_attribute_ns (name : o_mDOMString) (uri : o_mDOMString) =
+ match
+ Minidom.node_get_attribute_ns node
+ (name#get_dom_string) (uri#get_dom_string)
+ with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_content =
+ match Minidom.node_get_content node with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_parent =
+ new o_mDOMNode
+ (option_to_exception (Minidom.node_get_parent node) Node_has_no_parent)
+ method get_prev_sibling =
+ new o_mDOMNode
+ (option_to_exception
+ (Minidom.node_get_prev_sibling node)
+ (Node_has_no_sibling "left")
+ )
+ method get_next_sibling =
+ new o_mDOMNode
+ (option_to_exception
+ (Minidom.node_get_next_sibling node)
+ (Node_has_no_sibling "right")
+ )
+ method get_first_child =
+ new o_mDOMNode
+ (option_to_exception
+ (Minidom.node_get_first_child node)
+ (Node_has_no_children)
+ )
+ method get_first_attribute =
+ new o_mDOMAttr
+ (option_to_exception
+ (Minidom.node_get_first_attribute node)
+ (Node_has_no_attributes)
+ )
+ method is_first = Minidom.node_is_first node
+ method is_last = Minidom.node_is_last node
+
+ method get_children =
+ List.map (function x -> new o_mDOMNode x) (Minidom.node_get_children node)
+ method get_attributes = List.map
+ (function x -> new o_mDOMAttr x) (Minidom.node_get_attributes node)
+ end
+and o_mDOMAttr (attr : Minidom.mDOMAttr) =
+ object
+ method get_dom_attr = attr
+
+ method get_name =
+ match Minidom.attr_get_name attr with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_ns_uri =
+ match Minidom.attr_get_ns_uri attr with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_value =
+ match Minidom.attr_get_value attr with
+ | Some x -> Some (new o_mDOMString x)
+ | None -> None
+ method get_prev_sibling =
+ new o_mDOMAttr
+ (option_to_exception
+ (Minidom.attr_get_prev_sibling attr)
+ (Attribute_has_no_sibling "left")
+ )
+ method get_next_sibling =
+ new o_mDOMAttr
+ (option_to_exception
+ (Minidom.attr_get_next_sibling attr)
+ (Attribute_has_no_sibling "right")
+ )
+ method get_parent =
+ new o_mDOMNode
+ (option_to_exception
+ (Minidom.attr_get_parent attr) Attribute_has_no_parent
+ )
+ end
+;;
+
--- /dev/null
+exception Node_has_no_parent
+exception Node_has_no_sibling of string
+exception Node_has_no_children
+exception Node_has_no_attributes
+exception Attribute_has_no_sibling of string
+exception Attribute_has_no_parent
+exception Undefined_entity
+
+class o_mDOMString : Minidom.mDOMString ->
+ object
+ method get_dom_string : Minidom.mDOMString
+ method get_string : string
+ end
+
+val o_mDOMString_of_string : string -> o_mDOMString
+
+class o_mDOMEntity : Minidom.mDOMEntity ->
+ object
+ method get_content : o_mDOMString
+ method get_dom_entity : Minidom.mDOMEntity
+ end
+
+class o_mDOMDoc : Minidom.mDOMDoc ->
+ object
+ method add_entity : o_mDOMString -> o_mDOMString -> o_mDOMEntity
+ method get_dom_doc : Minidom.mDOMDoc
+ method get_entity : o_mDOMString -> o_mDOMEntity
+ method get_predefined_entity : o_mDOMString -> o_mDOMEntity
+ method get_root_node : o_mDOMNode
+ end
+and o_mDOMNode : Minidom.mDOMNode ->
+ object
+ method get_attribute : o_mDOMString -> o_mDOMString option
+ method get_attribute_ns :
+ o_mDOMString -> o_mDOMString -> o_mDOMString option
+ method get_attributes : o_mDOMAttr list
+ method get_children : o_mDOMNode list
+ method get_content : o_mDOMString option
+ method get_dom_node : Minidom.mDOMNode
+ method get_first_attribute : o_mDOMAttr
+ method get_first_child : o_mDOMNode
+ method get_name : o_mDOMString option
+ method get_next_sibling : o_mDOMNode
+ method get_ns_uri : o_mDOMString option
+ method get_parent : o_mDOMNode
+ method get_prev_sibling : o_mDOMNode
+ method get_type : int
+ method is_blank : bool
+ method is_element : bool
+ method is_entity_ref : bool
+ method is_first : bool
+ method is_last : bool
+ method is_text : bool
+ end
+and o_mDOMAttr : Minidom.mDOMAttr ->
+ object
+ method get_dom_attr : Minidom.mDOMAttr
+ method get_name : o_mDOMString option
+ method get_next_sibling : o_mDOMAttr
+ method get_ns_uri : o_mDOMString option
+ method get_parent : o_mDOMNode
+ method get_prev_sibling : o_mDOMAttr
+ method get_value : o_mDOMString option
+ end
--- /dev/null
+
+let doc = Minidom.doc_load "test.xml"
+
+let root = Minidom.doc_get_root_node doc
+
+let check_attribute_ns attr =
+ Printf.printf "\n\n";
+ let ns_uri = Minidom.attr_get_ns_uri attr
+ and attr_name = Minidom.attr_get_name attr
+ and attr_value = Minidom.attr_get_value attr
+ and parent = Minidom.attr_get_parent attr
+ in
+ match parent,ns_uri,attr_name,attr_value with
+ Some parent_node,Some uri,Some attribute_name,Some attribute_value ->
+ let attr_value = Minidom.node_get_attribute_ns parent_node attribute_name uri
+ in begin
+ match attr_value with
+ Some attr1 ->
+ Printf.printf "found the attribute with ns %s (was %s)\n"
+ (Minidom.string_of_mDOMString attr1) (Minidom.string_of_mDOMString attribute_value)
+ | None ->
+ Printf.printf "attribute not found (uri was %s)!!!!\n" (Minidom.string_of_mDOMString uri)
+ end
+ | _ ->
+ Printf.printf "parent_node == NULL || uri == NULL || attribute_name == NULL || attribute_value == NULL\n"
+;;
+
+let print_attribute attr =
+ check_attribute_ns attr;
+ let ns_uri = Minidom.attr_get_ns_uri attr
+ in
+ begin
+ match ns_uri with
+ Some uri -> Printf.printf " %s:" (Minidom.string_of_mDOMString uri);
+ | None -> ()
+ end;
+ match ((Minidom.attr_get_name attr), (Minidom.attr_get_value attr)) with
+ (Some attr_name, Some attr_value) ->
+ Printf.printf " %s=\"%s\"" (Minidom.string_of_mDOMString attr_name) (Minidom.string_of_mDOMString attr_value)
+ | (Some attr_name, _) ->
+ Printf.printf " ??? attribute %s has no value !!!" (Minidom.string_of_mDOMString attr_name)
+ | (_,_) ->
+ Printf.printf " ??? very strange attribute !!!"
+;;
+
+let rec print_node n node =
+ if Minidom.node_is_blank node then ()
+ else if Minidom.node_is_element node then begin
+ match Minidom.node_get_name node with
+ Some node_name ->
+ begin
+ let children = Minidom.node_get_children node
+ and attributes = Minidom.node_get_attributes node
+ and ns_uri = Minidom.node_get_ns_uri node
+ and is_first,is_last = (Minidom.node_is_first node), (Minidom.node_is_last node)
+ in
+ for i = 1 to n do print_char ' ' done;
+ Printf.printf "<";
+ begin
+ match ns_uri with
+ Some uri -> Printf.printf "%s:" (Minidom.string_of_mDOMString uri)
+ | None -> ()
+ end;
+ Printf.printf "%s" (Minidom.string_of_mDOMString node_name);
+ List.iter print_attribute attributes;
+ Printf.printf ">\n";
+ List.iter (print_node (n + 2)) children;
+ for i = 1 to n do print_char ' ' done;
+ Printf.printf "</%s>\n" (Minidom.string_of_mDOMString node_name)
+ end
+ | None -> Printf.printf "??? this node has no name !!!\n"
+ end else if Minidom.node_is_text node then begin
+ match Minidom.node_get_content node with
+ Some node_content ->
+ for i = 1 to n do print_char ' ' done;
+ Printf.printf "%s\n" (Minidom.string_of_mDOMString node_content)
+ | None -> Printf.printf "??? this node has no content !!!\n"
+ end else begin
+ Printf.printf "don't know how to manage a node with type %d\n" (Minidom.node_get_type node)
+ end
+;;
+
+print_node 0 root;;
+
--- /dev/null
+<?xml version="1.0" encoding="iso-8859-1"?>
+<?cocoon-format type="text/xhtml"?>
+<m:math xmlns:helm="http://www.cs.unibo.it/helm" xmlns:m="http://www.w3.org/1998/Math/MathML">
+ <m:mtable helm:xref="i0" columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>DEFINITION and_ind() OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom>
+ <m:mtext>__</m:mtext>
+ </m:mphantom>
+ <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
+ <m:mrow helm:xref="i22">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <m:mrow helm:xref="i23">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <m:mi>A</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i24">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i25">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <m:mi>B</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i26">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i27">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <m:mi>P</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i28">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i29">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <m:mi>f</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i30">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi helm:xref="i31">A</m:mi>
+ <m:mo color="Blue">→</m:mo>
+ <m:mrow helm:xref="i32">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi helm:xref="i33">B</m:mi>
+ <m:mo color="Blue">→</m:mo>
+ <m:mi helm:xref="i34">P</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i35">
+ <m:mo color="Blue">Π</m:mo>
+ <m:mi>a</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i36">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi helm:xref="i38">A</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi helm:xref="i39">B</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ <m:mo>.</m:mo>
+ <m:mi helm:xref="i40">P</m:mi>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="#b03060">:></m:mo>
+ <m:mrow helm:xref="i41">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ <m:annotation-xml encoding="MathML">
+ <m:apply helm:xref="i22">
+ <m:csymbol>cast</m:csymbol>
+ <m:apply helm:xref="i23">
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>A</m:ci>
+ <m:type>
+ <m:apply helm:xref="i24">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:apply helm:xref="i25">
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>B</m:ci>
+ <m:type>
+ <m:apply helm:xref="i26">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:apply helm:xref="i27">
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>P</m:ci>
+ <m:type>
+ <m:apply helm:xref="i28">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:apply helm:xref="i29">
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>f</m:ci>
+ <m:type>
+ <m:apply helm:xref="i30">
+ <m:csymbol>arrow</m:csymbol>
+ <m:ci helm:xref="i31">A</m:ci>
+ <m:apply helm:xref="i32">
+ <m:csymbol>arrow</m:csymbol>
+ <m:ci helm:xref="i33">B</m:ci>
+ <m:ci helm:xref="i34">P</m:ci>
+ </m:apply>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:apply helm:xref="i35">
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>a</m:ci>
+ <m:type>
+ <m:apply helm:xref="i36">
+ <m:csymbol>app</m:csymbol>
+ <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:ci>
+ <m:ci helm:xref="i38">A</m:ci>
+ <m:ci helm:xref="i39">B</m:ci>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:ci helm:xref="i40">P</m:ci>
+ </m:apply>
+ </m:apply>
+ </m:apply>
+ </m:apply>
+ </m:apply>
+ <m:apply helm:xref="i41">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:apply>
+ </m:annotation-xml>
+ </m:semantics>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AS</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom>
+ <m:mtext>__</m:mtext>
+ </m:mphantom>
+ <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
+ <m:mrow helm:xref="i1">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <m:mi>A</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i2">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i3">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <m:mi>B</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i4">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i5">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <m:mi>P</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i6">
+ <m:mo>Prop</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i7">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <m:mi>f</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i8">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi helm:xref="i9">A</m:mi>
+ <m:mo color="Blue">→</m:mo>
+ <m:mrow helm:xref="i10">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi helm:xref="i11">B</m:mi>
+ <m:mo color="Blue">→</m:mo>
+ <m:mi helm:xref="i12">P</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i13">
+ <m:mtable columnalign="left" equalrows="false" align="baseline 1">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <m:mi>a</m:mi>
+ <m:mo>:</m:mo>
+ <m:mrow helm:xref="i14">
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi helm:xref="i16">A</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi helm:xref="i17">B</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <m:mrow helm:xref="i18">
+ <m:mo><</m:mo>
+ <m:mi helm:xref="i19">P</m:mi>
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi helm:xref="i20">a</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mo>OF</m:mo>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi>conj</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi>$1</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi>$2</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ <m:mo color="Green">⇒</m:mo>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <m:mi helm:xref="i21">f</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi>$1</m:mi>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mi>$2</m:mi>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ <m:mphantom>
+ <m:mtext>_</m:mtext>
+ </m:mphantom>
+ <m:mo>END</m:mo>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:mrow>
+ <m:annotation-xml encoding="MathML">
+ <m:lambda helm:xref="i1">
+ <m:bvar>
+ <m:ci>A</m:ci>
+ <m:type>
+ <m:apply helm:xref="i2">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:lambda helm:xref="i3">
+ <m:bvar>
+ <m:ci>B</m:ci>
+ <m:type>
+ <m:apply helm:xref="i4">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:lambda helm:xref="i5">
+ <m:bvar>
+ <m:ci>P</m:ci>
+ <m:type>
+ <m:apply helm:xref="i6">
+ <m:csymbol>Prop</m:csymbol>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:lambda helm:xref="i7">
+ <m:bvar>
+ <m:ci>f</m:ci>
+ <m:type>
+ <m:apply helm:xref="i8">
+ <m:csymbol>arrow</m:csymbol>
+ <m:ci helm:xref="i9">A</m:ci>
+ <m:apply helm:xref="i10">
+ <m:csymbol>arrow</m:csymbol>
+ <m:ci helm:xref="i11">B</m:ci>
+ <m:ci helm:xref="i12">P</m:ci>
+ </m:apply>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:lambda helm:xref="i13">
+ <m:bvar>
+ <m:ci>a</m:ci>
+ <m:type>
+ <m:apply helm:xref="i14">
+ <m:csymbol>app</m:csymbol>
+ <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:ci>
+ <m:ci helm:xref="i16">A</m:ci>
+ <m:ci helm:xref="i17">B</m:ci>
+ </m:apply>
+ </m:type>
+ </m:bvar>
+ <m:apply helm:xref="i18">
+ <m:csymbol>mutcase</m:csymbol>
+ <m:ci helm:xref="i19">P</m:ci>
+ <m:ci helm:xref="i20">a</m:ci>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <m:ci>conj</m:ci>
+ <m:ci>$1</m:ci>
+ <m:ci>$2</m:ci>
+ </m:apply>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <m:ci helm:xref="i21">f</m:ci>
+ <m:ci>$1</m:ci>
+ <m:ci>$2</m:ci>
+ </m:apply>
+ </m:apply>
+ </m:lambda>
+ </m:lambda>
+ </m:lambda>
+ </m:lambda>
+ </m:lambda>
+ </m:annotation-xml>
+ </m:semantics>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+</m:math>
--- /dev/null
+#include <assert.h>
+#include <string.h>
+#include <assert.h>
+#include <gtk/gtk.h>
+#include <caml/mlvalues.h>
+#include <caml/alloc.h>
+#include <caml/memory.h>
+#include <caml/callback.h>
+#include <caml/fail.h>
+
+#include <gtkmathview/gtkmathview.h>
+#include <ml_gtk.h>
+
+#include <wrappers.h>
+#include <ml_glib.h>
+#include <ml_gdk.h>
+#include <ml_gtk.h>
+#include <gtk_tags.h>
+
+#include <minidom.h>
+#include "minidom/ml_minidom.h"
+
+/* <CSC/>: Next row should be put in a .h of lablgtk. */
+#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
+
+#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
+
+#define FontManagerId_val(val) Int_val(val)
+#define Val_FontManagerId(val) Val_int(val)
+
+FontManagerId
+font_manager_id_of_value(value v)
+{
+ if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
+ else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
+ else assert(0);
+}
+
+value
+value_of_font_manager_id(FontManagerId id)
+{
+ switch (id) {
+ case FONT_MANAGER_GTK:
+ return hash_variant("font_manager_gtk");
+ case FONT_MANAGER_T1:
+ return hash_variant("font_manager_t1");
+ default:
+ assert(0);
+ break;
+ }
+}
+
+ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
+ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
+ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
+/*ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)*/
+ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
+ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
+ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
+ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
+ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
+ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
+ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
+ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
+ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
+ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
+ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
+ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
+ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
+ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
+ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
+ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
+ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
+ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
+ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
+ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
+
+value
+ml_gtk_math_view_export_to_postscript_native(value arg1,
+ value w, value h, value x0, value y0, value disable_colors, value arg2)
+{
+ CAMLparam5(arg1,w,h,x0,y0);
+ CAMLxparam2(disable_colors, arg2);
+
+ char *filename;
+ FILE *fd;
+ int res;
+ filename = String_val (arg2);
+ if ((fd = fopen(filename, "w"))) {
+ gtk_math_view_export_to_postscript(GtkMathView_val (arg1),
+ Int_val(w), Int_val(h), Int_val(x0), Int_val(y0), Bool_val(disable_colors), fd);
+ fclose (fd);
+ res = 1;
+ } else {
+ fprintf(stderr, "Error opening file %s for writing\n", filename);
+ res = 0;
+ }
+ CAMLreturn (Val_bool(res));
+}
+
+value ml_gtk_math_view_export_to_postscript_bytecode (value* arg, int argn)
+{
+ return ml_gtk_math_view_export_to_postscript_native(arg[0], arg[1], arg[2], arg[3], arg[4], arg[5], arg[6]);
+}
+
+value ml_gtk_math_view_get_top (value arg1)
+{
+ CAMLparam1(arg1);
+ CAMLlocal1 (result);
+ int x, y;
+ gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
+ result = alloc(2, 0);
+ Store_field(result, 0, Val_int(x));
+ Store_field(result, 0, Val_int(y));
+ CAMLreturn (result);
+}
+
+
+value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
+{
+ CAMLparam1(arg1);
+
+ mDOMNodeRef nr;
+ CAMLlocal1 (tmp);
+ CAMLlocal1 (optval);
+ CAMLlocal1 (res);
+
+ if (arg1==Val_int(0)) {
+ assert(0);
+ } else {
+ tmp = Field(arg1, 0);
+ nr = (mDOMNodeRef) Field(tmp, 1);
+ }
+ optval = Val_mDOMNodeRef(nr);
+ if (optval==Val_int(0)) {
+ assert(0);
+ } else {
+ res = Field(optval, 0);
+ }
+
+ CAMLreturn(res);
+}
+
+value ml_gtk_math_view_mDOMNode_option_of_bodex_option (value arg1)
+{
+ CAMLparam1(arg1);
+
+ mDOMNodeRef nr;
+ CAMLlocal1 (tmp);
+
+ if (arg1==Val_int(0)) {
+ nr=NULL;
+ } else {
+ tmp = Field(arg1, 0);
+ nr = (mDOMNodeRef) Field(tmp, 1);
+ }
+
+ CAMLreturn(Val_mDOMNodeRef(nr));
+}
--- /dev/null
+*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o
--- /dev/null
+LABLGTK_DIR = /usr/lib/ocaml/lablgtk
+LABLGTK_MATHVIEW_DIR = ..
+MINIDOM_DIR = ../minidom
+OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
+ -I $(MINIDOM_DIR) -I mlmathview
+OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
+ -I $(MINIDOM_DIR) -I mlmathview
+
+all: test
+opt: test.opt
+
+test: test.cmo
+ $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
+ $(MINIDOM_DIR)/minidom.cmo \
+ $(MINIDOM_DIR)/ominidom.cmo \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
+ -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
+ test.cmo \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
+
+test.opt: test.cmx
+ $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
+ $(MINIDOM_DIR)/minidom.cmx \
+ $(MINIDOM_DIR)/ominidom.cmx \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
+ -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
+ test.cmx \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
+
+.SUFFIXES: .ml .mli .cmo .cmi .cmx
+.ml.cmo:
+ $(OCAMLC) -c $<
+.mli.cmi:
+ $(OCAMLC) -c $<
+.ml.cmx:
+ $(OCAMLOPT) -c $<
+
+clean:
+ rm -f *.cm[iox] *.o test test.opt t1lib.log test.ps
--- /dev/null
+ENCODING=.
+AFM=/usr/share/texmf/fonts/afm/
+TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.
--- /dev/null
+(******************************************************************************)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 25/09/2000 *)
+(* *)
+(* This is a simple test for the OCaml (LablGtk indeed) binding of the *)
+(* MathView widget *)
+(******************************************************************************)
+
+(* Callbacks *)
+let jump (node : Ominidom.o_mDOMNode) =
+ let module O = Ominidom in
+ print_string ("jump: " ^
+ (match node#get_attribute (O.o_mDOMString_of_string "href") with
+ | Some x -> x#get_string
+ | None -> "NO HREF FOR THIS NODE"
+ ) ^ "\n");
+ flush stdout
+;;
+
+let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
+ let module O = Ominidom in
+ print_string ("selection_changed: " ^
+ (match node with
+ None -> "selection_changed on nothing"
+ | Some node ->
+ match node#get_name with
+ | Some x -> x#get_string
+ | None -> "on element without name"
+ ) ^ "\n");
+ mathview#set_selection node;
+ flush stdout
+;;
+
+
+let clicked (node : Ominidom.o_mDOMNode) =
+ let module O = Ominidom in
+ print_string ("clicked: " ^
+ (match node#get_name with
+ | Some x -> x#get_string
+ | None -> "no name"
+ ) ^ "\n");
+ flush stdout
+;;
+
+
+let activate_t1 mathview () =
+ mathview#set_font_manager_type `font_manager_t1;
+ print_string "WIDGET SET WITH T1 FONTS\n" ;
+ flush stdout
+;;
+
+let activate_gtk mathview () =
+ mathview#set_font_manager_type `font_manager_gtk;
+ print_string "WIDGET SET WITH GTK FONTS\n" ;
+ flush stdout
+;;
+
+let get_font_manager_type mathview () =
+ print_string "CURRENT FONT MANAGER TYPE: ";
+ begin
+ match mathview#get_font_manager_type with
+ | `font_manager_t1 -> print_string "T1"
+ | `font_manager_gtk -> print_string "GTK"
+ end;
+ print_newline();
+ flush stdout
+;;
+
+let load mathview () =
+ mathview#load "test.xml" ;
+ print_string "load: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let get_selection mathview () =
+ let module O = Ominidom in
+ let selection =
+ match mathview#get_selection with
+ | Some node ->
+ begin
+ match node#get_name with
+ | Some name -> name#get_string
+ | None -> "element with no name!"
+ end
+ | None -> "no selection!"
+ in
+ print_string ("get_selection: " ^ selection ^ "\n") ;
+ flush stdout
+;;
+
+let set_selection mathview () =
+ let module O = Ominidom in
+ begin
+ match mathview#get_selection with
+ | Some node ->
+ begin
+ try
+ let parent_node = node#get_parent in
+ mathview#set_selection (Some parent_node);
+ print_string "set selection: SEEMS TO WORK\n"
+ with
+ _ -> print_string "EXCEPTION: no parent\n"
+ end
+ | None ->
+ mathview#set_selection None;
+ print_string "no selection\n"
+ end ;
+ flush stdout
+;;
+
+let unload mathview () =
+ mathview#unload ;
+ print_string "unload: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let get_width mathview () =
+ print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
+ flush stdout
+;;
+
+let get_height mathview () =
+ print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
+ flush stdout
+;;
+
+let get_top mathview () =
+ let (x,y) = mathview#get_top in
+ print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
+ flush stdout
+;;
+
+let set_top mathview () =
+ mathview#set_top 0 0;
+ print_string "set_top: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let set_adjustments mathview () =
+ let adj1 = GData.adjustment () in
+ let adj2 = GData.adjustment () in
+ mathview#set_adjustments adj1 adj2 ;
+ adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
+ adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
+ print_string "set_adjustments: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_hadjustment mathview () =
+ let adj = mathview#get_hadjustment in
+ adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
+ print_string "get_hadjustment: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_vadjustment mathview () =
+ let adj = mathview#get_vadjustment in
+ adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
+ print_string "get_vadjustment: SEEM TO WORK\n" ;
+ flush stdout
+;;
+
+let get_buffer mathview () =
+ let buffer = mathview#get_buffer in
+ Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
+ ~width:50 ~height:50 ~filled:true () ;
+ print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
+ flush stdout
+;;
+
+let get_frame mathview () =
+ let frame = mathview#get_frame in
+ frame#set_shadow_type `NONE ;
+ print_string "get_frame: SEEMS TO WORK\n" ;
+ flush stdout
+;;
+
+let set_font_size mathview () =
+ mathview#set_font_size 24 ;
+ print_string "set_font_size: FONT IS NOW 24\n" ;
+ flush stdout
+;;
+
+let get_font_size mathview () =
+ print_string ("get_font_size: " ^ string_of_int (mathview#get_font_size) ^ "\n") ;
+ flush stdout
+;;
+
+let set_anti_aliasing mathview () =
+ mathview#set_anti_aliasing true ;
+ print_string "set_anti_aliasing: ON\n" ;
+ flush stdout
+;;
+
+let get_anti_aliasing mathview () =
+ print_string ("get_anti_aliasing: " ^
+ (match mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
+ "\n") ;
+ flush stdout
+;;
+
+let set_kerning mathview () =
+ mathview#set_kerning true ;
+ print_string "set_kerning: ON\n" ;
+ flush stdout
+;;
+
+let get_kerning mathview () =
+ print_string ("get_kerning: " ^
+ (match mathview#get_kerning with true -> "ON" | false -> "OFF") ^
+ "\n") ;
+ flush stdout
+;;
+
+let set_log_verbosity mathview () =
+ mathview#set_log_verbosity 3 ;
+ print_string "set_log_verbosity: NOW IS 3\n" ;
+ flush stdout
+;;
+
+let get_log_verbosity mathview () =
+ print_string ("get_log_verbosity: " ^
+ string_of_int mathview#get_log_verbosity ^
+ "\n") ;
+ flush stdout
+;;
+
+let export_to_postscript (mathview : GMathView.math_view) () =
+ mathview#export_to_postscript ~filename:"test.ps" ();
+ print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
+ flush stdout
+;;
+
+(* Widget creation *)
+let main_window = GWindow.window ~title:"GtkMathView test" () in
+let vbox = GPack.vbox ~packing:main_window#add () in
+let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
+let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
+let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
+let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in
+let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
+let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
+let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
+let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
+let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
+let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
+let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
+let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
+let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
+let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
+let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
+let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
+let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
+let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
+let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
+let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
+let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
+let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
+let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
+let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
+let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
+let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
+let button_t1 = GButton.button ~label:"activate T1 fonts" ~packing:(table#attach ~left:3 ~top:4) () in
+let button_get_font_manager_type = GButton.button ~label:"get_font_manager" ~packing:(table#attach ~left:4 ~top:4) () in
+(* Signals connection *)
+ignore(button_gtk#connect#clicked (activate_gtk mathview)) ;
+ignore(button_load#connect#clicked (load mathview)) ;
+ignore(button_unload#connect#clicked (unload mathview)) ;
+ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
+ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
+ignore(button_get_width#connect#clicked (get_width mathview)) ;
+ignore(button_get_height#connect#clicked (get_height mathview)) ;
+ignore(button_get_top#connect#clicked (get_top mathview)) ;
+ignore(button_set_top#connect#clicked (set_top mathview)) ;
+ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
+ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
+ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
+ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
+ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
+ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
+ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
+ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
+ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
+ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
+ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
+ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
+ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
+ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
+ignore(button_t1#connect#clicked (activate_t1 mathview)) ;
+ignore(button_get_font_manager_type#connect#clicked (get_font_manager_type mathview)) ;
+ignore(mathview#connect#jump jump) ;
+ignore(mathview#connect#clicked clicked) ;
+ignore(mathview#connect#selection_changed (selection_changed mathview)) ;
+(* Main Loop *)
+main_window#show () ;
+GMain.Main.main ()
+;;
--- /dev/null
+<math display="block">
+ <mrow helm:xref="SELECTION OK">
+ <mo>∫</mo>
+ <mo>⁡</mo>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mi>a</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>b</mi>
+ </mrow>
+ <mrow>
+ <msup>
+ <mi>x</mi>
+ <mn>2</mn>
+ </msup>
+ <mo>+</mo>
+ <mrow>
+ <mi>p</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>q</mi>
+ </mrow>
+ </mfrac>
+ </mrow>
+ <mo fontstyle="italic">d</mo>
+ <mi>x</mi>
+ <mo>=</mo>
+ <mrow>
+ <mrow>
+ <mfrac><mi>a</mi><mn>2</mn></mfrac>
+ <mo>⁢</mo>
+ <mrow>
+ <mi>ln</mi>
+ <mo>⁡</mo>
+ <mrow>
+ <mo>(</mo>
+ <mrow>
+ <msup><mi>x</mi><mn>2</mn></msup>
+ <mo>+</mo>
+ <mrow>
+ <mi>p</mi>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>)</mo>
+ </mrow>
+ </mrow>
+ </mrow>
+ <mo>+</mo>
+ <mrow>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mn>2</mn>
+ <mo>⁢</mo>
+ <mi>b</mi>
+ </mrow>
+ <mo>-</mo>
+ <mrow>
+ <mi>a</mi>
+ <mo>⁢</mo>
+ <mi>p</mi>
+ </mrow>
+ </mrow>
+ <msqrt>
+ <mrow>
+ <mrow>
+ <mn>4</mn>
+ <mo>⁢</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>-</mo>
+ <msup>
+ <mi>p</mi>
+ <mn>2</mn>
+ </msup>
+ </mrow>
+ </msqrt>
+ </mfrac>
+ <mo>⁢</mo>
+ <mrow>
+ <mi xlink:href="JUMPS WORK">arctg</mi>
+ <mo>⁡</mo>
+ <mfrac>
+ <mrow>
+ <mrow>
+ <mn>2</mn>
+ <mo>⁢</mo>
+ <mi>x</mi>
+ </mrow>
+ <mo>+</mo>
+ <mi>p</mi>
+ </mrow>
+ <msqrt>
+ <mrow>
+ <mrow>
+ <mn>4</mn>
+ <mo>⁢</mo>
+ <mi>q</mi>
+ </mrow>
+ <mo>-</mo>
+ <msup>
+ <mi>p</mi>
+ <mn>2</mn>
+ </msup>
+ </mrow>
+ </msqrt>
+ </mfrac>
+ </mrow>
+ </mrow>
+ <mo>+</mo>
+ <mi>c</mi>
+ </mrow>
+</math>
--- /dev/null
+#!/usr/bin/perl
+
+# the required file defines: $helm_dir, $helm_url_path, $getheader_url,
+# $style_url, $webeq_url, $webeqp_url
+require "/local/lib/helm/configuration.pl";
+
+$baseuri0 = $dirname = $uri = $ENV{"REQUEST_URI"};
+
+$dirname =~ s/$helm_url_path//;
+$dirname = $helm_dir.$dirname;
+
+$baseuri0 =~ s/$helm_url_path//;
+
+opendir(DIR, $dirname);
+@filenames = readdir(DIR);
+closedir(DIR);
+
+$output = "";
+foreach $i (@filenames) {
+ if ($i eq "..") {
+ $output .= <<EOT;
+<img border="0" src="/icons/back.gif" alt="[BACK]"> <a href="$uri$i">Parent Directory</a>
+EOT
+ } elsif ($i !~ /^\./) {
+ # hidden files excluded
+ (undef,undef,$mode) = stat("$dirname$i");
+ if ($mode &= 16384) {
+ # directory
+ $output .= <<EOT;
+<img border="0" src="/icons/folder.gif" alt="[DIR]"> <a href="$uri$i">$i</a>
+EOT
+ } else {
+ # file
+ if ($i =~ /\.(con|var|ind)\.xml$/) {
+ my $i_without_xml = $i;
+ $i_without_xml =~ s/(.*)\.xml/$1/;
+ # cic file
+ my $baseuri = "cic:".$baseuri0;
+ $output .= <<EOT;
+<img border="0" src="/icons/generic.red.gif" alt="[DIR]"> <a
+href="$uri$i">$i</a> <a
+href="$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_xml">MathML</a> <a href="$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=content_to_html.xsl&xmluri=$baseuri$i_without_xml">HTML</a> <a href="$webeq_url?mmlurl=$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_xml">WEBEQ</a> <a href="$webeqp_url?mmlurl=$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_xml">WEBEQ PRESENTATION ONLY</a>
+EOT
+ } elsif ($i =~ /\.(con|var|ind)\.ann\.xml$/) {
+ my $i_without_xml = $i;
+ my $i_without_ann_and_xml = $i;
+ $i_without_xml =~ s/(.*)\.xml/$1/;
+ $i_without_ann_and_xml =~ s/(.*)\.ann\.xml/$1/;
+ # cic file
+ my $baseuri = "cic:".$baseuri0;
+ $output .= <<EOT;
+<img border="0" src="/icons/text.gif" alt="[DIR]"> <a href="$uri$i">$i</a> <a href="$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_ann_and_xml&annuri=$baseuri$i_without_xml">MathML</a> <a href="$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=content_to_html.xsl&xmluri=$baseuri$i_without_ann_and_xml&annuri=$baseuri$i_without_xml">HTML</a> <a href="$webeq_url?mmlurl=$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_ann_and_xml&annuri=$baseuri$i_without_xml">WEBEQ</a> <a href="$webeqp_url?mmlurl=$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$baseuri$i_without_ann_and_xml&annuri=$baseuri$i_without_xml">WEBEQ PRESENTATION ONLY</a>
+EOT
+ } elsif ($i =~ /\.theory\.xml$/) {
+ my $i_without_xml = $i;
+ $i_without_xml =~ s/(.*)\.xml/$1/;
+ # theory file
+ my $baseuri = "theory:".$baseuri0;
+ $output .= <<EOT;
+<img border="0" src="/icons/layout.gif" alt="[DIR]"> <a
+href="$uri$i">$i</a> <a href="$getheader_url?baseurl=$style_url&stylesheet1=theory_content.xsl&stylesheet2=theory_pres.xsl&xmluri=$baseuri$i_without_xml">MathML</a> <a href="$getheader_url?baseurl=$style_url&stylesheet1=roottheory.xsl&stylesheet2=content_to_html.xsl&xmluri=$baseuri$i_without_xml">HTML</a>
+EOT
+ } else {
+ # other file
+ $output .= <<EOT;
+<img border="0" src="/icons/unknown.gif" alt="[DIR]"> <a href="$uri$i">$i</a>
+EOT
+ }
+ }
+ }
+}
+
+print <<EOT;
+Content-type: text/html
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
+"http://www.w3.org/TR/REC-html40/loose.dtd">
+<html>
+<head>
+<title>Index of $uri</title>
+</head>
+<body bgcolor="#ffffff" text="#000000">
+<table><tr><td bgcolor="#ffffff" class="title">
+<font size="+3" face="Helvetica,Arial,sans-serif"><b>Index of $uri</b></font>
+</td></tr></table>
+<hr noshade align="left" width="80%">
+<pre>
+$output
+</pre>
+<hr noshade align="left" width="80%">
+</body>
+</html>
+EOT
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR HELM CONFIGURATION FILE: -->
+<!-- First draft: June 6 2000, Claudio Sacerdoti Coen -->
+<!-- Last Revision: June 6 2000, Claudio Sacerdoti Coen -->
+<!--*****************************************************************-->
+
+<!ELEMENT configuration (helm_dir, dtd_dir, servers_file, uris_dbm, dest,
+ indexname, tmpdir, helm_url_path,
+ getheader_url, style_url, webeq_url, webeqp_url,
+ use_webeqp_url, html_link, getter_url)>
+
+<!ENTITY % expr '(#PCDATA | value-of)*'>
+
+<!ELEMENT value-of EMPTY>
+<!ATTLIST value-of
+ var NMTOKEN #REQUIRED >
+
+<!ELEMENT helm_dir %expr;>
+<!ELEMENT dtd_dir %expr;>
+<!ELEMENT servers_file %expr;>
+<!ELEMENT uris_dbm %expr;>
+<!ELEMENT dest %expr;>
+<!ELEMENT indexname %expr;>
+<!ELEMENT tmpdir %expr;>
+<!ELEMENT helm_url_path %expr;>
+<!ELEMENT getheader_url %expr;>
+<!ELEMENT style_url %expr;>
+<!ELEMENT webeq_url %expr;>
+<!ELEMENT webeqp_url %expr;>
+<!ELEMENT use_webeqp_url %expr;>
+<!ELEMENT html_link %expr;>
+<!ELEMENT getter_url %expr;>
--- /dev/null
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<!DOCTYPE configuration SYSTEM "configuration.dtd">
+
+<configuration>
+ <helm_dir>/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples</helm_dir>
+
+ <dtd_dir><value-of var="helm_dir"/>/dtd</dtd_dir>
+ <servers_file>/home/pauillac/coq3/sacerdot/HELM/INTERFACE/servers.txt</servers_file>
+ <uris_dbm>/home/pauillac/coq3/sacerdot/HELM/INTERFACE/urls_of_uris</uris_dbm>
+ <dest><value-of var="helm_dir"/></dest>
+ <indexname>index.txt</indexname>
+ <tmpdir>/tmp</tmpdir>
+
+ <helm_url_path>/home/lpadovan/helm/PARSER/examples</helm_url_path>
+ <getheader_url>http://localhost/really_very_local/helm/header/getheader.xml</getheader_url>
+ <style_url>http://localhost/really_very_local/helm/style/</style_url>
+ <webeq_url>http://localhost/cgi-bin/helm/webeq.pl</webeq_url>
+ <webeqp_url>http://localhost/cgi-bin/helm/webeqp.pl</webeqp_url>
+ <use_webeqp_url>http://localhost/cgi-bin/helm/use_webeqp.pl</use_webeqp_url>
+ <html_link><value-of var="getheader_url"/>?baseurl=<value-of var="style_url"/>&stylesheet1=rootcontent.xsl&stylesheet2=content_to_html.xsl&xmlfile=</html_link>
+ <getter_url>http://localhost:8081/getwithtypes?url=</getter_url>
+</configuration>
--- /dev/null
+use XML::Parser;
+
+# this should be the only fixed constant
+$configuration_file = "/home/cadet/sacerdot/local/etc/helm/configuration.xml";
+
+$parser = new XML::Parser(Handlers => {Start => \&handle_start,
+ End => \&handle_end,
+ Char => \&handle_char});
+
+
+$parser->parsefile($configuration_file, ErrorContext => 3);
+
+
+sub handle_start
+{
+ if ($_[1] eq "value-of") {
+ $$varname .= ${$_[3]};
+ } elsif ($_[1] ne "configuration") {
+ $varname = $_[1];
+ }
+}
+
+sub handle_end
+{
+ if ($_[1] ne "value-of" && $_[1] ne "configuration") {
+ # Next line for debugging only:
+ # print "OK: #$_[1]# := #$$varname#\n";
+ $varname = undef;
+ }
+}
+
+sub handle_char
+{
+ $$varname .= $_[1];
+}
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR ANNOTATED OBJECTS: -->
+<!-- First draft: June 2000, Claudio Sacerdoti Coen -->
+<!--*****************************************************************-->
+
+<!ENTITY % annotation '(#PCDATA|node|attribute)*'>
+
+<!ELEMENT Annotations (Annotation)*>
+<!ATTLIST Annotations
+ of CDATA #REQUIRED>
+
+<!ELEMENT Annotation %annotation;>
+<!ATTLIST Annotation
+ of CDATA #REQUIRED>
+
+<!-- Annotations: -->
+
+<!ELEMENT attribute EMPTY>
+<!ATTLIST attribute
+ name NMTOKEN #REQUIRED
+ id NMTOKEN #REQUIRED
+ child NMTOKEN #IMPLIED
+ grandchild NMTOKEN #IMPLIED>
+
+<!ELEMENT node EMPTY>
+<!ATTLIST node
+ id NMTOKEN #REQUIRED>
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR CIC OBJECTS: -->
+<!-- First draft: September 1999, Claudio Sacerdoti Coen -->
+<!-- Revised: February 3 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!-- Last Revision: April 4 2000, Claudio Sacerdoti Coen -->
+<!-- Last Revision: June 19 2000, Claudio Sacerdoti Coen -->
+<!-- Last Revision: June 20 2000, Claudio Sacerdoti Coen -->
+<!--*****************************************************************-->
+
+<!-- CIC term declaration -->
+
+<!ENTITY % term '(LAMBDA|CAST|PROD|REL|SORT|APPLY|VAR|META|IMPLICIT|CONST|
+ ABST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX)'>
+
+<!-- CIC objects: -->
+
+<!ELEMENT Definition (body, type)>
+<!ATTLIST Definition
+ name CDATA #REQUIRED
+ params CDATA #REQUIRED
+ paramMode (POSSIBLE) #IMPLIED
+ id ID #REQUIRED>
+
+<!ELEMENT Axiom (type)>
+<!ATTLIST Axiom
+ name CDATA #REQUIRED
+ params CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT CurrentProof (Conjecture*,body,type)>
+<!ATTLIST CurrentProof
+ name CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT InductiveDefinition (InductiveType+)>
+<!ATTLIST InductiveDefinition
+ noParams NMTOKEN #REQUIRED
+ params CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT Variable (type)>
+<!ATTLIST Variable
+ name CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!-- Elements used in CIC objects, which are not terms: -->
+
+<!ELEMENT InductiveType (arity,Constructor*)>
+<!ATTLIST InductiveType
+ name CDATA #REQUIRED
+ inductive (true|false) #REQUIRED>
+
+<!ELEMENT Conjecture %term;>
+<!ATTLIST Conjecture
+ no NMTOKEN #REQUIRED>
+
+<!ELEMENT Constructor %term;>
+<!ATTLIST Constructor
+ name CDATA #REQUIRED>
+
+<!-- CIC terms: -->
+
+<!ELEMENT LAMBDA (source,target)>
+<!ATTLIST LAMBDA
+ id ID #REQUIRED>
+
+<!ELEMENT PROD (source,target)>
+<!ATTLIST PROD
+ id ID #REQUIRED>
+
+<!ELEMENT CAST (term,type)>
+<!ATTLIST CAST
+ id ID #REQUIRED>
+
+<!ELEMENT REL EMPTY>
+<!ATTLIST REL
+ value NMTOKEN #REQUIRED
+ binder CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT SORT EMPTY>
+<!ATTLIST SORT
+ value CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT APPLY (%term;)+>
+<!ATTLIST APPLY
+ id ID #REQUIRED>
+
+<!ELEMENT VAR EMPTY>
+<!ATTLIST VAR
+ relUri CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT META EMPTY>
+<!ATTLIST META
+ no NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT IMPLICIT EMPTY>
+<!ATTLIST IMPLICIT
+ id ID #REQUIRED>
+
+<!ELEMENT CONST EMPTY>
+<!ATTLIST CONST
+ uri CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT ABST EMPTY>
+<!ATTLIST ABST
+ uri CDATA #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT MUTIND EMPTY>
+<!ATTLIST MUTIND
+ uri CDATA #REQUIRED
+ noType NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT MUTCONSTRUCT EMPTY>
+<!ATTLIST MUTCONSTRUCT
+ uri CDATA #REQUIRED
+ noType NMTOKEN #REQUIRED
+ noConstr NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT MUTCASE (patternsType,inductiveTerm,pattern*)>
+<!ATTLIST MUTCASE
+ uriType CDATA #REQUIRED
+ noType NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT FIX (FixFunction+)>
+<!ATTLIST FIX
+ noFun NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!ELEMENT COFIX (CofixFunction+)>
+<!ATTLIST COFIX
+ noFun NMTOKEN #REQUIRED
+ id ID #REQUIRED>
+
+<!-- Elements used in CIC terms: -->
+
+<!ELEMENT FixFunction (type,body)>
+<!ATTLIST FixFunction
+ name CDATA #REQUIRED
+ recIndex NMTOKEN #REQUIRED>
+
+<!ELEMENT CofixFunction (type,body)>
+<!ATTLIST CofixFunction
+ name CDATA #REQUIRED>
+
+<!-- Sintactic sugar for CIC terms and for CIC objects: -->
+
+<!ELEMENT source %term;>
+
+<!ELEMENT target %term;>
+<!ATTLIST target
+ binder CDATA #IMPLIED>
+
+<!ELEMENT term %term;>
+
+<!ELEMENT type %term;>
+
+<!ELEMENT arity %term;>
+
+<!ELEMENT patternsType %term;>
+
+<!ELEMENT inductiveTerm %term;>
+
+<!ELEMENT pattern %term;>
+
+<!ELEMENT body %term;>
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR CIC OBJECTS AT LEVEL OF MATHML CONTENT: -->
+<!-- First draft: March 21, Claudio Sacerdoti Coen, Irene Schena -->
+<!--*****************************************************************-->
+
+<!ENTITY % mathml SYSTEM "mathml2.dtd">
+
+%mathml;
+
+<!ENTITY % term '(annotation|%math.qname;)'>
+
+<!-- Terms: -->
+
+<!ELEMENT annotation (#PCDATA|annotation|%math.qname;)*>
+<!ATTLIST annotation
+ xmlns:m CDATA #REQUIRED>
+
+<!-- CIC objects: -->
+
+<!ELEMENT Definition (Params,body,type)>
+<!ATTLIST Definition
+ name CDATA #REQUIRED
+ xmlns:m CDATA #REQUIRED>
+
+<!ELEMENT Axiom (Params,type)>
+<!ATTLIST Axiom
+ name CDATA #REQUIRED
+ xmlns:m CDATA #REQUIRED>
+
+<!ELEMENT CurrentProof (Conjecture*,body,type)>
+<!ATTLIST CurrentProof
+ name CDATA #REQUIRED
+ xmlns:m CDATA #REQUIRED>
+
+<!ELEMENT InductiveDefinition (Params,Param*,InductiveType+)>
+<!ATTLIST InductiveDefinition
+ xmlns:m CDATA #REQUIRED>
+
+<!ELEMENT Variable (type)>
+<!ATTLIST Variable
+ name CDATA #REQUIRED
+ xmlns:m CDATA #REQUIRED>
+
+<!-- Elements used in CIC objects, which are not terms: -->
+
+<!ELEMENT InductiveType (arity,Constructor*)>
+<!ATTLIST InductiveType
+ name CDATA #REQUIRED
+ inductive (true|false) #REQUIRED>
+
+<!ELEMENT Conjecture %term;>
+<!ATTLIST Conjecture
+ no NMTOKEN #REQUIRED>
+
+<!ELEMENT Constructor %term;>
+<!ATTLIST Constructor
+ name CDATA #REQUIRED>
+
+<!ELEMENT Param %term;>
+<!ATTLIST Param
+ name CDATA #REQUIRED>
+
+<!ELEMENT Params (#PCDATA)*>
+
+<!-- Sintactic sugar for CIC objects: -->
+
+<!ELEMENT type %term;>
+
+<!ELEMENT arity %term;>
+
+<!ELEMENT body %term;>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
--- /dev/null
+
+<!--
+ File isoamsa.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY angzarr "⍼" ><!--angle with down zig-zag arrow -->
+<!ENTITY cirmid "⫯" ><!--circle, mid below -->
+<!ENTITY cudarrl "⤸" ><!--left, curved, down arrow -->
+<!ENTITY cudarrr "⤵" ><!--right, curved, down arrow -->
+<!ENTITY cularr "↶" ><!--/curvearrowleft A: left curved arrow -->
+<!ENTITY cularrp "⤽" ><!--curved left arrow with plus -->
+<!ENTITY curarr "↷" ><!--/curvearrowright A: rt curved arrow -->
+<!ENTITY curarrm "⤼" ><!--curved right arrow with minus -->
+<!ENTITY dArr "⇓" ><!--/Downarrow A: down dbl arrow -->
+<!ENTITY Darr "↡" ><!--down two-headed arrow -->
+<!ENTITY ddarr "⇊" ><!--/downdownarrows A: two down arrows -->
+<!ENTITY DDotrahd "⤑" ><!--right arrow with dotted stem -->
+<!ENTITY dfisht "⥿" ><!--down fish tail -->
+<!ENTITY dHar "⥥" ><!--down harpoon-left, down harpoon-right -->
+<!ENTITY dharl "⇃" ><!--/downharpoonleft A: dn harpoon-left -->
+<!ENTITY dharr "⇂" ><!--/downharpoonright A: down harpoon-rt -->
+<!ENTITY duarr "⇵" ><!--down arrow, up arrow -->
+<!ENTITY duhar "⥯" ><!--down harp, up harp -->
+<!ENTITY dzigrarr "⇝" ><!--right long zig-zag arrow -->
+<!ENTITY erarr "⥱" ><!--equal, right arrow below -->
+<!ENTITY harr "↔" ><!--/leftrightarrow A: l&r arrow -->
+<!ENTITY hArr "⇔" ><!--/Leftrightarrow A: l&r dbl arrow -->
+<!ENTITY harrcir "⥈" ><!--left and right arrow with a circle -->
+<!ENTITY harrw "↭" ><!--/leftrightsquigarrow A: l&r arr-wavy -->
+<!ENTITY hoarr "⇿" ><!--horizontal open arrow -->
+<!ENTITY imof "⊷" ><!--image of -->
+<!ENTITY lAarr "⇚" ><!--/Lleftarrow A: left triple arrow -->
+<!ENTITY Larr "↞" ><!--/twoheadleftarrow A: -->
+<!ENTITY larrbfs "⤟" ><!--left arrow-bar, filled square -->
+<!ENTITY larrfs "⤝" ><!--left arrow, filled square -->
+<!ENTITY larrhk "↩" ><!--/hookleftarrow A: left arrow-hooked -->
+<!ENTITY larrlp "↫" ><!--/looparrowleft A: left arrow-looped -->
+<!ENTITY larrpl "⤹" ><!--left arrow, plus -->
+<!ENTITY larrsim "⥳" ><!--left arrow, similar -->
+<!ENTITY larrtl "↢" ><!--/leftarrowtail A: left arrow-tailed -->
+<!ENTITY latail "⤙" ><!--left arrow-tail -->
+<!ENTITY lAtail "⤛" ><!--left double arrow-tail -->
+<!ENTITY lbarr "⤌" ><!--left broken arrow -->
+<!ENTITY lBarr "⤎" ><!--left doubly broken arrow -->
+<!ENTITY ldca "⤶" ><!--left down curved arrow -->
+<!ENTITY ldrdhar "⥧" ><!--left harpoon-down over right harpoon-down -->
+<!ENTITY ldrushar "⥋" ><!--left-down-right-up harpoon -->
+<!ENTITY ldsh "↲" ><!--left down angled arrow -->
+<!ENTITY lfisht "⥼" ><!--left fish tail -->
+<!ENTITY lHar "⥢" ><!--left harpoon-up over left harpoon-down -->
+<!ENTITY lhard "↽" ><!--/leftharpoondown A: l harpoon-down -->
+<!ENTITY lharu "↼" ><!--/leftharpoonup A: left harpoon-up -->
+<!ENTITY lharul "⥪" ><!--left harpoon-up over long dash -->
+<!ENTITY llarr "⇇" ><!--/leftleftarrows A: two left arrows -->
+<!ENTITY llhard "⥫" ><!--left harpoon-down below long dash -->
+<!ENTITY loarr "⇽" ><!--left open arrow -->
+<!ENTITY lrarr "⇆" ><!--/leftrightarrows A: l arr over r arr -->
+<!ENTITY lrhar "⇋" ><!--/leftrightharpoons A: l harp over r -->
+<!ENTITY lrhard "⥭" ><!--right harpoon-down below long dash -->
+<!ENTITY lsh "↰" ><!--/Lsh A: -->
+<!ENTITY lurdshar "⥊" ><!--left-up-right-down harpoon -->
+<!ENTITY luruhar "⥦" ><!--left harpoon-up over right harpoon-up -->
+<!ENTITY map "↦" ><!--/mapsto A: -->
+<!ENTITY Map "⤅" ><!--twoheaded mapsto -->
+<!ENTITY midcir "⫰" ><!--mid, circle below -->
+<!ENTITY mumap "⊸" ><!--/multimap A: -->
+<!ENTITY nearhk "⤤" ><!--NE arrow-hooked -->
+<!ENTITY nearr "↗" ><!--/nearrow A: NE pointing arrow -->
+<!ENTITY neArr "⇗" ><!--NE pointing dbl arrow -->
+<!ENTITY nesear "⤨" ><!--/toea A: NE & SE arrows -->
+<!ENTITY nharr "↮" ><!--/nleftrightarrow A: not l&r arrow -->
+<!ENTITY nhArr "⇎" ><!--/nLeftrightarrow A: not l&r dbl arr -->
+<!ENTITY nlarr "↚" ><!--/nleftarrow A: not left arrow -->
+<!ENTITY nlArr "⇍" ><!--/nLeftarrow A: not implied by -->
+<!ENTITY nrarr "↛" ><!--/nrightarrow A: not right arrow -->
+<!ENTITY nrArr "⇏" ><!--/nRightarrow A: not implies -->
+<!ENTITY nrarrc "⤳̸" ><!--not right arrow-curved -->
+<!ENTITY nrarrw "↝̸" ><!--not right arrow-wavy -->
+<!ENTITY nvHarr "⇎" ><!--not, vert, left and right double arrow -->
+<!ENTITY nvlArr "⇍" ><!--not, vert, left double arrow -->
+<!ENTITY nvrArr "⇏" ><!--not, vert, right double arrow -->
+<!ENTITY nwarhk "⤣" ><!--NW arrow-hooked -->
+<!ENTITY nwarr "↖" ><!--/nwarrow A: NW pointing arrow -->
+<!ENTITY nwArr "⇖" ><!--NW pointing dbl arrow -->
+<!ENTITY nwnear "⤧" ><!--NW & NE arrows -->
+<!ENTITY olarr "↺" ><!--/circlearrowleft A: l arr in circle -->
+<!ENTITY orarr "↻" ><!--/circlearrowright A: r arr in circle -->
+<!ENTITY origof "⊶" ><!--original of -->
+<!ENTITY rAarr "⇛" ><!--/Rrightarrow A: right triple arrow -->
+<!ENTITY Rarr "↠" ><!--/twoheadrightarrow A: -->
+<!ENTITY rarrap "⥵" ><!--approximate, right arrow above -->
+<!ENTITY rarrbfs "⤠" ><!--right arrow-bar, filled square -->
+<!ENTITY rarrc "⤳" ><!--right arrow-curved -->
+<!ENTITY rarrfs "⤞" ><!--right arrow, filled square -->
+<!ENTITY rarrhk "↪" ><!--/hookrightarrow A: rt arrow-hooked -->
+<!ENTITY rarrlp "↬" ><!--/looparrowright A: rt arrow-looped -->
+<!ENTITY rarrpl "⥅" ><!--right arrow, plus -->
+<!ENTITY rarrsim "⥴" ><!--right arrow, similar -->
+<!ENTITY rarrtl "↣" ><!--/rightarrowtail A: rt arrow-tailed -->
+<!ENTITY Rarrtl "⤖" ><!--right two-headed arrow with tail -->
+<!ENTITY rarrw "⇝" ><!--/rightsquigarrow A: rt arrow-wavy -->
+<!ENTITY ratail "↣" ><!--right arrow-tail -->
+<!ENTITY rAtail "⤜" ><!--right double arrow-tail -->
+<!ENTITY rbarr "⤍" ><!--/bkarow A: right broken arrow -->
+<!ENTITY rBarr "⤏" ><!--/dbkarow A: right doubly broken arrow -->
+<!ENTITY RBarr "⤐" ><!--/drbkarow A: twoheaded right broken arrow -->
+<!ENTITY rdca "⤷" ><!--right down curved arrow -->
+<!ENTITY rdldhar "⥩" ><!--right harpoon-down over left harpoon-down -->
+<!ENTITY rdsh "↳" ><!--right down angled arrow -->
+<!ENTITY rfisht "⥽" ><!--right fish tail -->
+<!ENTITY rHar "⥤" ><!--right harpoon-up over right harpoon-down -->
+<!ENTITY rhard "⇁" ><!--/rightharpoondown A: rt harpoon-down -->
+<!ENTITY rharu "⇀" ><!--/rightharpoonup A: rt harpoon-up -->
+<!ENTITY rharul "⥬" ><!--right harpoon-up over long dash -->
+<!ENTITY rlarr "⇄" ><!--/rightleftarrows A: r arr over l arr -->
+<!ENTITY rlhar "⇌" ><!--/rightleftharpoons A: r harp over l -->
+<!ENTITY roarr "⇾" ><!--right open arrow -->
+<!ENTITY rrarr "⇉" ><!--/rightrightarrows A: two rt arrows -->
+<!ENTITY rsh "↱" ><!--/Rsh A: -->
+<!ENTITY ruluhar "⥨" ><!--right harpoon-up over left harpoon-up -->
+<!ENTITY searhk "⤥" ><!--/hksearow A: SE arrow-hooken -->
+<!ENTITY searr "↘" ><!--/searrow A: SE pointing arrow -->
+<!ENTITY seArr "⇘" ><!--SE pointing dbl arrow -->
+<!ENTITY seswar "⤩" ><!--/tosa A: SE & SW arrows -->
+<!ENTITY simrarr "⥲" ><!--similar, right arrow below -->
+<!ENTITY slarr "←⁣" ><!--short left arrow -->
+<!ENTITY srarr "→⁣" ><!--short right arrow -->
+<!ENTITY swarhk "⤦" ><!--/hkswarow A: SW arrow-hooked -->
+<!ENTITY swarr "↙" ><!--/swarrow A: SW pointing arrow -->
+<!ENTITY swArr "⇙" ><!--SW pointing dbl arrow -->
+<!ENTITY swnwar "⤪" ><!--SW & NW arrows -->
+<!ENTITY uArr "⇑" ><!--/Uparrow A: up dbl arrow -->
+<!ENTITY Uarr "↟" ><!--up two-headed arrow -->
+<!ENTITY Uarrocir "⥉" ><!--up two-headed arrow above circle -->
+<!ENTITY udarr "⇅" ><!--up arrow, down arrow -->
+<!ENTITY udhar "⥮" ><!--up harp, down harp -->
+<!ENTITY ufisht "⥾" ><!--up fish tail -->
+<!ENTITY uHar "⥣" ><!--up harpoon-left, up harpoon-right -->
+<!ENTITY uharl "↿" ><!--/upharpoonleft A: up harpoon-left -->
+<!ENTITY uharr "↾" ><!--/upharpoonright /restriction A: up harp-r -->
+<!ENTITY uuarr "⇈" ><!--/upuparrows A: two up arrows -->
+<!ENTITY varr "↕" ><!--/updownarrow A: up&down arrow -->
+<!ENTITY vArr "⇕" ><!--/Updownarrow A: up&down dbl arrow -->
+<!ENTITY xharr "↔" ><!--/longleftrightarrow A: long l&r arr -->
+<!ENTITY xhArr "⇔" ><!--/Longleftrightarrow A: long l&r dbl arr -->
+<!ENTITY xlarr "←" ><!--/longleftarrow A: long left arrow -->
+<!ENTITY xlArr "⇐" ><!--/Longleftarrow A: long l dbl arrow -->
+<!ENTITY xmap "↦" ><!--/longmapsto A: -->
+<!ENTITY xrarr "→" ><!--/longrightarrow A: long right arrow -->
+<!ENTITY xrArr "⇒" ><!--/Longrightarrow A: long rt dbl arr -->
+<!ENTITY zigrarr "⇝" ><!--right zig-zag arrow -->
--- /dev/null
+
+<!--
+ File isoamsb.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY ac "⤏" ><!--most positive -->
+<!ENTITY acE "⧛" ><!--most positive, two lines below -->
+<!ENTITY amalg "⨿" ><!--/amalg B: amalgamation or coproduct -->
+<!ENTITY barvee "⊽" ><!--bar, vee -->
+<!ENTITY barwed "⊼" ><!--/barwedge B: logical and, bar above -->
+<!ENTITY Barwed "⌆" ><!--/doublebarwedge B: log and, dbl bar above -->
+<!ENTITY bsolb "⧅" ><!--reverse solidus in square -->
+<!ENTITY Cap "⋒" ><!--/Cap /doublecap B: dbl intersection -->
+<!ENTITY capand "⩄" ><!--intersection, and -->
+<!ENTITY capbrcup "⩉" ><!--intersection, bar, union -->
+<!ENTITY capcap "⩋" ><!--intersection, intersection, joined -->
+<!ENTITY capcup "⩇" ><!--intersection above union -->
+<!ENTITY capdot "⩀" ><!--intersection, with dot -->
+<!ENTITY caps "∩⁣" ><!--intersection, serifs -->
+<!ENTITY ccaps "⩍" ><!--closed intersection, serifs -->
+<!ENTITY ccups "⩌" ><!--closed union, serifs -->
+<!ENTITY ccupssm "⩐" ><!--closed union, serifs, smash product -->
+<!ENTITY coprod "∐" ><!--/coprod L: coproduct operator -->
+<!ENTITY Cup "⋓" ><!--/Cup /doublecup B: dbl union -->
+<!ENTITY cupbrcap "⩈" ><!--union, bar, intersection -->
+<!ENTITY cupcap "⩆" ><!--union above intersection -->
+<!ENTITY cupcup "⩊" ><!--union, union, joined -->
+<!ENTITY cupdot "⊍" ><!--union, with dot -->
+<!ENTITY cupor "⩅" ><!--union, or -->
+<!ENTITY cups "∪⁣" ><!--union, serifs -->
+<!ENTITY cuvee "⋎" ><!--/curlyvee B: curly logical or -->
+<!ENTITY cuwed "⋏" ><!--/curlywedge B: curly logical and -->
+<!ENTITY dagger "†" ><!--/dagger B: dagger relation -->
+<!ENTITY Dagger "‡" ><!--/ddagger B: double dagger relation -->
+<!ENTITY diam "⋄" ><!--/diamond B: open diamond -->
+<!ENTITY divonx "⋇" ><!--/divideontimes B: division on times -->
+<!ENTITY eplus "⩱" ><!--equal, plus -->
+<!ENTITY hercon "⊹" ><!--hermitian conjugate matrix -->
+<!ENTITY intcal "⊺" ><!--/intercal B: intercal -->
+<!ENTITY iprod "⨼" ><!--/intprod -->
+<!ENTITY loplus "⨭" ><!--plus sign in left half circle -->
+<!ENTITY lotimes "⨴" ><!--multiply sign in left half circle -->
+<!ENTITY lthree "⋋" ><!--/leftthreetimes B: -->
+<!ENTITY ltimes "⋉" ><!--/ltimes B: times sign, left closed -->
+<!ENTITY midast "*" ><!--/ast B: asterisk -->
+<!ENTITY minusb "⊟" ><!--/boxminus B: minus sign in box -->
+<!ENTITY minusd "∸" ><!--/dotminus B: minus sign, dot above -->
+<!ENTITY minusdu "⨪" ><!--minus sign, dot below -->
+<!ENTITY ncap "⩃" ><!--bar, intersection -->
+<!ENTITY ncup "⩂" ><!--bar, union -->
+<!ENTITY oast "⊛" ><!--/circledast B: asterisk in circle -->
+<!ENTITY ocir "⊚" ><!--/circledcirc B: small circle in circle -->
+<!ENTITY odash "⊝" ><!--/circleddash B: hyphen in circle -->
+<!ENTITY odiv "⨸" ><!--divide in circle -->
+<!ENTITY odot "⊙" ><!--/odot B: middle dot in circle -->
+<!ENTITY odsold "⦼" ><!--dot, solidus, dot in circle -->
+<!ENTITY ofcir "⦿" ><!--filled circle in circle -->
+<!ENTITY ogt "⧁" ><!--greater-than in circle -->
+<!ENTITY ohbar "⦵" ><!--circle with horizontal bar -->
+<!ENTITY olcir "⦾" ><!--large circle in circle -->
+<!ENTITY olt "⧀" ><!--less-than in circle -->
+<!ENTITY omid "⦶" ><!--vertical bar in circle -->
+<!ENTITY ominus "⊖" ><!--/ominus B: minus sign in circle -->
+<!ENTITY opar "⦷" ><!--parallel in circle -->
+<!ENTITY operp "⦹" ><!--perpendicular in circle -->
+<!ENTITY oplus "⊕" ><!--/oplus B: plus sign in circle -->
+<!ENTITY osol "⊘" ><!--/oslash B: solidus in circle -->
+<!ENTITY otimes "⊗" ><!--/otimes B: multiply sign in circle -->
+<!ENTITY Otimes "⨷" ><!--multiply sign in double circle -->
+<!ENTITY otimesas "⨶" ><!--multiply sign in circle, circumflex accent -->
+<!ENTITY ovbar "⌽" ><!--circle with vertical bar -->
+<!ENTITY plusacir "⨣" ><!--plus, circumflex accent above -->
+<!ENTITY plusb "⊞" ><!--/boxplus B: plus sign in box -->
+<!ENTITY pluscir "⨢" ><!--plus, small circle above -->
+<!ENTITY plusdo "∔" ><!--/dotplus B: plus sign, dot above -->
+<!ENTITY plusdu "⨥" ><!--plus sign, dot below -->
+<!ENTITY pluse "⩲" ><!--plus, equals -->
+<!ENTITY plussim "⨦" ><!--plus, similar below -->
+<!ENTITY plustwo "⨧" ><!--plus, two; Nim-addition -->
+<!ENTITY prod "∏" ><!--/prod L: product operator -->
+<!ENTITY race "⧚" ><!--reverse most positive, line below -->
+<!ENTITY roplus "⨮" ><!--plus sign in right half circle -->
+<!ENTITY rotimes "⨵" ><!--multiply sign in right half circle -->
+<!ENTITY rthree "⋌" ><!--/rightthreetimes B: -->
+<!ENTITY rtimes "⋊" ><!--/rtimes B: times sign, right closed -->
+<!ENTITY sdot "⋅" ><!--/cdot B: small middle dot -->
+<!ENTITY sdotb "⊡" ><!--/dotsquare /boxdot B: small dot in box -->
+<!ENTITY setmn "∖" ><!--/setminus B: reverse solidus -->
+<!ENTITY simplus "⨤" ><!--plus, similar above -->
+<!ENTITY smashp "⨳" ><!--smash product -->
+<!ENTITY solb "⧄" ><!--solidus in square -->
+<!ENTITY sqcap "⊓" ><!--/sqcap B: square intersection -->
+<!ENTITY sqcaps "⊓⁣" ><!--square intersection, serifs -->
+<!ENTITY sqcup "⊔" ><!--/sqcup B: square union -->
+<!ENTITY sqcups "⊔⁣" ><!--square union, serifs -->
+<!ENTITY ssetmn "∖" ><!--/smallsetminus B: sm reverse solidus -->
+<!ENTITY sstarf "⋆" ><!--/star B: small star, filled -->
+<!ENTITY subdot "⪽" ><!--subset, with dot -->
+<!ENTITY sum "∑" ><!--/sum L: summation operator -->
+<!ENTITY supdot "⪾" ><!--superset, with dot -->
+<!ENTITY timesb "⊠" ><!--/boxtimes B: multiply sign in box -->
+<!ENTITY timesbar "⨱" ><!--multiply sign, bar below -->
+<!ENTITY timesd "⨰" ><!--times, dot -->
+<!ENTITY tridot "◬" ><!--dot in triangle -->
+<!ENTITY triminus "⨺" ><!--minus in triangle -->
+<!ENTITY triplus "⨹" ><!--plus in triangle -->
+<!ENTITY trisb "⧍" ><!--triangle, serifs at bottom -->
+<!ENTITY tritime "⨻" ><!--multiply in triangle -->
+<!ENTITY uplus "⊎" ><!--/uplus B: plus sign in union -->
+<!ENTITY veebar "⊻" ><!--/veebar B: logical or, bar below -->
+<!ENTITY wedbar "⩟" ><!--wedge, bar below -->
+<!ENTITY wreath "≀" ><!--/wr B: wreath product -->
+<!ENTITY xcap "⋂" ><!--/bigcap L: intersection operator -->
+<!ENTITY xcirc "◯" ><!--/bigcirc B: large circle -->
+<!ENTITY xcup "⋃" ><!--/bigcup L: union operator -->
+<!ENTITY xdtri "▽" ><!--/bigtriangledown B: big dn tri, open -->
+<!ENTITY xodot "⊙" ><!--/bigodot L: circle dot operator -->
+<!ENTITY xoplus "⊕" ><!--/bigoplus L: circle plus operator -->
+<!ENTITY xotime "⊗" ><!--/bigotimes L: circle times operator -->
+<!ENTITY xsqcup "⊔" ><!--/bigsqcup L: square union operator -->
+<!ENTITY xuplus "⊎" ><!--/biguplus L: -->
+<!ENTITY xutri "△" ><!--/bigtriangleup B: big up tri, open -->
+<!ENTITY xvee "⋁" ><!--/bigvee L: logical and operator -->
+<!ENTITY xwedge "⋀" ><!--/bigwedge L: logical or operator -->
--- /dev/null
+
+<!--
+ File isoamsc.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY dlcorn "⌞" ><!--/llcorner O: lower left corner -->
+<!ENTITY drcorn "⌟" ><!--/lrcorner C: lower right corner -->
+<!ENTITY gtlPar "⦕" ><!--dbl left parenthesis, greater -->
+<!ENTITY langd "⦑" ><!--left angle, dot -->
+<!ENTITY lbrke "⦋" ><!--left bracket, equal -->
+<!ENTITY lbrksld "⦏" ><!--left bracket, solidus bottom corner -->
+<!ENTITY lbrkslu "⦍" ><!--left bracket, solidus top corner -->
+<!ENTITY lceil "⌈" ><!--/lceil O: left ceiling -->
+<!ENTITY lfloor "⌊" ><!--/lfloor O: left floor -->
+<!ENTITY lmoust "⦘" ><!--/lmoustache -->
+<!ENTITY lparlt "⦓" ><!--O: left parenthesis, lt -->
+<!ENTITY ltrPar "⦖" ><!--dbl right parenthesis, less -->
+<!ENTITY rangd "⦒" ><!--right angle, dot -->
+<!ENTITY rbrke "⦌" ><!--right bracket, equal -->
+<!ENTITY rbrksld "⦎" ><!--right bracket, solidus bottom corner -->
+<!ENTITY rbrkslu "⦐" ><!--right bracket, solidus top corner -->
+<!ENTITY rceil "⌉" ><!--/rceil C: right ceiling -->
+<!ENTITY rfloor "⌋" ><!--/rfloor C: right floor -->
+<!ENTITY rmoust "⦗" ><!--/rmoustache -->
+<!ENTITY rpargt "⦔" ><!--C: right paren, gt -->
+<!ENTITY ulcorn "⌜" ><!--/ulcorner O: upper left corner -->
+<!ENTITY urcorn "⌝" ><!--/urcorner C: upper right corner -->
--- /dev/null
+
+<!--
+ File isoamsn.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY gnap "⪊" ><!--/gnapprox N: greater, not approximate -->
+<!ENTITY gne "≩" ><!--/gneq N: greater, not equals -->
+<!ENTITY gnE "≩" ><!--/gneqq N: greater, not dbl equals -->
+<!ENTITY gnsim "⋧" ><!--/gnsim N: greater, not similar -->
+<!ENTITY gvnE "≩̸" ><!--/gvertneqq N: gt, vert, not dbl eq -->
+<!ENTITY lnap "⪉" ><!--/lnapprox N: less, not approximate -->
+<!ENTITY lne "≨" ><!--/lneq N: less, not equals -->
+<!ENTITY lnE "≨" ><!--/lneqq N: less, not double equals -->
+<!ENTITY lnsim "⋦" ><!--/lnsim N: less, not similar -->
+<!ENTITY lvnE "≨̸" ><!--/lvertneqq N: less, vert, not dbl eq -->
+<!ENTITY nap "≉" ><!--/napprox N: not approximate -->
+<!ENTITY napE "⩰̸" ><!--not approximately equal or equal to -->
+<!ENTITY napid "≋̸" ><!--not approximately identical to -->
+<!ENTITY ncong "≇" ><!--/ncong N: not congruent with -->
+<!ENTITY ncongdot "⩭̸" ><!--not congruent, dot -->
+<!ENTITY nequiv "≢" ><!--/nequiv N: not identical with -->
+<!ENTITY nge "≱⃥" ><!--/ngeq N: not greater-than-or-equal -->
+<!ENTITY ngE "≱" ><!--/ngeqq N: not greater, dbl equals -->
+<!ENTITY nges "≱" ><!--/ngeqslant N: not gt-or-eq, slanted -->
+<!ENTITY nGg "⋙̸" ><!--not triple greater than -->
+<!ENTITY ngsim "≵" ><!--not greater, similar -->
+<!ENTITY ngt "≯" ><!--/ngtr N: not greater-than -->
+<!ENTITY nGt "≫̸" ><!--not, vert, much greater than -->
+<!ENTITY nGtv "≫̸⁣" ><!--not much greater than, variant -->
+<!ENTITY nle "≰⃥" ><!--/nleq N: not less-than-or-equal -->
+<!ENTITY nlE "≰" ><!--/nleqq N: not less, dbl equals -->
+<!ENTITY nles "≰" ><!--/nleqslant N: not less-or-eq, slant -->
+<!ENTITY nLl "⋘̸" ><!--not triple less than -->
+<!ENTITY nlsim "≴" ><!--not less, similar -->
+<!ENTITY nlt "≮" ><!--/nless N: not less-than -->
+<!ENTITY nLt "≪̸" ><!--not, vert, much less than -->
+<!ENTITY nltri "⋪" ><!--/ntriangleleft N: not left triangle -->
+<!ENTITY nltrie "⋬" ><!--/ntrianglelefteq N: not l tri, eq -->
+<!ENTITY nLtv "≪̸⁣" ><!--not much less than, variant -->
+<!ENTITY nmid "∤" ><!--/nmid -->
+<!ENTITY npar "∦" ><!--/nparallel N: not parallel -->
+<!ENTITY npr "⊀" ><!--/nprec N: not precedes -->
+<!ENTITY nprcue "⋠" ><!--not curly precedes, eq -->
+<!ENTITY npre "⪯̸" ><!--/npreceq N: not precedes, equals -->
+<!ENTITY nrtri "⋫" ><!--/ntriangleright N: not rt triangle -->
+<!ENTITY nrtrie "⋭" ><!--/ntrianglerighteq N: not r tri, eq -->
+<!ENTITY nsc "⊁" ><!--/nsucc N: not succeeds -->
+<!ENTITY nsccue "⋡" ><!--not succeeds, curly eq -->
+<!ENTITY nsce "⪰̸" ><!--/nsucceq N: not succeeds, equals -->
+<!ENTITY nsim "≁" ><!--/nsim N: not similar -->
+<!ENTITY nsime "≄" ><!--/nsimeq N: not similar, equals -->
+<!ENTITY nsmid "∤⁣" ><!--/nshortmid -->
+<!ENTITY nspar "∦⁣" ><!--/nshortparallel N: not short par -->
+<!ENTITY nsqsube "⋢" ><!--not, square subset, equals -->
+<!ENTITY nsqsupe "⋣" ><!--not, square superset, equals -->
+<!ENTITY nsub "⊄" ><!--not subset -->
+<!ENTITY nsube "⊈" ><!--/nsubseteq N: not subset, equals -->
+<!ENTITY nsubE "⊈" ><!--/nsubseteqq N: not subset, dbl eq -->
+<!ENTITY nsup "⊅" ><!--not superset -->
+<!ENTITY nsupe "⊉" ><!--/nsupseteq N: not superset, equals -->
+<!ENTITY nsupE "⊉" ><!--/nsupseteqq N: not superset, dbl eq -->
+<!ENTITY ntgl "≹" ><!--not greater, less -->
+<!ENTITY ntlg "≸" ><!--not less, greater -->
+<!ENTITY nvap "≉̸" ><!--not, vert, approximate -->
+<!ENTITY nvdash "⊬" ><!--/nvdash N: not vertical, dash -->
+<!ENTITY nvDash "⊭" ><!--/nvDash N: not vertical, dbl dash -->
+<!ENTITY nVdash "⊮" ><!--/nVdash N: not dbl vertical, dash -->
+<!ENTITY nVDash "⊯" ><!--/nVDash N: not dbl vert, dbl dash -->
+<!ENTITY nvge "≱" ><!--not, vert, greater-than-or-equal -->
+<!ENTITY nvgt "≯" ><!--not, vert, greater-than -->
+<!ENTITY nvle "≰" ><!--not, vert, less-than-or-equal -->
+<!ENTITY nvlt "≮" ><!--not, vert, less-than -->
+<!ENTITY nvltrie "⋬̸" ><!--not, vert, left triangle, equals -->
+<!ENTITY nvrtrie "⋭̸" ><!--not, vert, right triangle, equals -->
+<!ENTITY nvsim "≁̸" ><!--not, vert, similar -->
+<!ENTITY parsim "⫳" ><!--parallel, similar -->
+<!ENTITY prnap "⋨" ><!--/precnapprox N: precedes, not approx -->
+<!ENTITY prnE "⪵" ><!--/precneqq N: precedes, not dbl eq -->
+<!ENTITY prnsim "⋨" ><!--/precnsim N: precedes, not similar -->
+<!ENTITY rnmid "⫮" ><!--reverse /nmid -->
+<!ENTITY scnap "⋩" ><!--/succnapprox N: succeeds, not approx -->
+<!ENTITY scnE "⪶" ><!--/succneqq N: succeeds, not dbl eq -->
+<!ENTITY scnsim "⋩" ><!--/succnsim N: succeeds, not similar -->
+<!ENTITY simne "≆" ><!--similar, not equals -->
+<!ENTITY solbar "⌿" ><!--solidus, bar through -->
+<!ENTITY subne "⊊" ><!--/subsetneq N: subset, not equals -->
+<!ENTITY subnE "⊊" ><!--/subsetneqq N: subset, not dbl eq -->
+<!ENTITY supne "⊋" ><!--/supsetneq N: superset, not equals -->
+<!ENTITY supnE "⊋" ><!--/supsetneqq N: superset, not dbl eq -->
+<!ENTITY vnsub "⊄" ><!--/nsubset N: not subset, var -->
+<!ENTITY vnsup "⊅" ><!--/nsupset N: not superset, var -->
+<!ENTITY vsubne "⊊⁣" ><!--/varsubsetneq N: subset, not eq, var -->
+<!ENTITY vsubnE "⊊⁣" ><!--/varsubsetneqq N: subset not dbl eq, var -->
+<!ENTITY vsupne "⊋⁣" ><!--/varsupsetneq N: superset, not eq, var -->
+<!ENTITY vsupnE "⊋⁣" ><!--/varsupsetneqq N: super not dbl eq, var -->
--- /dev/null
+
+<!--
+ File isoamso.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY ang "∠" ><!--/angle - angle -->
+<!ENTITY ange "⦤" ><!--angle, equal -->
+<!ENTITY angmsd "∡" ><!--/measuredangle - angle-measured -->
+<!ENTITY angmsdaa "⦨" ><!--angle-measured, arrow, up, right -->
+<!ENTITY angmsdab "⦩" ><!--angle-measured, arrow, up, left -->
+<!ENTITY angmsdac "⦪" ><!--angle-measured, arrow, down, right -->
+<!ENTITY angmsdad "⦫" ><!--angle-measured, arrow, down, left -->
+<!ENTITY angmsdae "⦬" ><!--angle-measured, arrow, right, up -->
+<!ENTITY angmsdaf "⦭" ><!--angle-measured, arrow, left, up -->
+<!ENTITY angmsdag "⦮" ><!--angle-measured, arrow, right, down -->
+<!ENTITY angmsdah "⦯" ><!--angle-measured, arrow, left, down -->
+<!ENTITY angrtvb "⦝⁣" ><!--right angle-measured -->
+<!ENTITY angrtvbd "⦝" ><!--right angle-measured, dot -->
+<!ENTITY bbrk "⎵" ><!--bottom square bracket -->
+<!ENTITY bemptyv "⦰" ><!--reversed circle, slash -->
+<!ENTITY beth "ℶ" ><!--/beth - beth, Hebrew -->
+<!ENTITY boxbox "⧉" ><!--two joined squares -->
+<!ENTITY bprime "‵" ><!--/backprime - reverse prime -->
+<!ENTITY bsemi "⁏" ><!--reverse semi-colon -->
+<!ENTITY cemptyv "⦲" ><!--circle, slash, small circle above -->
+<!ENTITY cirE "⧃" ><!--circle, two horizontal stroked to the right -->
+<!ENTITY cirscir "⧂" ><!--circle, small circle to the right -->
+<!ENTITY comp "∁" ><!--/complement - complement sign -->
+<!ENTITY daleth "ℸ" ><!--/daleth - daleth, Hebrew -->
+<!ENTITY demptyv "⦱" ><!--circle, slash, bar above -->
+<!ENTITY ell "ℓ" ><!--/ell - cursive small l -->
+<!ENTITY empty "∅⁣" ><!--/emptyset - zero, slash -->
+<!ENTITY emptyv "∅" ><!--/varnothing - circle, slash -->
+<!ENTITY gimel "ℷ" ><!--/gimel - gimel, Hebrew -->
+<!ENTITY iiota "℩" ><!--inverted iota -->
+<!ENTITY image "ℑ" ><!--/Im - imaginary -->
+<!ENTITY imath "ı" ><!--/imath - small i, no dot -->
+<!ENTITY jmath "j⁣" ><!--/jmath - small j, no dot -->
+<!ENTITY laemptyv "⦴" ><!--circle, slash, left arrow above -->
+<!ENTITY lltri "◺" ><!--lower left triangle -->
+<!ENTITY lrtri "⊿" ><!--lower right triangle -->
+<!ENTITY mho "℧" ><!--/mho - conductance -->
+<!ENTITY nang "∠̸" ><!--not, vert, angle -->
+<!ENTITY nexist "∄" ><!--/nexists - negated exists -->
+<!ENTITY oS "Ⓢ" ><!--/circledS - capital S in circle -->
+<!ENTITY plank "ℏ" ><!--/hbar - Planck's over 2pi -->
+<!ENTITY plankv "ℏ" ><!--/hslash - variant Planck's over 2pi -->
+<!ENTITY raemptyv "⦳" ><!--circle, slash, right arrow above -->
+<!ENTITY range "⦥" ><!--reverse angle, equal -->
+<!ENTITY real "ℜ" ><!--/Re - real -->
+<!ENTITY tbrk "⎴" ><!--top square bracket -->
+<!ENTITY ultri "◸" ><!--upper left triangle -->
+<!ENTITY urtri "◹" ><!--upper right triangle -->
+<!ENTITY vzigzag "⦚" ><!--vertical zig-zag line -->
+<!ENTITY weierp "℘" ><!--/wp - Weierstrass p -->
--- /dev/null
+
+<!--
+ File isoamsr.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY ape "≊" ><!--/approxeq R: approximate, equals -->
+<!ENTITY apE "≊" ><!--approximately equal or equal to -->
+<!ENTITY apid "≋" ><!--approximately identical to -->
+<!ENTITY asymp "≍" ><!--/asymp R: asymptotically equal to -->
+<!ENTITY Barv "⫧" ><!--vert, dbl bar (over) -->
+<!ENTITY bcong "≌" ><!--/backcong R: reverse congruent -->
+<!ENTITY bepsi "ℼ" ><!--/backepsilon R: such that -->
+<!ENTITY bowtie "⋈" ><!--/bowtie R: -->
+<!ENTITY bsim "∽" ><!--/backsim R: reverse similar -->
+<!ENTITY bsime "⋍" ><!--/backsimeq R: reverse similar, eq -->
+<!ENTITY bsolhsub "\⊂" ><!--reverse solidus, subset -->
+<!ENTITY bump "≎" ><!--/Bumpeq R: bumpy equals -->
+<!ENTITY bumpe "≏" ><!--/bumpeq R: bumpy equals, equals -->
+<!ENTITY bumpE "⪮" ><!--bump, equals -->
+<!ENTITY cire "≗" ><!--/circeq R: circle, equals -->
+<!ENTITY Colon "∷" ><!--/Colon, two colons -->
+<!ENTITY colone "≔" ><!--/coloneq R: colon, equals -->
+<!ENTITY Colone "⩴" ><!--double colon, equals -->
+<!ENTITY congdot "⩭" ><!--congruent, dot -->
+<!ENTITY csub "⫏" ><!--subset, closed -->
+<!ENTITY csube "⫑" ><!--subset, closed, equals -->
+<!ENTITY csup "⫐" ><!--superset, closed -->
+<!ENTITY csupe "⫒" ><!--superset, closed, equals -->
+<!ENTITY cuepr "⋞" ><!--/curlyeqprec R: curly eq, precedes -->
+<!ENTITY cuesc "⋟" ><!--/curlyeqsucc R: curly eq, succeeds -->
+<!ENTITY dashv "⊣" ><!--/dashv R: dash, vertical -->
+<!ENTITY Dashv "⫤" ><!--dbl dash, vertical -->
+<!ENTITY easter "≛" ><!--equal, asterisk above -->
+<!ENTITY ecir "≖" ><!--/eqcirc R: circle on equals sign -->
+<!ENTITY ecolon "≕" ><!--/eqcolon R: equals, colon -->
+<!ENTITY eDDot "⩷" ><!--/ddotseq R: equal with four dots -->
+<!ENTITY eDot "≑" ><!--/doteqdot /Doteq R: eq, even dots -->
+<!ENTITY efDot "≒" ><!--/fallingdotseq R: eq, falling dots -->
+<!ENTITY eg "⪚" ><!--equal-or-greater -->
+<!ENTITY egs "⋝" ><!--/eqslantgtr R: equal-or-gtr, slanted -->
+<!ENTITY egsdot "⪘" ><!--equal-or-greater, slanted, dot inside -->
+<!ENTITY el "⪙" ><!--equal-or-less -->
+<!ENTITY els "⋜" ><!--/eqslantless R: eq-or-less, slanted -->
+<!ENTITY elsdot "⪗" ><!--equal-or-less, slanted, dot inside -->
+<!ENTITY equest "≟" ><!--/questeq R: equal with questionmark -->
+<!ENTITY equivDD "⩸" ><!--equivalent, four dots above -->
+<!ENTITY erDot "≓" ><!--/risingdotseq R: eq, rising dots -->
+<!ENTITY esdot "≐" ><!--/doteq R: equals, single dot above -->
+<!ENTITY esim "≂" ><!--/esim R: equals, similar -->
+<!ENTITY Esim "⩳" ><!--equal, similar -->
+<!ENTITY fork "⋔" ><!--/pitchfork R: pitchfork -->
+<!ENTITY forkv "⫙" ><!--fork, variant -->
+<!ENTITY frown "⌢" ><!--/frown R: down curve -->
+<!ENTITY gap "≳" ><!--/gtrapprox R: greater, approximate -->
+<!ENTITY gE "≧" ><!--/geqq R: greater, double equals -->
+<!ENTITY gel "⋛" ><!--/gtreqless R: greater, equals, less -->
+<!ENTITY gEl "⋛" ><!--/gtreqqless R: gt, dbl equals, less -->
+<!ENTITY ges "⩾" ><!--/geqslant R: gt-or-equal, slanted -->
+<!ENTITY gescc "⪩" ><!--greater than, closed by curve, equal, slanted -->
+<!ENTITY gesdot "⪀" ><!--greater-than-or-equal, slanted, dot inside -->
+<!ENTITY gesdoto "⪂" ><!--greater-than-or-equal, slanted, dot above -->
+<!ENTITY gesdotol "⪄" ><!--greater-than-or-equal, slanted, dot above left -->
+<!ENTITY gesl "⋛⁣" ><!--greater, equal, slanted, less -->
+<!ENTITY gesles "⪔" ><!--greater, equal, slanted, less, equal, slanted -->
+<!ENTITY Gg "⋙" ><!--/ggg /Gg /gggtr R: triple gtr-than -->
+<!ENTITY gl "≷" ><!--/gtrless R: greater, less -->
+<!ENTITY gla "⪥" ><!--greater, less, apart -->
+<!ENTITY glE "⪒" ><!--greater, less, equal -->
+<!ENTITY glj "⪤" ><!--greater, less, overlapping -->
+<!ENTITY gsim "≳" ><!--/gtrsim R: greater, similar -->
+<!ENTITY gsime "⪎" ><!--greater, similar, equal -->
+<!ENTITY gsiml "⪐" ><!--greater, similar, less -->
+<!ENTITY Gt "≫" ><!--/gg R: dbl greater-than sign -->
+<!ENTITY gtcc "⪧" ><!--greater than, closed by curve -->
+<!ENTITY gtcir "⩺" ><!--greater than, circle inside -->
+<!ENTITY gtdot "⋗" ><!--/gtrdot R: greater than, with dot -->
+<!ENTITY gtquest "⩼" ><!--greater than, questionmark above -->
+<!ENTITY gtrarr "⥸" ><!--greater than, right arrow -->
+<!ENTITY homtht "∻" ><!--homothetic -->
+<!ENTITY lap "≲" ><!--/lessapprox R: less, approximate -->
+<!ENTITY lat "⪫" ><!--larger than -->
+<!ENTITY late "⪭" ><!--larger than or equal -->
+<!ENTITY lates "⪭⁣" ><!--larger than or equal, slanted -->
+<!ENTITY lE "≦" ><!--/leqq R: less, double equals -->
+<!ENTITY leg "⋚" ><!--/lesseqgtr R: less, eq, greater -->
+<!ENTITY lEg "⋚" ><!--/lesseqqgtr R: less, dbl eq, greater -->
+<!ENTITY les "⩽" ><!--/leqslant R: less-than-or-eq, slant -->
+<!ENTITY lescc "⪨" ><!--less than, closed by curve, equal, slanted -->
+<!ENTITY lesdot "⩿" ><!--less-than-or-equal, slanted, dot inside -->
+<!ENTITY lesdoto "⪁" ><!--less-than-or-equal, slanted, dot above -->
+<!ENTITY lesdotor "⪃" ><!--less-than-or-equal, slanted, dot above right -->
+<!ENTITY lesg "⋚⁣" ><!--less, equal, slanted, greater -->
+<!ENTITY lesges "⪓" ><!--less, equal, slanted, greater, equal, slanted -->
+<!ENTITY lg "≶" ><!--/lessgtr R: less, greater -->
+<!ENTITY lgE "⪑" ><!--less, greater, equal -->
+<!ENTITY Ll "⋘" ><!--/Ll /lll /llless R: triple less-than -->
+<!ENTITY lsim "≲" ><!--/lesssim R: less, similar -->
+<!ENTITY lsime "⪍" ><!--less, similar, equal -->
+<!ENTITY lsimg "⪏" ><!--less, similar, greater -->
+<!ENTITY Lt "≪" ><!--/ll R: double less-than sign -->
+<!ENTITY ltcc "⪦" ><!--less than, closed by curve -->
+<!ENTITY ltcir "⩹" ><!--less than, circle inside -->
+<!ENTITY ltdot "⋖" ><!--/lessdot R: less than, with dot -->
+<!ENTITY ltlarr "⥶" ><!--less than, left arrow -->
+<!ENTITY ltquest "⩻" ><!--less than, questionmark above -->
+<!ENTITY ltrie "⊴" ><!--/trianglelefteq R: left triangle, eq -->
+<!ENTITY mcomma "⨩" ><!--minus, comma above -->
+<!ENTITY mDDot "∺" ><!--minus with four dots, geometric properties -->
+<!ENTITY mid "∣" ><!--/mid R: -->
+<!ENTITY mlcp "⫛" ><!--/mlcp -->
+<!ENTITY models "⊧" ><!--/models R: -->
+<!ENTITY mstpos "∾" ><!--most positive -->
+<!ENTITY pr "≺" ><!--/prec R: precedes -->
+<!ENTITY Pr "⪻" ><!--dbl precedes -->
+<!ENTITY prap "≾" ><!--/precapprox R: precedes, approximate -->
+<!ENTITY prcue "≼" ><!--/preccurlyeq R: precedes, curly eq -->
+<!ENTITY pre "⪯" ><!--/preceq R: precedes, equals -->
+<!ENTITY prE "⪯" ><!--precedes, dbl equals -->
+<!ENTITY prsim "≾" ><!--/precsim R: precedes, similar -->
+<!ENTITY prurel "⊰" ><!--element precedes under relation -->
+<!ENTITY ratio "∶" ><!--/ratio -->
+<!ENTITY rtrie "⊵" ><!--/trianglerighteq R: right tri, eq -->
+<!ENTITY rtriltri "⧎" ><!--right triangle above left triangle -->
+<!ENTITY sc "≻" ><!--/succ R: succeeds -->
+<!ENTITY Sc "⪼" ><!--dbl succeeds -->
+<!ENTITY scap "≿" ><!--/succapprox R: succeeds, approximate -->
+<!ENTITY sccue "≽" ><!--/succcurlyeq R: succeeds, curly eq -->
+<!ENTITY sce "≽" ><!--/succeq R: succeeds, equals -->
+<!ENTITY scE "≾" ><!--succeeds, dbl equals -->
+<!ENTITY scsim "≿" ><!--/succsim R: succeeds, similar -->
+<!ENTITY sdote "⩦" ><!--equal, dot below -->
+<!ENTITY simg "⪞" ><!--similar, greater -->
+<!ENTITY simgE "⪠" ><!--similar, greater, equal -->
+<!ENTITY siml "⪝" ><!--similar, less -->
+<!ENTITY simlE "⪟" ><!--similar, less, equal -->
+<!ENTITY smid "∣⁣" ><!--/shortmid R: -->
+<!ENTITY smile "⌣" ><!--/smile R: up curve -->
+<!ENTITY smt "⪪" ><!--smaller than -->
+<!ENTITY smte "⪬" ><!--smaller than or equal -->
+<!ENTITY smtes "⪬⁣" ><!--smaller than or equal, slanted -->
+<!ENTITY spar "∥⁣" ><!--/shortparallel R: short parallel -->
+<!ENTITY sqsub "⊏" ><!--/sqsubset R: square subset -->
+<!ENTITY sqsube "⊑" ><!--/sqsubseteq R: square subset, equals -->
+<!ENTITY sqsup "⊐" ><!--/sqsupset R: square superset -->
+<!ENTITY sqsupe "⊒" ><!--/sqsupseteq R: square superset, eq -->
+<!ENTITY Sub "⋐" ><!--/Subset R: double subset -->
+<!ENTITY subE "⊆" ><!--/subseteqq R: subset, dbl equals -->
+<!ENTITY subedot "⫃" ><!--subset, equals, dot -->
+<!ENTITY submult "⫁" ><!--subset, multiply -->
+<!ENTITY subplus "⪿" ><!--subset, plus -->
+<!ENTITY subrarr "⥹" ><!--subset, right arrow -->
+<!ENTITY subsim "⫇" ><!--subset, similar -->
+<!ENTITY subsub "⫕" ><!--subset above subset -->
+<!ENTITY subsup "⫓" ><!--subset above superset -->
+<!ENTITY Sup "⋑" ><!--/Supset R: dbl superset -->
+<!ENTITY supdsub "⫘" ><!--superset, subset, dash joining them -->
+<!ENTITY supE "⊇" ><!--/supseteqq R: superset, dbl equals -->
+<!ENTITY supedot "⫄" ><!--superset, equals, dot -->
+<!ENTITY suphsol "⊃/" ><!--superset, solidus -->
+<!ENTITY suphsub "⫗" ><!--superset, subset -->
+<!ENTITY suplarr "⥻" ><!--superset, left arrow -->
+<!ENTITY supmult "⫂" ><!--superset, multiply -->
+<!ENTITY supplus "⫀" ><!--superset, plus -->
+<!ENTITY supsim "⫈" ><!--superset, similar -->
+<!ENTITY supsub "⫔" ><!--superset above subset -->
+<!ENTITY supsup "⫖" ><!--superset above superset -->
+<!ENTITY thkap "≈⁣" ><!--/thickapprox R: thick approximate -->
+<!ENTITY thksim "∼" ><!--/thicksim R: thick similar -->
+<!ENTITY topfork "⫚" ><!--fork with top -->
+<!ENTITY trie "≜" ><!--/triangleq R: triangle, equals -->
+<!ENTITY twixt "≬" ><!--/between R: between -->
+<!ENTITY vBar "⫨" ><!--vert, dbl bar (under) -->
+<!ENTITY Vbar "⫫" ><!--dbl vert, bar (under) -->
+<!ENTITY vBarv "⫩" ><!--dbl bar, vert over and under -->
+<!ENTITY vdash "⊢" ><!--/vdash R: vertical, dash -->
+<!ENTITY vDash "⊨" ><!--/vDash R: vertical, dbl dash -->
+<!ENTITY Vdash "⊩" ><!--/Vdash R: dbl vertical, dash -->
+<!ENTITY VDash "⊫" ><!--dbl vert, dbl dash -->
+<!ENTITY Vdashl "⫦" ><!--vertical, dash (long) -->
+<!ENTITY vltri "⊲" ><!--/vartriangleleft R: l tri, open, var -->
+<!ENTITY vprop "∝" ><!--/varpropto R: proportional, variant -->
+<!ENTITY vrtri "⊳" ><!--/vartriangleright R: r tri, open, var -->
+<!ENTITY Vvdash "⊪" ><!--/Vvdash R: triple vertical, dash -->
--- /dev/null
+
+<!--
+ File isobox.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY boxdl "┐" ><!--lower left quadrant -->
+<!ENTITY boxdL "╕" ><!--lower left quadrant -->
+<!ENTITY boxDl "╖" ><!--lower left quadrant -->
+<!ENTITY boxDL "╗" ><!--lower left quadrant -->
+<!ENTITY boxdr "┌" ><!--lower right quadrant -->
+<!ENTITY boxdR "╒" ><!--lower right quadrant -->
+<!ENTITY boxDr "╓" ><!--lower right quadrant -->
+<!ENTITY boxDR "╔" ><!--lower right quadrant -->
+<!ENTITY boxh "─" ><!--horizontal line -->
+<!ENTITY boxH "═" ><!--horizontal line -->
+<!ENTITY boxhd "┬" ><!--lower left and right quadrants -->
+<!ENTITY boxhD "╥" ><!--lower left and right quadrants -->
+<!ENTITY boxHd "╤" ><!--lower left and right quadrants -->
+<!ENTITY boxHD "╦" ><!--lower left and right quadrants -->
+<!ENTITY boxhu "┴" ><!--upper left and right quadrants -->
+<!ENTITY boxhU "╨" ><!--upper left and right quadrants -->
+<!ENTITY boxHu "╧" ><!--upper left and right quadrants -->
+<!ENTITY boxHU "╩" ><!--upper left and right quadrants -->
+<!ENTITY boxul "┘" ><!--upper left quadrant -->
+<!ENTITY boxuL "╛" ><!--upper left quadrant -->
+<!ENTITY boxUl "╜" ><!--upper left quadrant -->
+<!ENTITY boxUL "╝" ><!--upper left quadrant -->
+<!ENTITY boxur "└" ><!--upper right quadrant -->
+<!ENTITY boxuR "╘" ><!--upper right quadrant -->
+<!ENTITY boxUr "╙" ><!--upper right quadrant -->
+<!ENTITY boxUR "╚" ><!--upper right quadrant -->
+<!ENTITY boxv "│" ><!--vertical line -->
+<!ENTITY boxV "║" ><!--vertical line -->
+<!ENTITY boxvh "┼" ><!--all four quadrants -->
+<!ENTITY boxvH "╪" ><!--all four quadrants -->
+<!ENTITY boxVh "╫" ><!--all four quadrants -->
+<!ENTITY boxVH "╬" ><!--all four quadrants -->
+<!ENTITY boxvl "┤" ><!--upper and lower left quadrants -->
+<!ENTITY boxvL "╡" ><!--upper and lower left quadrants -->
+<!ENTITY boxVl "╢" ><!--upper and lower left quadrants -->
+<!ENTITY boxVL "╣" ><!--upper and lower left quadrants -->
+<!ENTITY boxvr "├" ><!--upper and lower right quadrants -->
+<!ENTITY boxvR "╞" ><!--upper and lower right quadrants -->
+<!ENTITY boxVr "╟" ><!--upper and lower right quadrants -->
+<!ENTITY boxVR "╠" ><!--upper and lower right quadrants -->
--- /dev/null
+
+<!--
+ File isocyr1.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY acy "а" ><!--=small a, Cyrillic -->
+<!ENTITY Acy "А" ><!--=capital A, Cyrillic -->
+<!ENTITY bcy "б" ><!--=small be, Cyrillic -->
+<!ENTITY Bcy "Б" ><!--=capital BE, Cyrillic -->
+<!ENTITY chcy "ч" ><!--=small che, Cyrillic -->
+<!ENTITY CHcy "Ч" ><!--=capital CHE, Cyrillic -->
+<!ENTITY dcy "д" ><!--=small de, Cyrillic -->
+<!ENTITY Dcy "Д" ><!--=capital DE, Cyrillic -->
+<!ENTITY ecy "э" ><!--=small e, Cyrillic -->
+<!ENTITY Ecy "Э" ><!--=capital E, Cyrillic -->
+<!ENTITY fcy "ф" ><!--=small ef, Cyrillic -->
+<!ENTITY Fcy "Ф" ><!--=capital EF, Cyrillic -->
+<!ENTITY gcy "г" ><!--=small ghe, Cyrillic -->
+<!ENTITY Gcy "Г" ><!--=capital GHE, Cyrillic -->
+<!ENTITY hardcy "ъ" ><!--=small hard sign, Cyrillic -->
+<!ENTITY HARDcy "Ъ" ><!--=capital HARD sign, Cyrillic -->
+<!ENTITY icy "и" ><!--=small i, Cyrillic -->
+<!ENTITY Icy "И" ><!--=capital I, Cyrillic -->
+<!ENTITY iecy "е" ><!--=small ie, Cyrillic -->
+<!ENTITY IEcy "Е" ><!--=capital IE, Cyrillic -->
+<!ENTITY iocy "ё" ><!--=small io, Russian -->
+<!ENTITY IOcy "Ё" ><!--=capital IO, Russian -->
+<!ENTITY jcy "й" ><!--=small short i, Cyrillic -->
+<!ENTITY Jcy "Й" ><!--=capital short I, Cyrillic -->
+<!ENTITY kcy "к" ><!--=small ka, Cyrillic -->
+<!ENTITY Kcy "К" ><!--=capital KA, Cyrillic -->
+<!ENTITY khcy "х" ><!--=small ha, Cyrillic -->
+<!ENTITY KHcy "Х" ><!--=capital HA, Cyrillic -->
+<!ENTITY lcy "л" ><!--=small el, Cyrillic -->
+<!ENTITY Lcy "Л" ><!--=capital EL, Cyrillic -->
+<!ENTITY mcy "м" ><!--=small em, Cyrillic -->
+<!ENTITY Mcy "М" ><!--=capital EM, Cyrillic -->
+<!ENTITY ncy "н" ><!--=small en, Cyrillic -->
+<!ENTITY Ncy "Н" ><!--=capital EN, Cyrillic -->
+<!ENTITY numero "№" ><!--=numero sign -->
+<!ENTITY ocy "о" ><!--=small o, Cyrillic -->
+<!ENTITY Ocy "О" ><!--=capital O, Cyrillic -->
+<!ENTITY pcy "п" ><!--=small pe, Cyrillic -->
+<!ENTITY Pcy "П" ><!--=capital PE, Cyrillic -->
+<!ENTITY rcy "р" ><!--=small er, Cyrillic -->
+<!ENTITY Rcy "Р" ><!--=capital ER, Cyrillic -->
+<!ENTITY scy "с" ><!--=small es, Cyrillic -->
+<!ENTITY Scy "С" ><!--=capital ES, Cyrillic -->
+<!ENTITY shchcy "щ" ><!--=small shcha, Cyrillic -->
+<!ENTITY SHCHcy "Щ" ><!--=capital SHCHA, Cyrillic -->
+<!ENTITY shcy "ш" ><!--=small sha, Cyrillic -->
+<!ENTITY SHcy "Ш" ><!--=capital SHA, Cyrillic -->
+<!ENTITY softcy "ь" ><!--=small soft sign, Cyrillic -->
+<!ENTITY SOFTcy "Ь" ><!--=capital SOFT sign, Cyrillic -->
+<!ENTITY tcy "т" ><!--=small te, Cyrillic -->
+<!ENTITY Tcy "Т" ><!--=capital TE, Cyrillic -->
+<!ENTITY tscy "ц" ><!--=small tse, Cyrillic -->
+<!ENTITY TScy "Ц" ><!--=capital TSE, Cyrillic -->
+<!ENTITY ucy "у" ><!--=small u, Cyrillic -->
+<!ENTITY Ucy "У" ><!--=capital U, Cyrillic -->
+<!ENTITY vcy "в" ><!--=small ve, Cyrillic -->
+<!ENTITY Vcy "В" ><!--=capital VE, Cyrillic -->
+<!ENTITY yacy "я" ><!--=small ya, Cyrillic -->
+<!ENTITY YAcy "Я" ><!--=capital YA, Cyrillic -->
+<!ENTITY ycy "ы" ><!--=small yeru, Cyrillic -->
+<!ENTITY Ycy "Ы" ><!--=capital YERU, Cyrillic -->
+<!ENTITY yucy "ю" ><!--=small yu, Cyrillic -->
+<!ENTITY YUcy "Ю" ><!--=capital YU, Cyrillic -->
+<!ENTITY zcy "з" ><!--=small ze, Cyrillic -->
+<!ENTITY Zcy "З" ><!--=capital ZE, Cyrillic -->
+<!ENTITY zhcy "ж" ><!--=small zhe, Cyrillic -->
+<!ENTITY ZHcy "Ж" ><!--=capital ZHE, Cyrillic -->
--- /dev/null
+
+<!--
+ File isocyr2.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY djcy "ђ" ><!--=small dje, Serbian -->
+<!ENTITY DJcy "Ђ" ><!--=capital DJE, Serbian -->
+<!ENTITY dscy "ѕ" ><!--=small dse, Macedonian -->
+<!ENTITY DScy "Ѕ" ><!--=capital DSE, Macedonian -->
+<!ENTITY dzcy "џ" ><!--=small dze, Serbian -->
+<!ENTITY DZcy "Џ" ><!--=capital dze, Serbian -->
+<!ENTITY gjcy "ѓ" ><!--=small gje, Macedonian -->
+<!ENTITY GJcy "Ѓ" ><!--=capital GJE Macedonian -->
+<!ENTITY iukcy "і" ><!--=small i, Ukrainian -->
+<!ENTITY Iukcy "І" ><!--=capital I, Ukrainian -->
+<!ENTITY jsercy "ј" ><!--=small je, Serbian -->
+<!ENTITY Jsercy "Ј" ><!--=capital JE, Serbian -->
+<!ENTITY jukcy "є" ><!--=small je, Ukrainian -->
+<!ENTITY Jukcy "Є" ><!--=capital JE, Ukrainian -->
+<!ENTITY kjcy "ќ" ><!--=small kje Macedonian -->
+<!ENTITY KJcy "Ќ" ><!--=capital KJE, Macedonian -->
+<!ENTITY ljcy "љ" ><!--=small lje, Serbian -->
+<!ENTITY LJcy "Љ" ><!--=capital LJE, Serbian -->
+<!ENTITY njcy "њ" ><!--=small nje, Serbian -->
+<!ENTITY NJcy "Њ" ><!--=capital NJE, Serbian -->
+<!ENTITY tshcy "ћ" ><!--=small tshe, Serbian -->
+<!ENTITY TSHcy "Ћ" ><!--=capital TSHE, Serbian -->
+<!ENTITY ubrcy "ў" ><!--=small u, Byelorussian -->
+<!ENTITY Ubrcy "Ў" ><!--=capital U, Byelorussian -->
+<!ENTITY yicy "ї" ><!--=small yi, Ukrainian -->
+<!ENTITY YIcy "Ї" ><!--=capital YI, Ukrainian -->
--- /dev/null
+
+<!--
+ File isodia.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY acute "´" ><!--=acute accent -->
+<!ENTITY breve "˘" ><!--=breve -->
+<!ENTITY caron "ˇ" ><!--=caron -->
+<!ENTITY cedil "¸" ><!--=cedilla -->
+<!ENTITY circ "^" ><!--circumflex accent -->
+<!ENTITY dblac "˝" ><!--=double acute accent -->
+<!ENTITY die "¨" ><!--=dieresis -->
+<!ENTITY dot "˙" ><!--=dot above -->
+<!ENTITY grave "`" ><!--=grave accent -->
+<!ENTITY macr "¯" ><!--=macron -->
+<!ENTITY ogon "˛" ><!--=ogonek -->
+<!ENTITY ring "˚" ><!--=ring -->
+<!ENTITY tilde "˜" ><!--=tilde -->
+<!ENTITY uml "¨" ><!--=umlaut mark -->
--- /dev/null
+
+<!--
+ File isogrk3.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY alpha "α" ><!--/alpha small alpha, Greek -->
+<!ENTITY beta "β" ><!--/beta small beta, Greek -->
+<!ENTITY chi "χ" ><!--/chi small chi, Greek -->
+<!ENTITY delta "δ" ><!--/delta small delta, Greek -->
+<!ENTITY Delta "Δ" ><!--/Delta capital Delta, Greek -->
+<!ENTITY epsi "ε" ><!--/straightepsilon, small epsilon, Greek -->
+<!ENTITY epsiv "ɛ" ><!--/varepsilon -->
+<!ENTITY eta "η" ><!--/eta small eta, Greek -->
+<!ENTITY gamma "γ" ><!--/gamma small gamma, Greek -->
+<!ENTITY Gamma "Γ" ><!--/Gamma capital Gamma, Greek -->
+<!ENTITY gammad "Ϝ" ><!--/digamma -->
+<!ENTITY Gammad "Ϝ" ><!--capital digamma -->
+<!ENTITY iota "ι" ><!--/iota small iota, Greek -->
+<!ENTITY kappa "κ" ><!--/kappa small kappa, Greek -->
+<!ENTITY kappav "ϰ" ><!--/varkappa -->
+<!ENTITY lambda "λ" ><!--/lambda small lambda, Greek -->
+<!ENTITY Lambda "Λ" ><!--/Lambda capital Lambda, Greek -->
+<!ENTITY mu "μ" ><!--/mu small mu, Greek -->
+<!ENTITY nu "ν" ><!--/nu small nu, Greek -->
+<!ENTITY omega "ω" ><!--/omega small omega, Greek -->
+<!ENTITY Omega "Ω" ><!--/Omega capital Omega, Greek -->
+<!ENTITY phi "φ" ><!--/straightphi - small phi, Greek -->
+<!ENTITY Phi "Φ" ><!--/Phi capital Phi, Greek -->
+<!ENTITY phiv "ϕ" ><!--/varphi - curly or open phi -->
+<!ENTITY pi "π" ><!--/pi small pi, Greek -->
+<!ENTITY Pi "Π" ><!--/Pi capital Pi, Greek -->
+<!ENTITY piv "ϖ" ><!--/varpi -->
+<!ENTITY psi "ψ" ><!--/psi small psi, Greek -->
+<!ENTITY Psi "Ψ" ><!--/Psi capital Psi, Greek -->
+<!ENTITY rho "ρ" ><!--/rho small rho, Greek -->
+<!ENTITY rhov "ϱ" ><!--/varrho -->
+<!ENTITY sigma "σ" ><!--/sigma small sigma, Greek -->
+<!ENTITY Sigma "Σ" ><!--/Sigma capital Sigma, Greek -->
+<!ENTITY sigmav "ς" ><!--/varsigma -->
+<!ENTITY tau "τ" ><!--/tau small tau, Greek -->
+<!ENTITY theta "θ" ><!--/theta straight theta, small theta, Greek -->
+<!ENTITY Theta "Θ" ><!--/Theta capital Theta, Greek -->
+<!ENTITY thetav "ϑ" ><!--/vartheta - curly or open theta -->
+<!ENTITY upsi "υ" ><!--/upsilon small upsilon, Greek -->
+<!ENTITY Upsi "ϒ" ><!--/Upsilon capital Upsilon, Greek -->
+<!ENTITY xi "ξ" ><!--/xi small xi, Greek -->
+<!ENTITY Xi "Ξ" ><!--/Xi capital Xi, Greek -->
+<!ENTITY zeta "ζ" ><!--/zeta small zeta, Greek -->
--- /dev/null
+
+<!--
+ File isolat1.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY aacute "á" ><!--=small a, acute accent -->
+<!ENTITY Aacute "Á" ><!--=capital A, acute accent -->
+<!ENTITY acirc "â" ><!--=small a, circumflex accent -->
+<!ENTITY Acirc "Â" ><!--=capital A, circumflex accent -->
+<!ENTITY aelig "æ" ><!--=small ae diphthong (ligature) -->
+<!ENTITY AElig "Æ" ><!--=capital AE diphthong (ligature) -->
+<!ENTITY agrave "à" ><!--=small a, grave accent -->
+<!ENTITY Agrave "À" ><!--=capital A, grave accent -->
+<!ENTITY aring "å" ><!--=small a, ring -->
+<!ENTITY Aring "Å" ><!--=capital A, ring -->
+<!ENTITY atilde "ã" ><!--=small a, tilde -->
+<!ENTITY Atilde "Ã" ><!--=capital A, tilde -->
+<!ENTITY auml "ä" ><!--=small a, dieresis or umlaut mark -->
+<!ENTITY Auml "Ä" ><!--=capital A, dieresis or umlaut mark -->
+<!ENTITY ccedil "ç" ><!--=small c, cedilla -->
+<!ENTITY Ccedil "Ç" ><!--=capital C, cedilla -->
+<!ENTITY eacute "é" ><!--=small e, acute accent -->
+<!ENTITY Eacute "É" ><!--=capital E, acute accent -->
+<!ENTITY ecirc "ê" ><!--=small e, circumflex accent -->
+<!ENTITY Ecirc "Ê" ><!--=capital E, circumflex accent -->
+<!ENTITY egrave "è" ><!--=small e, grave accent -->
+<!ENTITY Egrave "È" ><!--=capital E, grave accent -->
+<!ENTITY eth "ð" ><!--=small eth, Icelandic -->
+<!ENTITY ETH "Ð" ><!--=capital Eth, Icelandic -->
+<!ENTITY euml "ë" ><!--=small e, dieresis or umlaut mark -->
+<!ENTITY Euml "Ë" ><!--=capital E, dieresis or umlaut mark -->
+<!ENTITY iacute "í" ><!--=small i, acute accent -->
+<!ENTITY Iacute "Í" ><!--=capital I, acute accent -->
+<!ENTITY icirc "î" ><!--=small i, circumflex accent -->
+<!ENTITY Icirc "Î" ><!--=capital I, circumflex accent -->
+<!ENTITY igrave "ì" ><!--=small i, grave accent -->
+<!ENTITY Igrave "Ì" ><!--=capital I, grave accent -->
+<!ENTITY iuml "ï" ><!--=small i, dieresis or umlaut mark -->
+<!ENTITY Iuml "Ï" ><!--=capital I, dieresis or umlaut mark -->
+<!ENTITY ntilde "ñ" ><!--=small n, tilde -->
+<!ENTITY Ntilde "Ñ" ><!--=capital N, tilde -->
+<!ENTITY oacute "ó" ><!--=small o, acute accent -->
+<!ENTITY Oacute "Ó" ><!--=capital O, acute accent -->
+<!ENTITY ocirc "ô" ><!--=small o, circumflex accent -->
+<!ENTITY Ocirc "Ô" ><!--=capital O, circumflex accent -->
+<!ENTITY ograve "ò" ><!--=small o, grave accent -->
+<!ENTITY Ograve "Ò" ><!--=capital O, grave accent -->
+<!ENTITY oslash "ø" ><!--latin small letter o with stroke -->
+<!ENTITY Oslash "Ø" ><!--=capital O, slash -->
+<!ENTITY otilde "õ" ><!--=small o, tilde -->
+<!ENTITY Otilde "Õ" ><!--=capital O, tilde -->
+<!ENTITY ouml "ö" ><!--=small o, dieresis or umlaut mark -->
+<!ENTITY Ouml "Ö" ><!--=capital O, dieresis or umlaut mark -->
+<!ENTITY szlig "ß" ><!--=small sharp s, German (sz ligature) -->
+<!ENTITY thorn "þ" ><!--=small thorn, Icelandic -->
+<!ENTITY THORN "Þ" ><!--=capital THORN, Icelandic -->
+<!ENTITY uacute "ú" ><!--=small u, acute accent -->
+<!ENTITY Uacute "Ú" ><!--=capital U, acute accent -->
+<!ENTITY ucirc "û" ><!--=small u, circumflex accent -->
+<!ENTITY Ucirc "Û" ><!--=capital U, circumflex accent -->
+<!ENTITY ugrave "ù" ><!--=small u, grave accent -->
+<!ENTITY Ugrave "Ù" ><!--=capital U, grave accent -->
+<!ENTITY uuml "ü" ><!--=small u, dieresis or umlaut mark -->
+<!ENTITY Uuml "Ü" ><!--=capital U, dieresis or umlaut mark -->
+<!ENTITY yacute "ý" ><!--=small y, acute accent -->
+<!ENTITY Yacute "Ý" ><!--=capital Y, acute accent -->
+<!ENTITY yuml "ÿ" ><!--=small y, dieresis or umlaut mark -->
--- /dev/null
+
+<!--
+ File isolat2.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY abreve "ă" ><!--=small a, breve -->
+<!ENTITY Abreve "Ă" ><!--=capital A, breve -->
+<!ENTITY amacr "ā" ><!--=small a, macron -->
+<!ENTITY Amacr "Ā" ><!--=capital A, macron -->
+<!ENTITY aogon "ą" ><!--=small a, ogonek -->
+<!ENTITY Aogon "Ą" ><!--=capital A, ogonek -->
+<!ENTITY cacute "ć" ><!--=small c, acute accent -->
+<!ENTITY Cacute "Ć" ><!--=capital C, acute accent -->
+<!ENTITY ccaron "č" ><!--=small c, caron -->
+<!ENTITY Ccaron "Č" ><!--=capital C, caron -->
+<!ENTITY ccirc "ĉ" ><!--=small c, circumflex accent -->
+<!ENTITY Ccirc "Ĉ" ><!--=capital C, circumflex accent -->
+<!ENTITY cdot "ċ" ><!--=small c, dot above -->
+<!ENTITY Cdot "Ċ" ><!--=capital C, dot above -->
+<!ENTITY dcaron "ď" ><!--=small d, caron -->
+<!ENTITY Dcaron "Ď" ><!--=capital D, caron -->
+<!ENTITY dstrok "đ" ><!--=small d, stroke -->
+<!ENTITY Dstrok "Đ" ><!--=capital D, stroke -->
+<!ENTITY ecaron "ě" ><!--=small e, caron -->
+<!ENTITY Ecaron "Ě" ><!--=capital E, caron -->
+<!ENTITY edot "ė" ><!--=small e, dot above -->
+<!ENTITY Edot "Ė" ><!--=capital E, dot above -->
+<!ENTITY emacr "ē" ><!--=small e, macron -->
+<!ENTITY Emacr "Ē" ><!--=capital E, macron -->
+<!ENTITY eng "ŋ" ><!--=small eng, Lapp -->
+<!ENTITY ENG "Ŋ" ><!--=capital ENG, Lapp -->
+<!ENTITY eogon "ę" ><!--=small e, ogonek -->
+<!ENTITY Eogon "Ę" ><!--=capital E, ogonek -->
+<!ENTITY gacute "ǵ" ><!--=small g, acute accent -->
+<!ENTITY gbreve "ğ" ><!--=small g, breve -->
+<!ENTITY Gbreve "Ğ" ><!--=capital G, breve -->
+<!ENTITY Gcedil "Ģ" ><!--=capital G, cedilla -->
+<!ENTITY gcirc "ĝ" ><!--=small g, circumflex accent -->
+<!ENTITY Gcirc "Ĝ" ><!--=capital G, circumflex accent -->
+<!ENTITY gdot "ġ" ><!--=small g, dot above -->
+<!ENTITY Gdot "Ġ" ><!--=capital G, dot above -->
+<!ENTITY hcirc "ĥ" ><!--=small h, circumflex accent -->
+<!ENTITY Hcirc "Ĥ" ><!--=capital H, circumflex accent -->
+<!ENTITY hstrok "ħ" ><!--=small h, stroke -->
+<!ENTITY Hstrok "Ħ" ><!--=capital H, stroke -->
+<!ENTITY Idot "İ" ><!--=capital I, dot above -->
+<!ENTITY ijlig "ij" ><!--=small ij ligature -->
+<!ENTITY IJlig "IJ" ><!--=capital IJ ligature -->
+<!ENTITY imacr "ī" ><!--=small i, macron -->
+<!ENTITY Imacr "Ī" ><!--=capital I, macron -->
+<!ENTITY inodot "ı" ><!--=small i without dot -->
+<!ENTITY iogon "į" ><!--=small i, ogonek -->
+<!ENTITY Iogon "Į" ><!--=capital I, ogonek -->
+<!ENTITY itilde "ĩ" ><!--=small i, tilde -->
+<!ENTITY Itilde "Ĩ" ><!--=capital I, tilde -->
+<!ENTITY jcirc "ĵ" ><!--=small j, circumflex accent -->
+<!ENTITY Jcirc "Ĵ" ><!--=capital J, circumflex accent -->
+<!ENTITY kcedil "ķ" ><!--=small k, cedilla -->
+<!ENTITY Kcedil "Ķ" ><!--=capital K, cedilla -->
+<!ENTITY kgreen "ĸ" ><!--=small k, Greenlandic -->
+<!ENTITY lacute "ĺ" ><!--=small l, acute accent -->
+<!ENTITY Lacute "Ĺ" ><!--=capital L, acute accent -->
+<!ENTITY lcaron "ľ" ><!--=small l, caron -->
+<!ENTITY Lcaron "Ľ" ><!--=capital L, caron -->
+<!ENTITY lcedil "ļ" ><!--=small l, cedilla -->
+<!ENTITY Lcedil "Ļ" ><!--=capital L, cedilla -->
+<!ENTITY lmidot "ŀ" ><!--=small l, middle dot -->
+<!ENTITY Lmidot "Ŀ" ><!--=capital L, middle dot -->
+<!ENTITY lstrok "ł" ><!--=small l, stroke -->
+<!ENTITY Lstrok "Ł" ><!--=capital L, stroke -->
+<!ENTITY nacute "ń" ><!--=small n, acute accent -->
+<!ENTITY Nacute "Ń" ><!--=capital N, acute accent -->
+<!ENTITY napos "ʼn" ><!--=small n, apostrophe -->
+<!ENTITY ncaron "ň" ><!--=small n, caron -->
+<!ENTITY Ncaron "Ň" ><!--=capital N, caron -->
+<!ENTITY ncedil "ņ" ><!--=small n, cedilla -->
+<!ENTITY Ncedil "Ņ" ><!--=capital N, cedilla -->
+<!ENTITY odblac "ő" ><!--=small o, double acute accent -->
+<!ENTITY Odblac "Ő" ><!--=capital O, double acute accent -->
+<!ENTITY oelig "œ" ><!--=small oe ligature -->
+<!ENTITY OElig "Œ" ><!--=capital OE ligature -->
+<!ENTITY omacr "ō" ><!--=small o, macron -->
+<!ENTITY Omacr "Ō" ><!--=capital O, macron -->
+<!ENTITY racute "ŕ" ><!--=small r, acute accent -->
+<!ENTITY Racute "Ŕ" ><!--=capital R, acute accent -->
+<!ENTITY rcaron "ř" ><!--=small r, caron -->
+<!ENTITY Rcaron "Ř" ><!--=capital R, caron -->
+<!ENTITY rcedil "ŗ" ><!--=small r, cedilla -->
+<!ENTITY Rcedil "Ŗ" ><!--=capital R, cedilla -->
+<!ENTITY sacute "ś" ><!--=small s, acute accent -->
+<!ENTITY Sacute "Ś" ><!--=capital S, acute accent -->
+<!ENTITY scaron "š" ><!--=small s, caron -->
+<!ENTITY Scaron "Š" ><!--=capital S, caron -->
+<!ENTITY scedil "ş" ><!--=small s, cedilla -->
+<!ENTITY Scedil "Ş" ><!--=capital S, cedilla -->
+<!ENTITY scirc "ŝ" ><!--=small s, circumflex accent -->
+<!ENTITY Scirc "Ŝ" ><!--=capital S, circumflex accent -->
+<!ENTITY tcaron "ť" ><!--=small t, caron -->
+<!ENTITY Tcaron "Ť" ><!--=capital T, caron -->
+<!ENTITY tcedil "ţ" ><!--=small t, cedilla -->
+<!ENTITY Tcedil "Ţ" ><!--=capital T, cedilla -->
+<!ENTITY tstrok "ŧ" ><!--=small t, stroke -->
+<!ENTITY Tstrok "Ŧ" ><!--=capital T, stroke -->
+<!ENTITY ubreve "ŭ" ><!--=small u, breve -->
+<!ENTITY Ubreve "Ŭ" ><!--=capital U, breve -->
+<!ENTITY udblac "ű" ><!--=small u, double acute accent -->
+<!ENTITY Udblac "Ű" ><!--=capital U, double acute accent -->
+<!ENTITY umacr "ū" ><!--=small u, macron -->
+<!ENTITY Umacr "Ū" ><!--=capital U, macron -->
+<!ENTITY uogon "ų" ><!--=small u, ogonek -->
+<!ENTITY Uogon "Ų" ><!--=capital U, ogonek -->
+<!ENTITY uring "ů" ><!--=small u, ring -->
+<!ENTITY Uring "Ů" ><!--=capital U, ring -->
+<!ENTITY utilde "ũ" ><!--=small u, tilde -->
+<!ENTITY Utilde "Ũ" ><!--=capital U, tilde -->
+<!ENTITY wcirc "ŵ" ><!--=small w, circumflex accent -->
+<!ENTITY Wcirc "Ŵ" ><!--=capital W, circumflex accent -->
+<!ENTITY ycirc "ŷ" ><!--=small y, circumflex accent -->
+<!ENTITY Ycirc "Ŷ" ><!--=capital Y, circumflex accent -->
+<!ENTITY Yuml "Ÿ" ><!--=capital Y, dieresis or umlaut mark -->
+<!ENTITY zacute "ź" ><!--=small z, acute accent -->
+<!ENTITY Zacute "Ź" ><!--=capital Z, acute accent -->
+<!ENTITY zcaron "ž" ><!--=small z, caron -->
+<!ENTITY Zcaron "Ž" ><!--=capital Z, caron -->
+<!ENTITY zdot "ż" ><!--=small z, dot above -->
+<!ENTITY Zdot "Ż" ><!--=capital Z, dot above -->
--- /dev/null
+
+<!--
+ File isomfrk.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY afr "<%mchar.qname; name='afr'/>" ><!--(1D51E)/frak a, lower case a -->
+<!ENTITY Afr "<%mchar.qname; name='Afr'/>" ><!--(1D504)/frak A, upper case a -->
+<!ENTITY bfr "<%mchar.qname; name='bfr'/>" ><!--(1D51F)/frak b, lower case b -->
+<!ENTITY Bfr "<%mchar.qname; name='Bfr'/>" ><!--(1D505)/frak B, upper case b -->
+<!ENTITY cfr "<%mchar.qname; name='cfr'/>" ><!--(1D520)/frak c, lower case c -->
+<!ENTITY Cfr "<%mchar.qname; name='Cfr'/>" ><!--(1D506)/frak C, upper case c -->
+<!ENTITY dfr "<%mchar.qname; name='dfr'/>" ><!--(1D521)/frak d, lower case d -->
+<!ENTITY Dfr "<%mchar.qname; name='Dfr'/>" ><!--(1D507)/frak D, upper case d -->
+<!ENTITY efr "<%mchar.qname; name='efr'/>" ><!--(1D522)/frak e, lower case e -->
+<!ENTITY Efr "<%mchar.qname; name='Efr'/>" ><!--(1D508)/frak E, upper case e -->
+<!ENTITY ffr "<%mchar.qname; name='ffr'/>" ><!--(1D523)/frak f, lower case f -->
+<!ENTITY Ffr "<%mchar.qname; name='Ffr'/>" ><!--(1D509)/frak F, upper case f -->
+<!ENTITY gfr "<%mchar.qname; name='gfr'/>" ><!--(1D524)/frak g, lower case g -->
+<!ENTITY Gfr "<%mchar.qname; name='Gfr'/>" ><!--(1D50A)/frak G, upper case g -->
+<!ENTITY hfr "<%mchar.qname; name='hfr'/>" ><!--(1D525)/frak h, lower case h -->
+<!ENTITY Hfr "<%mchar.qname; name='Hfr'/>" ><!--(1D50B)/frak H, upper case h -->
+<!ENTITY ifr "<%mchar.qname; name='ifr'/>" ><!--(1D526)/frak i, lower case i -->
+<!ENTITY Ifr "<%mchar.qname; name='Ifr'/>" ><!--(1D50C)/frak I, upper case i -->
+<!ENTITY jfr "<%mchar.qname; name='jfr'/>" ><!--(1D527)/frak j, lower case j -->
+<!ENTITY Jfr "<%mchar.qname; name='Jfr'/>" ><!--(1D50D)/frak J, upper case j -->
+<!ENTITY kfr "<%mchar.qname; name='kfr'/>" ><!--(1D528)/frak k, lower case k -->
+<!ENTITY Kfr "<%mchar.qname; name='Kfr'/>" ><!--(1D50E)/frak K, upper case k -->
+<!ENTITY lfr "<%mchar.qname; name='lfr'/>" ><!--(1D529)/frak l, lower case l -->
+<!ENTITY Lfr "<%mchar.qname; name='Lfr'/>" ><!--(1D50F)/frak L, upper case l -->
+<!ENTITY mfr "<%mchar.qname; name='mfr'/>" ><!--(1D52A)/frak m, lower case m -->
+<!ENTITY Mfr "<%mchar.qname; name='Mfr'/>" ><!--(1D510)/frak M, upper case m -->
+<!ENTITY nfr "<%mchar.qname; name='nfr'/>" ><!--(1D52B)/frak n, lower case n -->
+<!ENTITY Nfr "<%mchar.qname; name='Nfr'/>" ><!--(1D511)/frak N, upper case n -->
+<!ENTITY ofr "<%mchar.qname; name='ofr'/>" ><!--(1D52C)/frak o, lower case o -->
+<!ENTITY Ofr "<%mchar.qname; name='Ofr'/>" ><!--(1D512)/frak O, upper case o -->
+<!ENTITY pfr "<%mchar.qname; name='pfr'/>" ><!--(1D52D)/frak p, lower case p -->
+<!ENTITY Pfr "<%mchar.qname; name='Pfr'/>" ><!--(1D513)/frak P, upper case p -->
+<!ENTITY qfr "<%mchar.qname; name='qfr'/>" ><!--(1D52E)/frak q, lower case q -->
+<!ENTITY Qfr "<%mchar.qname; name='Qfr'/>" ><!--(1D514)/frak Q, upper case q -->
+<!ENTITY rfr "<%mchar.qname; name='rfr'/>" ><!--(1D52F)/frak r, lower case r -->
+<!ENTITY Rfr "<%mchar.qname; name='Rfr'/>" ><!--(1D515)/frak R, upper case r -->
+<!ENTITY sfr "<%mchar.qname; name='sfr'/>" ><!--(1D530)/frak s, lower case s -->
+<!ENTITY Sfr "<%mchar.qname; name='Sfr'/>" ><!--(1D516)/frak S, upper case s -->
+<!ENTITY tfr "<%mchar.qname; name='tfr'/>" ><!--(1D531)/frak t, lower case t -->
+<!ENTITY Tfr "<%mchar.qname; name='Tfr'/>" ><!--(1D517)/frak T, upper case t -->
+<!ENTITY ufr "<%mchar.qname; name='ufr'/>" ><!--(1D532)/frak u, lower case u -->
+<!ENTITY Ufr "<%mchar.qname; name='Ufr'/>" ><!--(1D518)/frak U, upper case u -->
+<!ENTITY vfr "<%mchar.qname; name='vfr'/>" ><!--(1D533)/frak v, lower case v -->
+<!ENTITY Vfr "<%mchar.qname; name='Vfr'/>" ><!--(1D519)/frak V, upper case v -->
+<!ENTITY wfr "<%mchar.qname; name='wfr'/>" ><!--(1D534)/frak w, lower case w -->
+<!ENTITY Wfr "<%mchar.qname; name='Wfr'/>" ><!--(1D51A)/frak W, upper case w -->
+<!ENTITY xfr "<%mchar.qname; name='xfr'/>" ><!--(1D535)/frak x, lower case x -->
+<!ENTITY Xfr "<%mchar.qname; name='Xfr'/>" ><!--(1D51B)/frak X, upper case x -->
+<!ENTITY yfr "<%mchar.qname; name='yfr'/>" ><!--(1D536)/frak y, lower case y -->
+<!ENTITY Yfr "<%mchar.qname; name='Yfr'/>" ><!--(1D51C)/frak Y, upper case y -->
+<!ENTITY zfr "<%mchar.qname; name='zfr'/>" ><!--(1D537)/frak z, lower case z -->
+<!ENTITY Zfr "<%mchar.qname; name='Zfr'/>" ><!--(1D51D)/frak Z, upper case z -->
--- /dev/null
+
+<!--
+ File isomopf.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY Aopf "<%mchar.qname; name='Aopf'/>" ><!--(1D538)/Bbb A, open face A -->
+<!ENTITY Bopf "<%mchar.qname; name='Bopf'/>" ><!--(1D539)/Bbb B, open face B -->
+<!ENTITY Copf "<%mchar.qname; name='Copf'/>" ><!--(1D53A)/Bbb C, open face C -->
+<!ENTITY Dopf "<%mchar.qname; name='Dopf'/>" ><!--(1D53B)/Bbb D, open face D -->
+<!ENTITY Eopf "<%mchar.qname; name='Eopf'/>" ><!--(1D53C)/Bbb E, open face E -->
+<!ENTITY Fopf "<%mchar.qname; name='Fopf'/>" ><!--(1D53D)/Bbb F, open face F -->
+<!ENTITY Gopf "<%mchar.qname; name='Gopf'/>" ><!--(1D53E)/Bbb G, open face G -->
+<!ENTITY Hopf "<%mchar.qname; name='Hopf'/>" ><!--(1D53F)/Bbb H, open face H -->
+<!ENTITY Iopf "<%mchar.qname; name='Iopf'/>" ><!--(1D540)/Bbb I, open face I -->
+<!ENTITY Jopf "<%mchar.qname; name='Jopf'/>" ><!--(1D541)/Bbb J, open face J -->
+<!ENTITY Kopf "<%mchar.qname; name='Kopf'/>" ><!--(1D542)/Bbb K, open face K -->
+<!ENTITY Lopf "<%mchar.qname; name='Lopf'/>" ><!--(1D543)/Bbb L, open face L -->
+<!ENTITY Mopf "<%mchar.qname; name='Mopf'/>" ><!--(1D544)/Bbb M, open face M -->
+<!ENTITY Nopf "<%mchar.qname; name='Nopf'/>" ><!--(1D545)/Bbb N, open face N -->
+<!ENTITY Oopf "<%mchar.qname; name='Oopf'/>" ><!--(1D546)/Bbb O, open face O -->
+<!ENTITY Popf "<%mchar.qname; name='Popf'/>" ><!--(1D547)/Bbb P, open face P -->
+<!ENTITY Qopf "<%mchar.qname; name='Qopf'/>" ><!--(1D548)/Bbb Q, open face Q -->
+<!ENTITY Ropf "<%mchar.qname; name='Ropf'/>" ><!--(1D549)/Bbb R, open face R -->
+<!ENTITY Sopf "<%mchar.qname; name='Sopf'/>" ><!--(1D54A)/Bbb S, open face S -->
+<!ENTITY Topf "<%mchar.qname; name='Topf'/>" ><!--(1D54B)/Bbb T, open face T -->
+<!ENTITY Uopf "<%mchar.qname; name='Uopf'/>" ><!--(1D54C)/Bbb U, open face U -->
+<!ENTITY Vopf "<%mchar.qname; name='Vopf'/>" ><!--(1D54D)/Bbb V, open face V -->
+<!ENTITY Wopf "<%mchar.qname; name='Wopf'/>" ><!--(1D54E)/Bbb W, open face W -->
+<!ENTITY Xopf "<%mchar.qname; name='Xopf'/>" ><!--(1D54F)/Bbb X, open face X -->
+<!ENTITY Yopf "<%mchar.qname; name='Yopf'/>" ><!--(1D550)/Bbb Y, open face Y -->
+<!ENTITY Zopf "<%mchar.qname; name='Zopf'/>" ><!--(1D551)/Bbb Z, open face Z -->
--- /dev/null
+
+<!--
+ File isomscr.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY ascr "<%mchar.qname; name='ascr'/>" ><!--(1D4B6)/scr a, script letter a -->
+<!ENTITY Ascr "<%mchar.qname; name='Ascr'/>" ><!--(1D49C)/scr A, script letter A -->
+<!ENTITY bscr "<%mchar.qname; name='bscr'/>" ><!--(1D4B7)/scr b, script letter b -->
+<!ENTITY Bscr "<%mchar.qname; name='Bscr'/>" ><!--(1D49D)/scr B, script letter B -->
+<!ENTITY cscr "<%mchar.qname; name='cscr'/>" ><!--(1D4B8)/scr c, script letter c -->
+<!ENTITY Cscr "<%mchar.qname; name='Cscr'/>" ><!--(1D49E)/scr C, script letter C -->
+<!ENTITY dscr "<%mchar.qname; name='dscr'/>" ><!--(1D4B9)/scr d, script letter d -->
+<!ENTITY Dscr "<%mchar.qname; name='Dscr'/>" ><!--(1D49F)/scr D, script letter D -->
+<!ENTITY escr "<%mchar.qname; name='escr'/>" ><!--(1D4BA)/scr e, script letter e -->
+<!ENTITY Escr "<%mchar.qname; name='Escr'/>" ><!--(1D4A0)/scr E, script letter E -->
+<!ENTITY fscr "<%mchar.qname; name='fscr'/>" ><!--(1D4BB)/scr f, script letter f -->
+<!ENTITY Fscr "<%mchar.qname; name='Fscr'/>" ><!--(1D4A1)/scr F, script letter F -->
+<!ENTITY gscr "<%mchar.qname; name='gscr'/>" ><!--(1D4BC)/scr g, script letter g -->
+<!ENTITY Gscr "<%mchar.qname; name='Gscr'/>" ><!--(1D4A2)/scr G, script letter G -->
+<!ENTITY hscr "<%mchar.qname; name='hscr'/>" ><!--(1D4BD)/scr h, script letter h -->
+<!ENTITY Hscr "<%mchar.qname; name='Hscr'/>" ><!--(1D4A3)/scr H, script letter H -->
+<!ENTITY iscr "<%mchar.qname; name='iscr'/>" ><!--(1D4BE)/scr i, script letter i -->
+<!ENTITY Iscr "<%mchar.qname; name='Iscr'/>" ><!--(1D4A4)/scr I, script letter I -->
+<!ENTITY jscr "<%mchar.qname; name='jscr'/>" ><!--(1D4BF)/scr j, script letter j -->
+<!ENTITY Jscr "<%mchar.qname; name='Jscr'/>" ><!--(1D4A5)/scr J, script letter J -->
+<!ENTITY kscr "<%mchar.qname; name='kscr'/>" ><!--(1D4C0)/scr k, script letter k -->
+<!ENTITY Kscr "<%mchar.qname; name='Kscr'/>" ><!--(1D4A6)/scr K, script letter K -->
+<!ENTITY lscr "<%mchar.qname; name='lscr'/>" ><!--(1D4C1)/scr l, script letter l -->
+<!ENTITY Lscr "<%mchar.qname; name='Lscr'/>" ><!--(1D4A7)/scr L, script letter L -->
+<!ENTITY mscr "<%mchar.qname; name='mscr'/>" ><!--(1D4C2)/scr m, script letter m -->
+<!ENTITY Mscr "<%mchar.qname; name='Mscr'/>" ><!--(1D4A8)/scr M, script letter M -->
+<!ENTITY nscr "<%mchar.qname; name='nscr'/>" ><!--(1D4C3)/scr n, script letter n -->
+<!ENTITY Nscr "<%mchar.qname; name='Nscr'/>" ><!--(1D4A9)/scr N, script letter N -->
+<!ENTITY oscr "<%mchar.qname; name='oscr'/>" ><!--(1D4C4)/scr o, script letter o -->
+<!ENTITY Oscr "<%mchar.qname; name='Oscr'/>" ><!--(1D4AA)/scr O, script letter O -->
+<!ENTITY pscr "<%mchar.qname; name='pscr'/>" ><!--(1D4C5)/scr p, script letter p -->
+<!ENTITY Pscr "<%mchar.qname; name='Pscr'/>" ><!--(1D4AB)/scr P, script letter P -->
+<!ENTITY qscr "<%mchar.qname; name='qscr'/>" ><!--(1D4C6)/scr q, script letter q -->
+<!ENTITY Qscr "<%mchar.qname; name='Qscr'/>" ><!--(1D4AC)/scr Q, script letter Q -->
+<!ENTITY rscr "<%mchar.qname; name='rscr'/>" ><!--(1D4C7)/scr r, script letter r -->
+<!ENTITY Rscr "<%mchar.qname; name='Rscr'/>" ><!--(1D4AD)/scr R, script letter R -->
+<!ENTITY sscr "<%mchar.qname; name='sscr'/>" ><!--(1D4C8)/scr s, script letter s -->
+<!ENTITY Sscr "<%mchar.qname; name='Sscr'/>" ><!--(1D4AE)/scr S, script letter S -->
+<!ENTITY tscr "<%mchar.qname; name='tscr'/>" ><!--(1D4C9)/scr t, script letter t -->
+<!ENTITY Tscr "<%mchar.qname; name='Tscr'/>" ><!--(1D4AF)/scr T, script letter T -->
+<!ENTITY uscr "<%mchar.qname; name='uscr'/>" ><!--(1D4CA)/scr u, script letter u -->
+<!ENTITY Uscr "<%mchar.qname; name='Uscr'/>" ><!--(1D4B0)/scr U, script letter U -->
+<!ENTITY vscr "<%mchar.qname; name='vscr'/>" ><!--(1D4CB)/scr v, script letter v -->
+<!ENTITY Vscr "<%mchar.qname; name='Vscr'/>" ><!--(1D4B1)/scr V, script letter V -->
+<!ENTITY wscr "<%mchar.qname; name='wscr'/>" ><!--(1D4CC)/scr w, script letter w -->
+<!ENTITY Wscr "<%mchar.qname; name='Wscr'/>" ><!--(1D4B2)/scr W, script letter W -->
+<!ENTITY xscr "<%mchar.qname; name='xscr'/>" ><!--(1D4CD)/scr x, script letter x -->
+<!ENTITY Xscr "<%mchar.qname; name='Xscr'/>" ><!--(1D4B3)/scr X, script letter X -->
+<!ENTITY yscr "<%mchar.qname; name='yscr'/>" ><!--(1D4CE)/scr y, script letter y -->
+<!ENTITY Yscr "<%mchar.qname; name='Yscr'/>" ><!--(1D4B4)/scr Y, script letter Y -->
+<!ENTITY zscr "<%mchar.qname; name='zscr'/>" ><!--(1D4CF)/scr z, script letter z -->
+<!ENTITY Zscr "<%mchar.qname; name='Zscr'/>" ><!--(1D4B5)/scr Z, script letter Z -->
--- /dev/null
+
+<!--
+ File isonum.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+<!--HELM: deleted the central &:
+<!ENTITY amp "&&" >-->
+<!ENTITY amp "&#x00026;" ><!--=ampersand -->
+<!ENTITY apos "'" ><!--=apostrophe -->
+<!ENTITY ast "*" ><!--/ast B: =asterisk -->
+<!ENTITY brvbar "¦" ><!--=broken (vertical) bar -->
+<!ENTITY bsol "\" ><!--/backslash =reverse solidus -->
+<!ENTITY cent "¢" ><!--=cent sign -->
+<!ENTITY colon ":" ><!--/colon P: -->
+<!ENTITY comma "," ><!--P: =comma -->
+<!ENTITY commat "@" ><!--=commercial at -->
+<!ENTITY copy "©" ><!--=copyright sign -->
+<!ENTITY curren "¤" ><!--=general currency sign -->
+<!ENTITY darr "↓" ><!--/downarrow A: =downward arrow -->
+<!ENTITY deg "°" ><!--=degree sign -->
+<!ENTITY divide "÷" ><!--/div B: =divide sign -->
+<!ENTITY dollar "$" ><!--=dollar sign -->
+<!ENTITY equals "=" ><!--=equals sign R: -->
+<!ENTITY excl "!" ><!--=exclamation mark -->
+<!ENTITY frac12 "½" ><!--=fraction one-half -->
+<!ENTITY frac14 "¼" ><!--=fraction one-quarter -->
+<!ENTITY frac18 "⅛" ><!--=fraction one-eighth -->
+<!ENTITY frac34 "¾" ><!--=fraction three-quarters -->
+<!ENTITY frac38 "⅜" ><!--=fraction three-eighths -->
+<!ENTITY frac58 "⅝" ><!--=fraction five-eighths -->
+<!ENTITY frac78 "⅞" ><!--=fraction seven-eighths -->
+<!ENTITY gt ">" ><!--=greater-than sign R: -->
+<!ENTITY half "½" ><!--=fraction one-half -->
+<!ENTITY horbar "―" ><!--=horizontal bar -->
+<!ENTITY hyphen "‐" ><!--=hyphen -->
+<!ENTITY iexcl "¡" ><!--=inverted exclamation mark -->
+<!ENTITY iquest "¿" ><!--=inverted question mark -->
+<!ENTITY laquo "«" ><!--=angle quotation mark, left -->
+<!ENTITY larr "←" ><!--/leftarrow /gets A: =leftward arrow -->
+<!ENTITY lcub "{" ><!--/lbrace O: =left curly bracket -->
+<!ENTITY ldquo "“" ><!--=double quotation mark, left -->
+<!ENTITY lowbar "_" ><!--=low line -->
+<!ENTITY lpar "(" ><!--O: =left parenthesis -->
+<!ENTITY lsqb "[" ><!--/lbrack O: =left square bracket -->
+<!ENTITY lsquo "‘" ><!--=single quotation mark, left -->
+<!--HELM: deleted the central &:
+<!ENTITY lt "&<" >-->
+<!ENTITY lt "&#x0003C;" ><!--=less-than sign R: -->
+<!ENTITY micro "µ" ><!--=micro sign -->
+<!ENTITY middot "·" ><!--/centerdot B: =middle dot -->
+<!ENTITY nbsp " " ><!--=no break (required) space -->
+<!ENTITY not "¬" ><!--/neg /lnot =not sign -->
+<!ENTITY num "#" ><!--=number sign -->
+<!ENTITY ohm "Ω" ><!--=ohm sign -->
+<!ENTITY ordf "ª" ><!--=ordinal indicator, feminine -->
+<!ENTITY ordm "º" ><!--=ordinal indicator, masculine -->
+<!ENTITY para "¶" ><!--=pilcrow (paragraph sign) -->
+<!ENTITY percnt "%" ><!--=percent sign -->
+<!ENTITY period "." ><!--=full stop, period -->
+<!ENTITY plus "+" ><!--=plus sign B: -->
+<!ENTITY plusmn "±" ><!--/pm B: =plus-or-minus sign -->
+<!ENTITY pound "£" ><!--=pound sign -->
+<!ENTITY quest "?" ><!--=question mark -->
+<!ENTITY quot """ ><!--=quotation mark -->
+<!ENTITY raquo "»" ><!--=angle quotation mark, right -->
+<!ENTITY rarr "→" ><!--/rightarrow /to A: =rightward arrow -->
+<!ENTITY rcub "}" ><!--/rbrace C: =right curly bracket -->
+<!ENTITY rdquo "”" ><!--=double quotation mark, right -->
+<!ENTITY reg "®" ><!--/circledR =registered sign -->
+<!ENTITY rpar ")" ><!--C: =right parenthesis -->
+<!ENTITY rsqb "]" ><!--/rbrack C: =right square bracket -->
+<!ENTITY rsquo "’" ><!--=single quotation mark, right -->
+<!ENTITY sect "§" ><!--=section sign -->
+<!ENTITY semi ";" ><!--=semicolon P: -->
+<!ENTITY shy "­" ><!--=soft hyphen -->
+<!ENTITY sol "/" ><!--=solidus -->
+<!ENTITY sung "♪" ><!--=music note (sung text sign) -->
+<!ENTITY sup1 "¹" ><!--=superscript one -->
+<!ENTITY sup2 "²" ><!--=superscript two -->
+<!ENTITY sup3 "³" ><!--=superscript three -->
+<!ENTITY times "×" ><!--/times B: =multiply sign -->
+<!ENTITY trade "™" ><!--=trade mark sign -->
+<!ENTITY uarr "↑" ><!--/uparrow A: =upward arrow -->
+<!ENTITY verbar "|" ><!--/vert =vertical bar -->
+<!ENTITY yen "¥" ><!--/yen =yen sign -->
--- /dev/null
+
+<!--
+ File isopub.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1986
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY blank "␣" ><!--=significant blank symbol -->
+<!ENTITY blk12 "▒" ><!--=50% shaded block -->
+<!ENTITY blk14 "░" ><!--=25% shaded block -->
+<!ENTITY blk34 "▓" ><!--=75% shaded block -->
+<!ENTITY block "█" ><!--=full block -->
+<!ENTITY bull "•" ><!--/bullet B: =round bullet, filled -->
+<!ENTITY caret "⁁" ><!--=caret (insertion mark) -->
+<!ENTITY check "✓" ><!--/checkmark =tick, check mark -->
+<!ENTITY cir "○" ><!--/circ B: =circle, open -->
+<!ENTITY clubs "♣" ><!--/clubsuit =club suit symbol -->
+<!ENTITY copysr "℗" ><!--=sound recording copyright sign -->
+<!ENTITY cross "✗" ><!--=ballot cross -->
+<!ENTITY dagger "†" ><!--/dagger B: =dagger -->
+<!ENTITY Dagger "‡" ><!--/ddagger B: =double dagger -->
+<!ENTITY dash "‐" ><!--=hyphen (true graphic) -->
+<!ENTITY diams "♦" ><!--/diamondsuit =diamond suit symbol -->
+<!ENTITY dlcrop "⌍" ><!--downward left crop mark -->
+<!ENTITY drcrop "⌌" ><!--downward right crop mark -->
+<!ENTITY dtri "▿" ><!--/triangledown =down triangle, open -->
+<!ENTITY dtrif "▾" ><!--/blacktriangledown =dn tri, filled -->
+<!ENTITY emsp " " ><!--=em space -->
+<!ENTITY emsp13 " " ><!--=1/3-em space -->
+<!ENTITY emsp14 " " ><!--=1/4-em space -->
+<!ENTITY ensp " " ><!--=en space (1/2-em) -->
+<!ENTITY female "♀" ><!--=female symbol -->
+<!ENTITY ffilig "ffi" ><!--small ffi ligature -->
+<!ENTITY fflig "ff" ><!--small ff ligature -->
+<!ENTITY ffllig "ffl" ><!--small ffl ligature -->
+<!ENTITY filig "fi" ><!--small fi ligature -->
+<!ENTITY flat "♭" ><!--/flat =musical flat -->
+<!ENTITY fllig "fl" ><!--small fl ligature -->
+<!ENTITY frac13 "⅓" ><!--=fraction one-third -->
+<!ENTITY frac15 "⅕" ><!--=fraction one-fifth -->
+<!ENTITY frac16 "⅙" ><!--=fraction one-sixth -->
+<!ENTITY frac23 "⅔" ><!--=fraction two-thirds -->
+<!ENTITY frac25 "⅖" ><!--=fraction two-fifths -->
+<!ENTITY frac35 "⅗" ><!--=fraction three-fifths -->
+<!ENTITY frac45 "⅘" ><!--=fraction four-fifths -->
+<!ENTITY frac56 "⅚" ><!--=fraction five-sixths -->
+<!ENTITY hairsp " " ><!--=hair space -->
+<!ENTITY hearts "♡" ><!--/heartsuit =heart suit symbol -->
+<!ENTITY hellip "…" ><!--=ellipsis (horizontal) -->
+<!ENTITY hybull "⁃" ><!--rectangle, filled (hyphen bullet) -->
+<!ENTITY incare "℅" ><!--=in-care-of symbol -->
+<!ENTITY ldquor "„" ><!--=rising dbl quote, left (low) -->
+<!ENTITY lhblk "▄" ><!--=lower half block -->
+<!ENTITY loz "◊" ><!--/lozenge - lozenge or total mark -->
+<!ENTITY lozf "⧫" ><!--/blacklozenge - lozenge, filled -->
+<!ENTITY lsquor "‚" ><!--=rising single quote, left (low) -->
+<!ENTITY ltri "◃" ><!--/triangleleft B: l triangle, open -->
+<!ENTITY ltrif "◂" ><!--/blacktriangleleft R: =l tri, filled -->
+<!ENTITY male "♂" ><!--=male symbol -->
+<!ENTITY malt "✠" ><!--/maltese =maltese cross -->
+<!ENTITY marker "▮" ><!--=histogram marker -->
+<!ENTITY mdash "—" ><!--=em dash -->
+<!ENTITY mldr "…" ><!--em leader -->
+<!ENTITY natur "♮" ><!--/natural - music natural -->
+<!ENTITY ndash "–" ><!--=en dash -->
+<!ENTITY nldr "‥" ><!--=double baseline dot (en leader) -->
+<!ENTITY numsp " " ><!--=digit space (width of a number) -->
+<!ENTITY phone "☎" ><!--=telephone symbol -->
+<!ENTITY puncsp " " ><!--=punctuation space (width of comma) -->
+<!ENTITY rdquor "”" ><!--rising dbl quote, right (high) -->
+<!ENTITY rect "▭" ><!--=rectangle, open -->
+<!ENTITY rsquor "’" ><!--rising single quote, right (high) -->
+<!ENTITY rtri "▹" ><!--/triangleright B: r triangle, open -->
+<!ENTITY rtrif "▸" ><!--/blacktriangleright R: =r tri, filled -->
+<!ENTITY rx "℞" ><!--pharmaceutical prescription (Rx) -->
+<!ENTITY sext "✶" ><!--sextile (6-pointed star) -->
+<!ENTITY sharp "♯" ><!--/sharp =musical sharp -->
+<!ENTITY spades "♠" ><!--/spadesuit =spades suit symbol -->
+<!ENTITY squ "□" ><!--=square, open -->
+<!ENTITY squf "▪" ><!--/blacksquare =sq bullet, filled -->
+<!ENTITY star "⋆" ><!--=star, open -->
+<!ENTITY starf "★" ><!--/bigstar - star, filled -->
+<!ENTITY target "⌖" ><!--register mark or target -->
+<!ENTITY telrec "⌕" ><!--=telephone recorder symbol -->
+<!ENTITY thinsp " " ><!--=thin space (1/6-em) -->
+<!ENTITY uhblk "▀" ><!--=upper half block -->
+<!ENTITY ulcrop "⌏" ><!--upward left crop mark -->
+<!ENTITY urcrop "⌎" ><!--upward right crop mark -->
+<!ENTITY utri "▵" ><!--/triangle =up triangle, open -->
+<!ENTITY utrif "▴" ><!--/blacktriangle =up tri, filled -->
+<!ENTITY vellip "⋮" ><!--vertical ellipsis -->
--- /dev/null
+
+<!--
+ File isotech.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+ Entity names in this file are derived from files carrying the
+ following notice:
+
+ (C) International Organization for Standardization 1991
+ Permission to copy in any form is granted for use with
+ conforming SGML systems and applications as defined in
+ ISO 8879, provided this notice is included in all copies.
+
+-->
+
+<!ENTITY acd "∿" ><!--ac current -->
+<!ENTITY aleph "ℵ" ><!--/aleph aleph, Hebrew -->
+<!ENTITY and "∧" ><!--/wedge /land B: logical and -->
+<!ENTITY And "⩓" ><!--dbl logical and -->
+<!ENTITY andand "⩕" ><!--two logical and -->
+<!ENTITY andd "⩜" ><!--and, horizontal dash -->
+<!ENTITY andslope "⩘" ><!--sloping large and -->
+<!ENTITY andv "⩚" ><!--and with middle stem -->
+<!ENTITY angrt "∟" ><!--right (90 degree) angle -->
+<!ENTITY angsph "∢" ><!--/sphericalangle angle-spherical -->
+<!ENTITY angst "Å" ><!--Angstrom capital A, ring -->
+<!ENTITY ap "≈" ><!--/approx R: approximate -->
+<!ENTITY apacir "⩯" ><!--approximate, circumflex accent -->
+<!ENTITY awconint "∳" ><!--contour integral, anti-clockwise -->
+<!ENTITY awint "⨑" ><!--anti clock-wise integration -->
+<!ENTITY becaus "∵" ><!--/because R: because -->
+<!ENTITY bernou "ℬ" ><!--Bernoulli function (script capital B) -->
+<!ENTITY bne "=⃥" ><!--reverse not equal -->
+<!ENTITY bnequiv "≡⃥" ><!--reverse not equivalent -->
+<!ENTITY bnot "⌐" ><!--reverse not -->
+<!ENTITY bNot "⫭" ><!--reverse not with two horizontal strokes -->
+<!ENTITY bottom "⊥" ><!--/bot bottom -->
+<!ENTITY cap "∩" ><!--/cap B: intersection -->
+<!ENTITY Cconint "∰" ><!--triple contour integral operator -->
+<!ENTITY cirfnint "⨐" ><!--circulation function -->
+<!ENTITY compfn "∘" ><!--/circ B: composite function (small circle) -->
+<!ENTITY cong "≅" ><!--/cong R: congruent with -->
+<!ENTITY conint "∮" ><!--/oint L: contour integral operator -->
+<!ENTITY Conint "∯" ><!--double contour integral operator -->
+<!ENTITY ctdot "⋯" ><!--/cdots, three dots, centered -->
+<!ENTITY cup "∪" ><!--/cup B: union or logical sum -->
+<!ENTITY cwconint "∲" ><!--contour integral, clockwise -->
+<!ENTITY cwint "∱" ><!--clockwise integral -->
+<!ENTITY cylcty "⌭" ><!--cylindricity -->
+<!ENTITY disin "⋲" ><!--set membership, long horizontal stroke -->
+<!ENTITY Dot "¨" ><!--dieresis or umlaut mark -->
+<!ENTITY DotDot "⃜" ><!--four dots above -->
+<!ENTITY dsol "⁒" ><!--solidus, bar above -->
+<!ENTITY dtdot "⋱" ><!--/ddots, three dots, descending -->
+<!ENTITY dwangle "⦦" ><!--large downward pointing angle -->
+<!ENTITY epar "⋕" ><!--parallel, equal; equal or parallel -->
+<!ENTITY eparsl "⧣" ><!--parallel, slanted, equal; homothetically congruent to -->
+<!ENTITY equiv "≡" ><!--/equiv R: identical with -->
+<!ENTITY eqvparsl "⧥" ><!--equivalent, equal; congruent and parallel -->
+<!ENTITY exist "∃" ><!--/exists at least one exists -->
+<!ENTITY fnof "ƒ" ><!--function of (italic small f) -->
+<!ENTITY forall "∀" ><!--/forall for all -->
+<!ENTITY fpartint "⨍" ><!--finite part integral -->
+<!ENTITY ge "≥" ><!--/geq /ge R: greater-than-or-equal -->
+<!ENTITY hamilt "ℋ" ><!--Hamiltonian (script capital H) -->
+<!ENTITY iff "⇔" ><!--/iff if and only if -->
+<!ENTITY iinfin "⧜" ><!--infinity sign, incomplete -->
+<!ENTITY imped "<%mchar.qname; name='imped'/>" ><!--(1D543)impedance -->
+<!ENTITY infin "∞" ><!--/infty infinity -->
+<!ENTITY int "∫" ><!--/int L: integral operator -->
+<!ENTITY Int "∬" ><!--double integral operator -->
+<!ENTITY intlarhk "⨗" ><!--integral, left arrow with hook -->
+<!ENTITY isin "∈" ><!--/in R: set membership -->
+<!ENTITY isindot "⋵" ><!--set membership, dot above -->
+<!ENTITY isinE "⋹" ><!--set membership, two horizontal strokes -->
+<!ENTITY isins "⋴" ><!--set membership, vertical bar on horizontal stroke -->
+<!ENTITY isinsv "⋳" ><!--large set membership, vertical bar on horizontal stroke -->
+<!ENTITY isinv "∈" ><!--set membership, variant -->
+<!ENTITY lagran "ℒ" ><!--Lagrangian (script capital L) -->
+<!ENTITY lang "〈" ><!--/langle O: left angle bracket -->
+<!ENTITY Lang "《" ><!--left angle bracket, double -->
+<!ENTITY lArr "⇐" ><!--/Leftarrow A: is implied by -->
+<!ENTITY lbbrk "〔" ><!--left broken bracket -->
+<!ENTITY le "≤" ><!--/leq /le R: less-than-or-equal -->
+<!ENTITY loang "〘" ><!--left open angular bracket -->
+<!ENTITY lobrk "〚" ><!--left open bracket -->
+<!ENTITY lopar "⦅" ><!--left open parenthesis -->
+<!ENTITY lowast "∗" ><!--low asterisk -->
+<!ENTITY minus "−" ><!--B: minus sign -->
+<!ENTITY mnplus "∓" ><!--/mp B: minus-or-plus sign -->
+<!ENTITY nabla "∇" ><!--/nabla del, Hamilton operator -->
+<!ENTITY ne "≠" ><!--/ne /neq R: not equal -->
+<!ENTITY nedot "≠⁣" ><!--not equal, dot -->
+<!ENTITY nhpar "⫲" ><!--not, horizontal, parallel -->
+<!ENTITY ni "∋" ><!--/ni /owns R: contains -->
+<!ENTITY nis "⋼" ><!--contains, vertical bar on horizontal stroke -->
+<!ENTITY nisd "⋺" ><!--contains, long horizontal stroke -->
+<!ENTITY niv "∋" ><!--contains, variant -->
+<!ENTITY Not "⫬" ><!--not with two horizontal strokes -->
+<!ENTITY notin "∉" ><!--/notin N: negated set membership -->
+<!ENTITY notindot "⋶⁣" ><!--negated set membership, dot above -->
+<!ENTITY notinva "∉̸" ><!--negated set membership, variant -->
+<!ENTITY notinvb "⋷" ><!--negated set membership, variant -->
+<!ENTITY notinvc "⋶" ><!--negated set membership, variant -->
+<!ENTITY notni "∌" ><!--negated contains -->
+<!ENTITY notniva "∌" ><!--negated contains, variant -->
+<!ENTITY notnivb "⋾" ><!--contains, variant -->
+<!ENTITY notnivc "⋽" ><!--contains, variant -->
+<!ENTITY nparsl "∥⁣⃥" ><!--not parallel, slanted -->
+<!ENTITY npart "∂̸" ><!--not partial differential -->
+<!ENTITY npolint "⨔" ><!--line integration, not including the pole -->
+<!ENTITY nvinfin "⧞" ><!--not, vert, infinity -->
+<!ENTITY olcross "⦻" ><!--circle, cross -->
+<!ENTITY or "∨" ><!--/vee /lor B: logical or -->
+<!ENTITY Or "⩔" ><!--dbl logical or -->
+<!ENTITY ord "⩝" ><!--or, horizontal dash -->
+<!ENTITY order "ℴ" ><!--order of (script small o) -->
+<!ENTITY oror "⩖" ><!--two logical or -->
+<!ENTITY orslope "⩗" ><!--sloping large or -->
+<!ENTITY orv "⩛" ><!--or with middle stem -->
+<!ENTITY par "∥" ><!--/parallel R: parallel -->
+<!ENTITY parsl "∥⁣" ><!--parallel, slanted -->
+<!ENTITY part "∂" ><!--/partial partial differential -->
+<!ENTITY permil "‰" ><!--per thousand -->
+<!ENTITY perp "⊥" ><!--/perp R: perpendicular -->
+<!ENTITY pertenk "‱" ><!--per 10 thousand -->
+<!ENTITY phmmat "ℳ" ><!--physics M-matrix (script capital M) -->
+<!ENTITY pointint "⨕" ><!--integral around a point operator -->
+<!ENTITY prime "′" ><!--/prime prime or minute -->
+<!ENTITY Prime "″" ><!--double prime or second -->
+<!ENTITY profalar "⌮" ><!--all-around profile -->
+<!ENTITY profline "⌒" ><!--profile of a line -->
+<!ENTITY profsurf "⌓" ><!--profile of a surface -->
+<!ENTITY prop "∝" ><!--/propto R: is proportional to -->
+<!ENTITY qint "⨌" ><!--/iiiint quadruple integral operator -->
+<!ENTITY qprime "⁗" ><!--quadruple prime -->
+<!ENTITY quatint "⨖" ><!--quaternion integral operator -->
+<!ENTITY radic "√" ><!--/surd radical -->
+<!ENTITY rang "〉" ><!--/rangle C: right angle bracket -->
+<!ENTITY Rang "》" ><!--right angle bracket, double -->
+<!ENTITY rArr "⇒" ><!--/Rightarrow A: implies -->
+<!ENTITY rbbrk "〕" ><!--right broken bracket -->
+<!ENTITY roang "〙" ><!--right open angular bracket -->
+<!ENTITY robrk "〛" ><!--right open bracket -->
+<!ENTITY ropar "⦆" ><!--right open parenthesis -->
+<!ENTITY rppolint "⨒" ><!--line integration, rectangular path around pole -->
+<!ENTITY scpolint "⨓" ><!--line integration, semi-circular path around pole -->
+<!ENTITY sim "∼" ><!--/sim R: similar -->
+<!ENTITY simdot "⩪" ><!--similar, dot -->
+<!ENTITY sime "≃" ><!--/simeq R: similar, equals -->
+<!ENTITY smeparsl "⧤" ><!--similar, parallel, slanted, equal -->
+<!ENTITY square "□" ><!--/square, square -->
+<!ENTITY squarf "▪" ><!--/blacksquare, square, filled -->
+<!ENTITY sub "⊂" ><!--/subset R: subset or is implied by -->
+<!ENTITY sube "⊆" ><!--/subseteq R: subset, equals -->
+<!ENTITY sup "⊃" ><!--/supset R: superset or implies -->
+<!ENTITY supe "⊇" ><!--/supseteq R: superset, equals -->
+<!ENTITY tdot "⃛" ><!--three dots above -->
+<!ENTITY there4 "∴" ><!--/therefore R: therefore -->
+<!ENTITY tint "∭" ><!--/iiint triple integral operator -->
+<!ENTITY top "⊤" ><!--/top top -->
+<!ENTITY topbot "⌶" ><!--top and bottom -->
+<!ENTITY topcir "⫱" ><!--top, circle below -->
+<!ENTITY tprime "‴" ><!--triple prime -->
+<!ENTITY utdot "⋰" ><!--three dots, ascending -->
+<!ENTITY uwangle "⦧" ><!--large upward pointing angle -->
+<!ENTITY vangrt "⊾" ><!--right angle, variant -->
+<!ENTITY veeeq "≚" ><!--logical or, equals -->
+<!ENTITY Verbar "‖" ><!--/Vert dbl vertical bar -->
+<!ENTITY wedgeq "≙" ><!--/wedgeq R: corresponds to (wedge, equals) -->
+<!ENTITY xnis "⋻" ><!--large contains, vertical bar on horizontal stroke -->
--- /dev/null
+<!-- ....................................................................... -->
+<!-- MathML Qualified Names Module ........................................ -->
+<!-- file: mathml2-qname-1.mod
+
+ This is the Mathematical Markup Language (MathML) 2.0, an XML
+ application for describing mathematical notation and capturing
+ both its structure and content.
+
+ Copyright 1998-2000 W3C (MIT, INRIA, Keio), All Rights Reserved.
+ Revision: $Id$
+
+ This DTD module is identified by the PUBLIC and SYSTEM identifiers:
+
+ PUBLIC "-//W3C//ENTITIES MathML 2.0 Qualified Names 1.0//EN"
+ SYSTEM "mathml2-qname-1.mod"
+
+ Revisions:
+ (none)
+ ....................................................................... -->
+
+<!-- MathML Qualified Names
+
+ This module is contained in two parts, labeled Section 'A' and 'B':
+
+ Section A declares parameter entities to support namespace-
+ qualified names, namespace declarations, and name prefixing
+ for MathML.
+
+ Section B declares parameter entities used to provide
+ namespace-qualified names for all MathML element types.
+
+ This module is derived from the XHTML Qualified Names Template module.
+-->
+
+<!-- Section A: XHTML XML Namespace Framework :::::::::::::::::::: -->
+
+<!-- HELM: mathml namespace activated:
+<!ENTITY % NS.prefixed "IGNORE" >-->
+
+<!ENTITY % NS.prefixed "INCLUDE" >
+<!ENTITY % MATHML.prefixed "%NS.prefixed;" >
+
+<!-- XLink ............... -->
+
+<!ENTITY % XLINK.xmlns "http://www.w3.org/1999/xlink" >
+<!ENTITY % XLINK.xmlns.attrib
+ "xmlns:xlink CDATA #FIXED '%XLINK.xmlns;'"
+>
+
+<!-- MathML .............. -->
+
+<!ENTITY % MATHML.xmlns "http://www.w3.org/1998/Math/MathML" >
+<!ENTITY % MATHML.prefix "m" >
+<![%MATHML.prefixed;[
+<!ENTITY % MATHML.xmlns.extra.attrib "" >
+]]>
+<!ENTITY % MATHML.xmlns.extra.attrib
+ "%XLINK.xmlns.attrib;" >
+
+<![%MATHML.prefixed;[
+<!ENTITY % MATHML.pfx "%MATHML.prefix;:" >
+<!ENTITY % MATHML.xmlns.attrib
+ "xmlns:%MATHML.prefix; CDATA #FIXED '%MATHML.xmlns;'
+ %MATHML.xmlns.extra.attrib;"
+>
+]]>
+<!ENTITY % MATHML.pfx "" >
+<!ENTITY % MATHML.xmlns.attrib
+ "xmlns CDATA #FIXED '%MATHML.xmlns;'
+ %MATHML.xmlns.extra.attrib;"
+>
+
+<![%NS.prefixed;[
+<!ENTITY % XHTML.xmlns.extra.attrib
+ "%MATHML.xmlns.attrib;" >
+]]>
+<!ENTITY % XHTML.xmlns.extra.attrib
+ "%XLINK.xmlns.attrib;"
+>
+
+<!-- Section B: MathML Qualified Names ::::::::::::::::::::::::::::: -->
+
+<!-- 9. This section declares parameter entities used to provide
+ namespace-qualified names for all MathML element types.
+-->
+
+<!ENTITY % mspace.qname "%MATHML.pfx;mspace" >
+<!ENTITY % mprescripts.qname "%MATHML.pfx;mprescripts" >
+<!ENTITY % none.qname "%MATHML.pfx;none" >
+<!ENTITY % malignmark.qname "%MATHML.pfx;malignmark" >
+<!ENTITY % maligngroup.qname "%MATHML.pfx;maligngroup" >
+<!ENTITY % mchar.qname "%MATHML.pfx;mchar" >
+<!ENTITY % mglyph.qname "%MATHML.pfx;mglyph" >
+<!ENTITY % integers.qname "%MATHML.pfx;integers" >
+<!ENTITY % reals.qname "%MATHML.pfx;reals" >
+<!ENTITY % rationals.qname "%MATHML.pfx;rationals" >
+<!ENTITY % naturalnumbers.qname "%MATHML.pfx;naturalnumbers" >
+<!ENTITY % complexes.qname "%MATHML.pfx;complexes" >
+<!ENTITY % primes.qname "%MATHML.pfx;primes" >
+<!ENTITY % exponentiale.qname "%MATHML.pfx;exponentiale" >
+<!ENTITY % imaginaryi.qname "%MATHML.pfx;imaginaryi" >
+<!ENTITY % notanumber.qname "%MATHML.pfx;notanumber" >
+<!ENTITY % true.qname "%MATHML.pfx;true" >
+<!ENTITY % false.qname "%MATHML.pfx;false" >
+<!ENTITY % emptyset.qname "%MATHML.pfx;emptyset" >
+<!ENTITY % pi.qname "%MATHML.pfx;pi" >
+<!ENTITY % eulergamma.qname "%MATHML.pfx;eulergamma" >
+<!ENTITY % infinity.qname "%MATHML.pfx;infinity" >
+<!ENTITY % sep.qname "%MATHML.pfx;sep" >
+<!ENTITY % inverse.qname "%MATHML.pfx;inverse" >
+<!ENTITY % ident.qname "%MATHML.pfx;ident" >
+<!ENTITY % compose.qname "%MATHML.pfx;compose" >
+<!ENTITY % exp.qname "%MATHML.pfx;exp" >
+<!ENTITY % abs.qname "%MATHML.pfx;abs" >
+<!ENTITY % arg.qname "%MATHML.pfx;arg" >
+<!ENTITY % real.qname "%MATHML.pfx;real" >
+<!ENTITY % imaginary.qname "%MATHML.pfx;imaginary" >
+<!ENTITY % conjugate.qname "%MATHML.pfx;conjugate" >
+<!ENTITY % factorial.qname "%MATHML.pfx;factorial" >
+<!ENTITY % minus.qname "%MATHML.pfx;minus" >
+<!ENTITY % quotient.qname "%MATHML.pfx;quotient" >
+<!ENTITY % divide.qname "%MATHML.pfx;divide" >
+<!ENTITY % power.qname "%MATHML.pfx;power" >
+<!ENTITY % rem.qname "%MATHML.pfx;rem" >
+<!ENTITY % plus.qname "%MATHML.pfx;plus" >
+<!ENTITY % max.qname "%MATHML.pfx;max" >
+<!ENTITY % min.qname "%MATHML.pfx;min" >
+<!ENTITY % times.qname "%MATHML.pfx;times" >
+<!ENTITY % gcd.qname "%MATHML.pfx;gcd" >
+<!ENTITY % lcm.qname "%MATHML.pfx;lcm" >
+<!ENTITY % root.qname "%MATHML.pfx;root" >
+<!ENTITY % exists.qname "%MATHML.pfx;exists" >
+<!ENTITY % forall.qname "%MATHML.pfx;forall" >
+<!ENTITY % and.qname "%MATHML.pfx;and" >
+<!ENTITY % or.qname "%MATHML.pfx;or" >
+<!ENTITY % xor.qname "%MATHML.pfx;xor" >
+<!ENTITY % not.qname "%MATHML.pfx;not" >
+<!ENTITY % implies.qname "%MATHML.pfx;implies" >
+<!ENTITY % divergence.qname "%MATHML.pfx;divergence" >
+<!ENTITY % grad.qname "%MATHML.pfx;grad" >
+<!ENTITY % curl.qname "%MATHML.pfx;curl" >
+<!ENTITY % laplacian.qname "%MATHML.pfx;laplacian" >
+<!ENTITY % log.qname "%MATHML.pfx;log" >
+<!ENTITY % int.qname "%MATHML.pfx;int" >
+<!ENTITY % diff.qname "%MATHML.pfx;diff" >
+<!ENTITY % partialdiff.qname "%MATHML.pfx;partialdiff" >
+<!ENTITY % ln.qname "%MATHML.pfx;ln" >
+<!ENTITY % card.qname "%MATHML.pfx;card" >
+<!ENTITY % setdiff.qname "%MATHML.pfx;setdiff" >
+<!ENTITY % union.qname "%MATHML.pfx;union" >
+<!ENTITY % intersect.qname "%MATHML.pfx;intersect" >
+<!ENTITY % sum.qname "%MATHML.pfx;sum" >
+<!ENTITY % product.qname "%MATHML.pfx;product" >
+<!ENTITY % limit.qname "%MATHML.pfx;limit" >
+<!ENTITY % sin.qname "%MATHML.pfx;sin" >
+<!ENTITY % cos.qname "%MATHML.pfx;cos" >
+<!ENTITY % tan.qname "%MATHML.pfx;tan" >
+<!ENTITY % sec.qname "%MATHML.pfx;sec" >
+<!ENTITY % csc.qname "%MATHML.pfx;csc" >
+<!ENTITY % cot.qname "%MATHML.pfx;cot" >
+<!ENTITY % sinh.qname "%MATHML.pfx;sinh" >
+<!ENTITY % cosh.qname "%MATHML.pfx;cosh" >
+<!ENTITY % tanh.qname "%MATHML.pfx;tanh" >
+<!ENTITY % sech.qname "%MATHML.pfx;sech" >
+<!ENTITY % csch.qname "%MATHML.pfx;csch" >
+<!ENTITY % coth.qname "%MATHML.pfx;coth" >
+<!ENTITY % arcsin.qname "%MATHML.pfx;arcsin" >
+<!ENTITY % arccos.qname "%MATHML.pfx;arccos" >
+<!ENTITY % arctan.qname "%MATHML.pfx;arctan" >
+<!ENTITY % arccosh.qname "%MATHML.pfx;arccosh" >
+<!ENTITY % arccot.qname "%MATHML.pfx;arccot" >
+<!ENTITY % arccoth.qname "%MATHML.pfx;arccoth" >
+<!ENTITY % arccsc.qname "%MATHML.pfx;arccsc" >
+<!ENTITY % arccsch.qname "%MATHML.pfx;arccsch" >
+<!ENTITY % arcsec.qname "%MATHML.pfx;arcsec" >
+<!ENTITY % arcsech.qname "%MATHML.pfx;arcsech" >
+<!ENTITY % arcsinh.qname "%MATHML.pfx;arcsinh" >
+<!ENTITY % arctanh.qname "%MATHML.pfx;arctanh" >
+<!ENTITY % arccosh.qname "%MATHML.pfx;arccosh" >
+<!ENTITY % mean.qname "%MATHML.pfx;mean" >
+<!ENTITY % sdev.qname "%MATHML.pfx;sdev" >
+<!ENTITY % variance.qname "%MATHML.pfx;variance" >
+<!ENTITY % median.qname "%MATHML.pfx;median" >
+<!ENTITY % mode.qname "%MATHML.pfx;mode" >
+<!ENTITY % moment.qname "%MATHML.pfx;moment" >
+<!ENTITY % determinant.qname "%MATHML.pfx;determinant" >
+<!ENTITY % transpose.qname "%MATHML.pfx;transpose" >
+<!ENTITY % vectorproduct.qname "%MATHML.pfx;vectorproduct" >
+<!ENTITY % scalarproduct.qname "%MATHML.pfx;scalarproduct" >
+<!ENTITY % outerproduct.qname "%MATHML.pfx;outerproduct" >
+<!ENTITY % selector.qname "%MATHML.pfx;selector" >
+<!ENTITY % neq.qname "%MATHML.pfx;neq" >
+<!ENTITY % eq.qname "%MATHML.pfx;eq" >
+<!ENTITY % equivalent.qname "%MATHML.pfx;equivalent" >
+<!ENTITY % approx.qname "%MATHML.pfx;approx" >
+<!ENTITY % gt.qname "%MATHML.pfx;gt" >
+<!ENTITY % lt.qname "%MATHML.pfx;lt" >
+<!ENTITY % geq.qname "%MATHML.pfx;geq" >
+<!ENTITY % leq.qname "%MATHML.pfx;leq" >
+<!ENTITY % in.qname "%MATHML.pfx;in" >
+<!ENTITY % notin.qname "%MATHML.pfx;notin" >
+<!ENTITY % notsubset.qname "%MATHML.pfx;notsubset" >
+<!ENTITY % notprsubset.qname "%MATHML.pfx;notprsubset" >
+<!ENTITY % subset.qname "%MATHML.pfx;subset" >
+<!ENTITY % prsubset.qname "%MATHML.pfx;prsubset" >
+<!ENTITY % tendsto.qname "%MATHML.pfx;tendsto" >
+<!ENTITY % ci.qname "%MATHML.pfx;ci" >
+<!ENTITY % csymbol.qname "%MATHML.pfx;csymbol" >
+<!ENTITY % cn.qname "%MATHML.pfx;cn" >
+<!ENTITY % apply.qname "%MATHML.pfx;apply" >
+<!ENTITY % reln.qname "%MATHML.pfx;reln" >
+<!ENTITY % lambda.qname "%MATHML.pfx;lambda" >
+<!ENTITY % condition.qname "%MATHML.pfx;condition" >
+<!ENTITY % declare.qname "%MATHML.pfx;declare" >
+<!ENTITY % type.qname "%MATHML.pfx;type" >
+<!ENTITY % semantics.qname "%MATHML.pfx;semantics" >
+<!ENTITY % annotation.qname "%MATHML.pfx;annotation" >
+<!ENTITY % annotation-xml.qname "%MATHML.pfx;annotation-xml" >
+<!ENTITY % interval.qname "%MATHML.pfx;interval" >
+<!ENTITY % set.qname "%MATHML.pfx;set" >
+<!ENTITY % list.qname "%MATHML.pfx;list" >
+<!ENTITY % vector.qname "%MATHML.pfx;vector" >
+<!ENTITY % matrix.qname "%MATHML.pfx;matrix" >
+<!ENTITY % matrixrow.qname "%MATHML.pfx;matrixrow" >
+<!ENTITY % fn.qname "%MATHML.pfx;fn" >
+<!ENTITY % lowlimit.qname "%MATHML.pfx;lowlimit" >
+<!ENTITY % uplimit.qname "%MATHML.pfx;uplimit" >
+<!ENTITY % bvar.qname "%MATHML.pfx;bvar" >
+<!ENTITY % degree.qname "%MATHML.pfx;degree" >
+<!ENTITY % logbase.qname "%MATHML.pfx;logbase" >
+<!ENTITY % mstyle.qname "%MATHML.pfx;mstyle" >
+<!ENTITY % merror.qname "%MATHML.pfx;merror" >
+<!ENTITY % mphantom.qname "%MATHML.pfx;mphantom" >
+<!ENTITY % mrow.qname "%MATHML.pfx;mrow" >
+<!ENTITY % mfrac.qname "%MATHML.pfx;mfrac" >
+<!ENTITY % msqrt.qname "%MATHML.pfx;msqrt" >
+<!ENTITY % menclose.qname "%MATHML.pfx;menclose" >
+<!ENTITY % mroot.qname "%MATHML.pfx;mroot" >
+<!ENTITY % msub.qname "%MATHML.pfx;msub" >
+<!ENTITY % msup.qname "%MATHML.pfx;msup" >
+<!ENTITY % msubsup.qname "%MATHML.pfx;msubsup" >
+<!ENTITY % mmultiscripts.qname "%MATHML.pfx;mmultiscripts" >
+<!ENTITY % munder.qname "%MATHML.pfx;munder" >
+<!ENTITY % mover.qname "%MATHML.pfx;mover" >
+<!ENTITY % munderover.qname "%MATHML.pfx;munderover" >
+<!ENTITY % mtable.qname "%MATHML.pfx;mtable" >
+<!ENTITY % mtr.qname "%MATHML.pfx;mtr" >
+<!ENTITY % mlabeledtr.qname "%MATHML.pfx;mlabeledtr" >
+<!ENTITY % mtd.qname "%MATHML.pfx;mtd" >
+<!ENTITY % maction.qname "%MATHML.pfx;maction" >
+<!ENTITY % mfenced.qname "%MATHML.pfx;mfenced" >
+<!ENTITY % mpadded.qname "%MATHML.pfx;mpadded" >
+<!ENTITY % mi.qname "%MATHML.pfx;mi" >
+<!ENTITY % mn.qname "%MATHML.pfx;mn" >
+<!ENTITY % mo.qname "%MATHML.pfx;mo" >
+<!ENTITY % mtext.qname "%MATHML.pfx;mtext" >
+<!ENTITY % ms.qname "%MATHML.pfx;ms" >
+<!ENTITY % math.qname "%MATHML.pfx;math" >
+
+
+<!-- ignores subsequent instantiation of this module when
+ used as external subset rather than module fragment.
+ NOTE: Do not modify this parameter entity, otherwise
+ a recursive parsing situation may result.
+-->
+<!ENTITY % mathml-qname.module "IGNORE" >
+
+<!-- end of template-qname-1.mod -->
--- /dev/null
+<!-- MathML 2.0 DTD ....................................................... -->
+<!-- file: mathml2.dtd
+-->
+
+<!-- MathML 2.0 DTD
+
+ This is the Mathematical Markup Language (MathML) 2.0, an XML
+ application for describing mathematical notation and capturing
+ both its structure and content.
+
+ Copyright 1998-2000 World Wide Web Consortium
+ (Massachusetts Institute of Technology, Institut National de
+ Recherche en Informatique et en Automatique, Keio University).
+ All Rights Reserved.
+
+ Permission to use, copy, modify and distribute the XHTML 1.1 DTD and
+ its accompanying documentation for any purpose and without fee is
+ hereby granted in perpetuity, provided that the above copyright notice
+ and this paragraph appear in all copies. The copyright holders make
+ no representation about the suitability of the DTD for any purpose.
+
+ It is provided "as is" without expressed or implied warranty.
+
+ Revision: $Id$
+
+ This entity may be identified by the PUBLIC and SYSTEM identifiers:
+
+ PUBLIC "-//W3C//DTD MathML 2.0//EN"
+ SYSTEM "mathml2.dtd"
+
+ Revisions: editor and revision history at EOF
+-->
+
+
+<!-- MathML Qualified Names module ............................... -->
+<!ENTITY % mathml-qname.module "INCLUDE" >
+<![%mathml-qname.module;[
+<!ENTITY % mathml-qname.mod
+ PUBLIC "-//W3C//ENTITIES MathML 2.0 Qualified Names 1.0//EN"
+ "mathml2-qname-1.mod" >
+%mathml-qname.mod;]]>
+
+<!-- if %NS.prefixed; is INCLUDE, include all NS attributes,
+ otherwise just those associated with MathML
+-->
+<![%NS.prefixed;[
+<!-- HELM: %NamespaceDecl.attrib; not declared !! ENTITY substituted
+<!ENTITY % MATHML.NamespaceDecl.attrib
+ "%NamespaceDecl.attrib;"
+>-->
+<!ENTITY % MATHML.NamespaceDecl.attrib
+ "%MATHML.xmlns.attrib;"
+>
+]]>
+<!ENTITY % MATHML.NamespaceDecl.attrib
+ "%MATHML.xmlns.attrib;"
+>
+
+<!-- Attributes shared by all elements .......................... -->
+
+<!ENTITY % MATHML.Common.attrib
+ "%MATHML.NamespaceDecl.attrib;
+ xlink:href CDATA #IMPLIED
+ class CDATA #IMPLIED
+ style CDATA #IMPLIED
+ id ID #IMPLIED
+ xref IDREF #IMPLIED
+ other CDATA #IMPLIED"
+>
+
+<!-- Presentation element set ................................... -->
+
+<!-- Attribute definitions -->
+
+<!ENTITY % att-fontsize
+ "fontsize CDATA #IMPLIED" >
+<!ENTITY % att-fontweight
+ "fontweight ( normal | bold ) #IMPLIED" >
+<!ENTITY % att-fontstyle
+ "fontstyle ( normal | italic ) #IMPLIED" >
+<!ENTITY % att-fontfamily
+ "fontfamily CDATA #IMPLIED" >
+<!ENTITY % att-color
+ "color CDATA #IMPLIED" >
+
+<!ENTITY % att-fontinfo
+ "%att-fontsize;
+ %att-fontweight;
+ %att-fontstyle;
+ %att-fontfamily;
+ %att-color;"
+>
+
+<!ENTITY % att-form
+ "form ( prefix | infix | postfix ) #IMPLIED" >
+<!ENTITY % att-fence
+ "fence ( true | false ) #IMPLIED" >
+<!ENTITY % att-separator
+ "separator ( true | false ) #IMPLIED" >
+<!ENTITY % att-lspace
+ "lspace CDATA #IMPLIED" >
+<!ENTITY % att-rspace
+ "rspace CDATA #IMPLIED" >
+<!ENTITY % att-stretchy
+ "stretchy ( true | false ) #IMPLIED" >
+<!ENTITY % att-symmetric
+ "symmetric ( true | false ) #IMPLIED" >
+<!ENTITY % att-maxsize
+ "maxsize CDATA #IMPLIED" >
+<!ENTITY % att-minsize
+ "minsize CDATA #IMPLIED" >
+<!ENTITY % att-largeop
+ "largeop ( true | false) #IMPLIED" >
+<!ENTITY % att-movablelimits
+ "movablelimits ( true | false ) #IMPLIED" >
+<!ENTITY % att-accent
+ "accent ( true | false ) #IMPLIED" >
+
+<!ENTITY % att-opinfo
+ "%att-form;
+ %att-fence;
+ %att-separator;
+ %att-lspace;
+ %att-rspace;
+ %att-stretchy;
+ %att-symmetric;
+ %att-maxsize;
+ %att-minsize;
+ %att-largeop;
+ %att-movablelimits;
+ %att-accent;"
+>
+<!ENTITY % att-width
+ "width CDATA #IMPLIED" >
+<!ENTITY % att-height
+ "height CDATA #IMPLIED" >
+<!ENTITY % att-depth
+ "depth CDATA #IMPLIED" >
+<!ENTITY % att-linebreak
+ "linebreak CDATA #IMPLIED" >
+<!ENTITY % att-sizeinfo
+ "%att-width;
+ %att-height;
+ %att-depth;"
+>
+<!ENTITY % att-lquote
+ "lquote CDATA #IMPLIED" >
+<!ENTITY % att-rquote
+ "rquote CDATA #IMPLIED" >
+<!ENTITY % att-linethickness
+ "linethickness CDATA #IMPLIED" >
+<!ENTITY % att-scriptlevel
+ "scriptlevel CDATA #IMPLIED" >
+<!ENTITY % att-displaystyle
+ "displaystyle ( true | false ) #IMPLIED" >
+<!ENTITY % att-scriptsizemultiplier
+ "scriptsizemultiplier CDATA #IMPLIED" >
+<!ENTITY % att-scriptminsize
+ "scriptminsize CDATA #IMPLIED" >
+<!ENTITY % att-background
+ "background CDATA #IMPLIED" >
+<!ENTITY % att-open
+ "open CDATA #IMPLIED" >
+<!ENTITY % att-close
+ "close CDATA #IMPLIED" >
+<!ENTITY % att-separators
+ "separators CDATA #IMPLIED" >
+<!ENTITY % att-subscriptshift
+ "subscriptshift CDATA #IMPLIED" >
+<!ENTITY % att-superscriptshift
+ "superscriptshift CDATA #IMPLIED" >
+<!ENTITY % att-accentunder
+ "accentunder ( true | false ) #IMPLIED" >
+<!ENTITY % att-align
+ "align CDATA #IMPLIED" >
+<!ENTITY % att-rowalign
+ "rowalign CDATA #IMPLIED" >
+<!ENTITY % att-columnalign
+ "columnalign CDATA #IMPLIED" >
+<!ENTITY % att-columnwidth
+ "columnwidth CDATA #IMPLIED" >
+<!ENTITY % att-groupalign
+ "groupalign CDATA #IMPLIED" >
+<!ENTITY % att-alignmentscope
+ "alignmentscope CDATA #IMPLIED" >
+<!ENTITY % att-rowspacing
+ "rowspacing CDATA #IMPLIED" >
+<!ENTITY % att-columnspacing
+ "columnspacing CDATA #IMPLIED" >
+<!ENTITY % att-rowlines
+ "rowlines CDATA #IMPLIED" >
+<!ENTITY % att-columnlines
+ "columnlines CDATA #IMPLIED" >
+<!ENTITY % att-frame
+ "frame ( none | solid | dashed ) #IMPLIED" >
+<!ENTITY % att-framespacing
+ "framespacing CDATA #IMPLIED" >
+<!ENTITY % att-equalrows
+ "equalrows CDATA #IMPLIED" >
+<!ENTITY % att-equalcolumns
+ "equalcolumns CDATA #IMPLIED" >
+
+<!ENTITY % att-tableinfo
+ "%att-align;
+ %att-rowalign;
+ %att-columnalign;
+ %att-columnwidth;
+ %att-groupalign;
+ %att-alignmentscope;
+ %att-rowspacing;
+ %att-columnspacing;
+ %att-rowlines;
+ %att-columnlines;
+ %att-frame;
+ %att-framespacing;
+ %att-equalrows;
+ %att-equalcolumns;
+ %att-displaystyle;"
+>
+
+<!ENTITY % att-rowspan
+ "rowspan CDATA #IMPLIED" >
+<!ENTITY % att-columnspan
+ "columnspan CDATA #IMPLIED" >
+<!ENTITY % att-edge
+ "edge ( left | right ) #IMPLIED" >
+<!ENTITY % att-actiontype
+ "actiontype CDATA #IMPLIED" >
+<!ENTITY % att-selection
+ "selection CDATA #IMPLIED" >
+
+<!ENTITY % att-name
+ "name CDATA #IMPLIED" >
+<!ENTITY % att-alt
+ "alt CDATA #IMPLIED" >
+<!ENTITY % att-index
+ "index CDATA #IMPLIED" >
+
+<!ENTITY % att-bevelled
+ "bevelled CDATA #IMPLIED" >
+
+<!-- Presentation schemata with content -->
+
+<!ENTITY % ptoken
+ "%mi.qname; | %mn.qname; | %mo.qname;
+ | %mtext.qname; | %ms.qname;" >
+
+<!ATTLIST %mi.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+>
+
+<!ATTLIST %mn.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+>
+
+<!ATTLIST %mo.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+ %att-opinfo;
+>
+
+<!ATTLIST %mtext.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+>
+
+<!ATTLIST %ms.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+ %att-lquote;
+ %att-rquote;
+>
+
+<!-- Empty presentation schemata -->
+
+<!ENTITY % petoken
+ "%mspace.qname;" >
+<!ELEMENT %mspace.qname; EMPTY >
+
+<!ATTLIST %mspace.qname;
+ %att-sizeinfo;
+ %att-linebreak;
+ %MATHML.Common.attrib;
+>
+
+<!-- Presentation: general layout schemata -->
+
+<!ENTITY % pgenschema
+ "%mrow.qname; | %mfrac.qname; | %msqrt.qname; | %mroot.qname;
+ | %menclose.qname; | %mstyle.qname; | %merror.qname;
+ | %mpadded.qname; | %mphantom.qname; | %mfenced.qname;" >
+
+<!ATTLIST %mrow.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %mfrac.qname;
+ %MATHML.Common.attrib;
+ %att-bevelled;
+ %att-linethickness;
+>
+
+<!ATTLIST %msqrt.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %menclose.qname;
+ %MATHML.Common.attrib;
+ notation CDATA 'longdiv' >
+
+<!ATTLIST %mroot.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %mstyle.qname;
+ %MATHML.Common.attrib;
+ %att-fontinfo;
+ %att-opinfo;
+ %att-lquote;
+ %att-rquote;
+ %att-linethickness;
+ %att-scriptlevel;
+ %att-scriptsizemultiplier;
+ %att-scriptminsize;
+ %att-background;
+ %att-open;
+ %att-close;
+ %att-separators;
+ %att-subscriptshift;
+ %att-superscriptshift;
+ %att-accentunder;
+ %att-tableinfo;
+ %att-rowspan;
+ %att-columnspan;
+ %att-edge;
+ %att-actiontype;
+ %att-selection;
+>
+
+<!ATTLIST %merror.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %mpadded.qname;
+ %MATHML.Common.attrib;
+ %att-sizeinfo;
+ %att-lspace;
+>
+
+<!ATTLIST %mphantom.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %mfenced.qname;
+ %MATHML.Common.attrib;
+ %att-open;
+ %att-close;
+ %att-separators;
+>
+
+<!-- Presentation layout schemata: scripts and limits -->
+
+<!ENTITY % pscrschema
+ "%msub.qname; | %msup.qname; | %msubsup.qname; | %munder.qname;
+ | %mover.qname; | %munderover.qname; | %mmultiscripts.qname;" >
+
+<!ATTLIST %msub.qname;
+ %MATHML.Common.attrib;
+ %att-subscriptshift;
+>
+
+<!ATTLIST %msup.qname;
+ %MATHML.Common.attrib;
+ %att-superscriptshift;
+>
+
+<!ATTLIST %msubsup.qname;
+ %MATHML.Common.attrib;
+ %att-subscriptshift;
+ %att-superscriptshift;
+>
+
+<!ATTLIST %munder.qname;
+ %MATHML.Common.attrib;
+ %att-accentunder;
+>
+
+<!ATTLIST %mover.qname;
+ %MATHML.Common.attrib;
+ %att-accent;
+>
+
+<!ATTLIST %munderover.qname;
+ %MATHML.Common.attrib;
+ %att-accent;
+ %att-accentunder;
+>
+
+<!ATTLIST %mmultiscripts.qname;
+ %MATHML.Common.attrib;
+ %att-subscriptshift;
+ %att-superscriptshift;
+>
+
+<!-- Presentation layout schemata: empty elements for scripts -->
+
+<!ENTITY % pscreschema
+ "%mprescripts.qname; | %none.qname;" >
+
+<!ELEMENT %mprescripts.qname; EMPTY >
+<!ATTLIST %mprescripts.qname;
+ %MATHML.xmlns.attrib; >
+
+<!ELEMENT %none.qname; EMPTY >
+<!ATTLIST %none.qname;
+ %MATHML.xmlns.attrib; >
+
+<!-- Presentation layout schemata: tables -->
+
+<!ENTITY % ptabschema
+ "%mtable.qname; | %mtr.qname; | %mlabeledtr.qname; | %mtd.qname;" >
+
+<!ATTLIST %mtable.qname;
+ %MATHML.Common.attrib;
+ %att-tableinfo;
+>
+
+<!ATTLIST %mtr.qname;
+ %MATHML.Common.attrib;
+ %att-rowalign;
+ %att-columnalign;
+ %att-groupalign;
+>
+
+<!ATTLIST %mlabeledtr.qname;
+ %MATHML.Common.attrib;
+ %att-rowalign;
+ %att-columnalign;
+ %att-groupalign;
+>
+
+<!ATTLIST %mtd.qname;
+ %MATHML.Common.attrib;
+ %att-rowalign;
+ %att-columnalign;
+ %att-groupalign;
+ %att-rowspan;
+ %att-columnspan;
+>
+
+<!ENTITY % plschema
+ "%pgenschema; | %pscrschema; | %ptabschema;" >
+
+<!-- Empty presentation layout schemata -->
+
+<!ENTITY % peschema
+ "%maligngroup.qname; | %malignmark.qname;" >
+
+<!ELEMENT %malignmark.qname; EMPTY >
+
+<!ATTLIST %malignmark.qname;
+ %att-edge; >
+
+<!ELEMENT %maligngroup.qname; EMPTY >
+<!ATTLIST %maligngroup.qname;
+ %MATHML.Common.attrib;
+ %att-groupalign;
+>
+
+<!ELEMENT %mchar.qname; EMPTY >
+<!ATTLIST %mchar.qname;
+ %att-name; >
+
+<!ELEMENT %mglyph.qname; EMPTY >
+<!ATTLIST %mglyph.qname;
+ %att-alt;
+ %att-fontfamily;
+ %att-index; >
+
+<!-- Presentation action schemata -->
+
+<!ENTITY % pactions
+ "%maction.qname;" >
+<!ATTLIST %maction.qname;
+ %MATHML.Common.attrib;
+ %att-actiontype;
+ %att-selection;
+>
+
+<!-- The following entity for substitution into
+ content constructs excludes elements that
+ are not valid as expressions.
+-->
+
+<!ENTITY % PresInCont
+ "%ptoken; | %petoken; |
+ %plschema; | %peschema; | %pactions;" >
+
+<!-- Presentation entity: all presentation constructs -->
+
+<!ENTITY % Presentation
+ "%ptoken; | %petoken; | %pscreschema; |
+ %plschema; | %peschema; | %pactions;">
+
+<!-- Content element set ........................................ -->
+
+<!-- Attribute definitions -->
+
+<!ENTITY % att-base
+ "base CDATA '10'" >
+<!ENTITY % att-closure
+ "closure CDATA 'closed'" >
+<!ENTITY % att-definition
+ "definitionURL CDATA ''" >
+<!ENTITY % att-encoding
+ "encoding CDATA ''" >
+<!ENTITY % att-nargs
+ "nargs CDATA '1'" >
+<!ENTITY % att-occurrence
+ "occurrence CDATA 'function-model'" >
+<!ENTITY % att-order
+ "order CDATA 'numeric'" >
+<!ENTITY % att-scope
+ "scope CDATA 'local'" >
+<!ENTITY % att-type
+ "type CDATA #IMPLIED" >
+
+<!-- Content elements: leaf nodes -->
+
+<!ENTITY % ctoken
+ "%csymbol.qname; | %ci.qname; | %cn.qname;" >
+
+<!ATTLIST %ci.qname;
+ %MATHML.Common.attrib;
+ %att-type;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ATTLIST %csymbol.qname;
+ %MATHML.Common.attrib;
+ %att-encoding;
+ %att-type;
+ %att-definition;
+>
+
+<!ATTLIST %cn.qname;
+ %MATHML.Common.attrib;
+ %att-type;
+ %att-base;
+ %att-definition;
+ %att-encoding;
+>
+
+<!-- Content elements: specials -->
+
+<!ENTITY % cspecial
+ "%apply.qname; | %reln.qname; |
+ %lambda.qname;" >
+
+<!ATTLIST %apply.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %reln.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %lambda.qname;
+ %MATHML.Common.attrib;
+>
+
+<!-- Content elements: others -->
+<!-- HELM: added the content element type to cother-->
+<!ENTITY % cother
+ "%condition.qname; | %declare.qname; | %sep.qname; | %type.qname;" >
+
+<!ATTLIST %condition.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %declare.qname;
+ %MATHML.Common.attrib;
+ %att-type;
+ %att-scope;
+ %att-nargs;
+ %att-occurrence;
+ %att-definition;
+ %att-encoding;
+>
+
+<!-- HELM: added attributes to the type element -->
+<!ATTLIST %type.qname; %MATHML.Common.attrib; >
+
+<!ELEMENT %sep.qname; EMPTY >
+<!ATTLIST %sep.qname;
+ %MATHML.xmlns.attrib; >
+
+<!-- Content elements: semantic mapping -->
+
+<!ENTITY % csemantics
+ "%semantics.qname; | %annotation.qname; |
+ %annotation-xml.qname;" >
+
+<!ATTLIST %semantics.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ATTLIST %annotation.qname;
+ %MATHML.Common.attrib;
+ %att-encoding;
+>
+
+<!ATTLIST %annotation-xml.qname;
+ %MATHML.Common.attrib;
+ %att-encoding;
+>
+
+<!-- Content elements: constructors -->
+
+<!ENTITY % cconstructor
+ "%interval.qname; | %list.qname; | %matrix.qname;
+ | %matrixrow.qname; | %set.qname; | %vector.qname;" >
+
+<!ATTLIST %interval.qname;
+ %MATHML.Common.attrib;
+ %att-closure;
+>
+
+<!ATTLIST %set.qname;
+ %MATHML.Common.attrib;
+ %att-type;
+>
+
+<!ATTLIST %list.qname;
+ %MATHML.Common.attrib;
+ %att-order;
+>
+
+<!ATTLIST %vector.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %matrix.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %matrixrow.qname;
+ %MATHML.Common.attrib;
+>
+
+<!-- Content elements: symbols -->
+
+<!ENTITY % c0ary
+ "%integers.qname; |
+ %reals.qname; |
+ %rationals.qname; |
+ %naturalnumbers.qname; |
+ %complexes.qname; |
+ %primes.qname; |
+ %exponentiale.qname; |
+ %imaginaryi.qname; |
+ %notanumber.qname; |
+ %true.qname; |
+ %false.qname; |
+ %emptyset.qname; |
+ %pi.qname; |
+ %eulergamma.qname; |
+ %infinity.qname;" >
+
+<!ELEMENT %integers.qname; EMPTY >
+<!ATTLIST %integers.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %reals.qname; EMPTY >
+<!ATTLIST %reals.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %rationals.qname; EMPTY >
+<!ATTLIST %rationals.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %naturalnumbers.qname; EMPTY >
+<!ATTLIST %naturalnumbers.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %complexes.qname; EMPTY >
+<!ATTLIST %complexes.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %primes.qname; EMPTY >
+<!ATTLIST %primes.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %exponentiale.qname; EMPTY >
+<!ATTLIST %exponentiale.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %imaginaryi.qname; EMPTY >
+<!ATTLIST %imaginaryi.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %notanumber.qname; EMPTY >
+<!ATTLIST %notanumber.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %true.qname; EMPTY >
+<!ATTLIST %true.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %false.qname; EMPTY >
+<!ATTLIST %false.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %emptyset.qname; EMPTY >
+<!ATTLIST %emptyset.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %pi.qname; EMPTY >
+<!ATTLIST %pi.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %eulergamma.qname; EMPTY >
+<!ATTLIST %eulergamma.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %infinity.qname; EMPTY >
+<!ATTLIST %infinity.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!-- Content elements: operators -->
+
+<!ENTITY % cfuncop1ary
+ "%inverse.qname; | %ident.qname;" >
+
+<!ELEMENT %inverse.qname; EMPTY >
+<!ATTLIST %inverse.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % cfuncopnary
+ "%fn.qname; | %compose.qname;" >
+
+<!ATTLIST %fn.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %ident.qname; EMPTY >
+<!ATTLIST %ident.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %compose.qname; EMPTY >
+<!ATTLIST %compose.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % carithop1ary
+ "%abs.qname; | %conjugate.qname; | %exp.qname; | %factorial.qname; |
+ %arg.qname; | %real.qname; | %imaginary.qname;" >
+
+<!ELEMENT %exp.qname; EMPTY >
+<!ATTLIST %exp.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %abs.qname; EMPTY >
+<!ATTLIST %abs.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arg.qname; EMPTY >
+<!ATTLIST %arg.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %real.qname; EMPTY >
+<!ATTLIST %real.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %imaginary.qname; EMPTY >
+<!ATTLIST %imaginary.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %conjugate.qname; EMPTY >
+<!ATTLIST %conjugate.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %factorial.qname; EMPTY >
+<!ATTLIST %factorial.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % carithop1or2ary
+ "%minus.qname;" >
+
+<!ELEMENT %minus.qname; EMPTY >
+<!ATTLIST %minus.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % carithop2ary
+ "%quotient.qname; | %divide.qname; | %power.qname; | %rem.qname;" >
+
+<!ELEMENT %quotient.qname; EMPTY >
+<!ATTLIST %quotient.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %divide.qname; EMPTY >
+<!ATTLIST %divide.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %power.qname; EMPTY >
+<!ATTLIST %power.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %rem.qname; EMPTY >
+<!ATTLIST %rem.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % carithopnary
+ "%plus.qname; | %times.qname; | %max.qname;
+ | %min.qname; | %gcd.qname; | %lcm.qname;" >
+
+<!ELEMENT %plus.qname; EMPTY >
+<!ATTLIST %plus.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %max.qname; EMPTY >
+<!ATTLIST %max.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %min.qname; EMPTY >
+<!ATTLIST %min.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %times.qname; EMPTY >
+<!ATTLIST %times.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %gcd.qname; EMPTY >
+<!ATTLIST %gcd.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %lcm.qname; EMPTY >
+<!ATTLIST %lcm.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % carithoproot
+ "%root.qname;" >
+
+<!ELEMENT %root.qname; EMPTY >
+<!ATTLIST %root.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clogicopquant
+ "%exists.qname; | %forall.qname;" >
+
+<!ELEMENT %exists.qname; EMPTY >
+<!ATTLIST %exists.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %forall.qname; EMPTY >
+<!ATTLIST %forall.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clogicopnary
+ "%and.qname; | %or.qname; | %xor.qname;" >
+
+<!ELEMENT %and.qname; EMPTY >
+<!ATTLIST %and.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %or.qname; EMPTY >
+<!ATTLIST %or.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %xor.qname; EMPTY >
+<!ATTLIST %xor.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clogicop1ary
+ "%not.qname;" >
+
+<!ELEMENT %not.qname; EMPTY >
+<!ATTLIST %not.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clogicop2ary
+ "%implies.qname;" >
+
+<!ELEMENT %implies.qname; EMPTY >
+<!ATTLIST %implies.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % ccalcop
+ "%log.qname; | %int.qname; | %diff.qname; | %partialdiff.qname; |
+ %divergence.qname; | %grad.qname; | %curl.qname; | %laplacian.qname;" >
+
+<!ELEMENT %divergence.qname; EMPTY >
+<!ATTLIST %divergence.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %grad.qname; EMPTY >
+<!ATTLIST %grad.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %curl.qname; EMPTY >
+<!ATTLIST %curl.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %laplacian.qname; EMPTY >
+<!ATTLIST %laplacian.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %log.qname; EMPTY >
+<!ATTLIST %log.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %int.qname; EMPTY >
+<!ATTLIST %int.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %diff.qname; EMPTY >
+<!ATTLIST %diff.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %partialdiff.qname; EMPTY >
+<!ATTLIST %partialdiff.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % ccalcop1ary
+ "%ln.qname;" >
+
+<!ELEMENT %ln.qname; EMPTY >
+<!ATTLIST %ln.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % csetop1ary
+ "%card.qname;" >
+
+<!ELEMENT %card.qname; EMPTY >
+<!ATTLIST %card.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % csetop2ary
+ "%setdiff.qname;" >
+
+<!ELEMENT %setdiff.qname; EMPTY >
+<!ATTLIST %setdiff.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % csetopnary
+ "%union.qname; | %intersect.qname;" >
+
+<!ELEMENT %union.qname; EMPTY >
+<!ATTLIST %union.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %intersect.qname; EMPTY >
+<!ATTLIST %intersect.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % cseqop
+ "%sum.qname; | %product.qname; | %limit.qname;" >
+
+<!ELEMENT %sum.qname; EMPTY >
+<!ATTLIST %sum.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %product.qname; EMPTY >
+<!ATTLIST %product.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %limit.qname; EMPTY >
+<!ATTLIST %limit.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % ctrigop
+ "%sin.qname; | %cos.qname; | %tan.qname;
+ | %sec.qname; | %csc.qname; | %cot.qname;
+ | %sinh.qname; | %cosh.qname; | %tanh.qname;
+ | %sech.qname; | %csch.qname; | %coth.qname;
+ | %arcsin.qname; | %arccos.qname; | %arctan.qname;
+ | %arccosh.qname; | %arccot.qname; | %arccoth.qname;
+ | %arccsc.qname; | %arccsch.qname; | %arcsec.qname;
+ | %arcsech.qname; | %arcsinh.qname; | %arctanh.qname;
+ " >
+
+<!ELEMENT %sin.qname; EMPTY >
+<!ATTLIST %sin.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %cos.qname; EMPTY >
+<!ATTLIST %cos.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %tan.qname; EMPTY >
+<!ATTLIST %tan.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %sec.qname; EMPTY >
+<!ATTLIST %sec.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %csc.qname; EMPTY >
+<!ATTLIST %csc.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %cot.qname; EMPTY >
+<!ATTLIST %cot.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %sinh.qname; EMPTY >
+<!ATTLIST %sinh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %cosh.qname; EMPTY >
+<!ATTLIST %cosh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %tanh.qname; EMPTY >
+<!ATTLIST %tanh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %sech.qname; EMPTY >
+<!ATTLIST %sech.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %csch.qname; EMPTY >
+<!ATTLIST %csch.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %coth.qname; EMPTY >
+<!ATTLIST %coth.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arcsin.qname; EMPTY >
+<!ATTLIST %arcsin.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arccos.qname; EMPTY >
+<!ATTLIST %arccos.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arctan.qname; EMPTY >
+<!ATTLIST %arctan.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arccosh.qname; EMPTY >
+<!ATTLIST %arccosh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+
+<!ELEMENT %arccot.qname; EMPTY >
+<!ATTLIST %arccot.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arccoth.qname; EMPTY >
+<!ATTLIST %arccoth.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+
+<!ELEMENT %arccsc.qname; EMPTY >
+<!ATTLIST %arccsc.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arccsch.qname; EMPTY >
+<!ATTLIST %arccsch.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arcsec.qname; EMPTY >
+<!ATTLIST %arcsec.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arcsech.qname; EMPTY >
+<!ATTLIST %arcsech.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arcsinh.qname; EMPTY >
+<!ATTLIST %arcsinh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %arctanh.qname; EMPTY >
+<!ATTLIST %arctanh.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+
+
+<!ENTITY % cstatopnary
+ "%mean.qname; | %sdev.qname; |
+ %variance.qname; | %median.qname; |
+ %mode.qname;" >
+
+<!ELEMENT %mean.qname; EMPTY >
+<!ATTLIST %mean.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %sdev.qname; EMPTY >
+<!ATTLIST %sdev.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %variance.qname; EMPTY >
+<!ATTLIST %variance.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %median.qname; EMPTY >
+<!ATTLIST %median.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %mode.qname; EMPTY >
+<!ATTLIST %mode.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % cstatopmoment
+ "%moment.qname;" >
+
+<!ELEMENT %moment.qname; EMPTY >
+<!ATTLIST %moment.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clalgop1ary
+ "%determinant.qname; |
+ %transpose.qname;" >
+
+<!ELEMENT %determinant.qname; EMPTY >
+<!ATTLIST %determinant.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %transpose.qname; EMPTY >
+<!ATTLIST %transpose.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clalgop2ary
+ "%vectorproduct.qname;
+ | %scalarproduct.qname;
+ | %outerproduct.qname;" >
+
+<!ELEMENT %vectorproduct.qname; EMPTY >
+<!ATTLIST %vectorproduct.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %scalarproduct.qname; EMPTY >
+<!ATTLIST %scalarproduct.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %outerproduct.qname; EMPTY >
+<!ATTLIST %outerproduct.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % clalgopnary
+ "%selector.qname;" >
+
+<!ELEMENT %selector.qname; EMPTY >
+<!ATTLIST %selector.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!-- Content elements: relations -->
+
+<!ENTITY % cgenrel2ary
+ "%neq.qname;" >
+
+<!ELEMENT %neq.qname; EMPTY >
+<!ATTLIST %neq.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % cgenrelnary
+ "%eq.qname; | %leq.qname; | %lt.qname; | %geq.qname;
+ | %gt.qname;| %equivalent.qname; | %approx.qname;" >
+
+<!ELEMENT %eq.qname; EMPTY >
+<!ATTLIST %eq.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %equivalent.qname; EMPTY >
+<!ATTLIST %equivalent.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %approx.qname; EMPTY >
+<!ATTLIST %approx.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %gt.qname; EMPTY >
+<!ATTLIST %gt.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %lt.qname; EMPTY >
+<!ATTLIST %lt.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %geq.qname; EMPTY >
+<!ATTLIST %geq.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %leq.qname; EMPTY >
+<!ATTLIST %leq.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % csetrel2ary
+ "%in.qname; | %notin.qname; | %notsubset.qname; | %notprsubset.qname;" >
+
+<!ELEMENT %in.qname; EMPTY >
+<!ATTLIST %in.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %notin.qname; EMPTY >
+<!ATTLIST %notin.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %notsubset.qname; EMPTY >
+<!ATTLIST %notsubset.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %notprsubset.qname; EMPTY >
+<!ATTLIST %notprsubset.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % csetrelnary
+ "%subset.qname; | %prsubset.qname;" >
+
+<!ELEMENT %subset.qname; EMPTY >
+<!ATTLIST %subset.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ELEMENT %prsubset.qname; EMPTY >
+<!ATTLIST %prsubset.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+>
+
+<!ENTITY % cseqrel2ary
+ "%tendsto.qname;" >
+
+<!ELEMENT %tendsto.qname; EMPTY >
+<!ATTLIST %tendsto.qname;
+ %MATHML.Common.attrib;
+ %att-definition;
+ %att-encoding;
+ %att-type;
+>
+
+<!-- Content elements: quantifiers -->
+
+<!ENTITY % cquantifier
+ "%lowlimit.qname; | %uplimit.qname; | %bvar.qname;
+ | %degree.qname; | %logbase.qname;" >
+
+<!ATTLIST %lowlimit.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %uplimit.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %bvar.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %degree.qname;
+ %MATHML.Common.attrib;
+>
+
+<!ATTLIST %logbase.qname;
+ %MATHML.Common.attrib;
+>
+
+<!-- Operator groups -->
+
+<!ENTITY % cop1ary
+ "%cfuncop1ary; | %carithop1ary; | %clogicop1ary; |
+ %ccalcop1ary; | %ctrigop; | %clalgop1ary; |
+ %csetop1ary;" >
+
+<!ENTITY % cop2ary
+ "%carithop2ary; | %clogicop2ary;| %clalgop2ary; | %csetop2ary;" >
+
+<!ENTITY % copnary
+ "%cfuncopnary; | %carithopnary; | %clogicopnary; |
+ %csetopnary; | %cstatopnary; | %clalgopnary;" >
+
+<!ENTITY % copmisc
+ "%carithoproot; | %carithop1or2ary; | %ccalcop; |
+ %cseqop; | %cstatopmoment; | %clogicopquant;" >
+
+<!-- Relation groups -->
+
+<!ENTITY % crel2ary
+ "%cgenrel2ary; | %csetrel2ary; | %cseqrel2ary;" >
+
+<!ENTITY % crelnary
+ "%cgenrelnary; | %csetrelnary;" >
+
+<!-- Content constructs: all -->
+
+<!ENTITY % Content
+ "%ctoken; | %cspecial; | %cother; | %csemantics; | %c0ary;
+ | %cconstructor; | %cquantifier; | %cop1ary; | %cop2ary;
+ | %copnary; |%copmisc; | %crel2ary; | %crelnary;" >
+
+<!-- Content constructs for substitution in presentation structures -->
+
+<!ENTITY % ContInPres
+ "%ci.qname; |%csymbol.qname;| %cn.qname;|
+ %apply.qname; | %fn.qname; |
+ %lambda.qname; | %reln.qname; |
+ %interval.qname; | %list.qname; |
+ %matrix.qname; | %matrixrow.qname; |
+ %set.qname; | %vector.qname; |
+ %semantics.qname; |%declare.qname;" >
+
+<!-- ............................................................. -->
+<!-- Recursive definition for content of expressions. Include
+ presentation constructs at lowest level so presentation
+ layout schemata hold presentation or content elements.
+ Include content constructs at lowest level so content
+ elements hold PCDATA or presentation elements at leaf
+ level (for permitted substitutable elements in context)
+-->
+
+<!ENTITY % ContentExpression
+ "(%Content; | %PresInCont;)*" >
+<!ENTITY % PresExpression
+ "(%Presentation; | %ContInPres;)*" >
+<!ENTITY % MathExpression
+ "(%PresInCont; | %ContInPres;)*" >
+
+<!-- PCDATA or MathML character elements -->
+<!ENTITY % MathMLCharacters
+ "#PCDATA | %mchar.qname; | %mglyph.qname; " >
+
+<!-- Content elements: tokens -->
+<!-- (may contain embedded presentation constructs) -->
+
+<!ELEMENT %ci.qname; (%MathMLCharacters; | %PresInCont;)* >
+<!ELEMENT %csymbol.qname; (%MathMLCharacters; | %PresInCont;)* >
+<!ELEMENT %cn.qname; (%MathMLCharacters; | %sep.qname; | %PresInCont;)* >
+
+<!-- Content elements: special -->
+
+<!ELEMENT %apply.qname; (%ContentExpression;) >
+<!ELEMENT %reln.qname; (%ContentExpression;) >
+<!ELEMENT %lambda.qname; (%ContentExpression;) >
+
+<!-- Content elements: other -->
+
+<!ELEMENT %condition.qname; (%ContentExpression;) >
+<!ELEMENT %declare.qname; (%ContentExpression;) >
+<!-- HELM: added the content element type -->
+<!ELEMENT %type.qname; (%ContentExpression;) >
+
+<!-- Content elements: semantics -->
+
+<!ELEMENT %semantics.qname; (%ContentExpression;) >
+<!ENTITY % Annotation.content "( #PCDATA )" >
+<!ELEMENT %annotation.qname; %Annotation.content; >
+
+<!ENTITY % Annotation-xml.content "ANY" >
+<!ELEMENT %annotation-xml.qname; %Annotation-xml.content; >
+
+<!-- Content elements: constructors -->
+
+<!ELEMENT %interval.qname; (%ContentExpression;) >
+<!ELEMENT %set.qname; (%ContentExpression;) >
+<!ELEMENT %list.qname; (%ContentExpression;) >
+<!ELEMENT %vector.qname; (%ContentExpression;) >
+<!ELEMENT %matrix.qname; (%ContentExpression;) >
+<!ELEMENT %matrixrow.qname; (%ContentExpression;) >
+
+<!-- Content elements: operator (user-defined) -->
+
+<!ELEMENT %fn.qname; (%ContentExpression;) >
+
+<!-- Content elements: quantifiers -->
+
+<!ELEMENT %lowlimit.qname; (%ContentExpression;) >
+<!ELEMENT %uplimit.qname; (%ContentExpression;) >
+<!ELEMENT %bvar.qname; (%ContentExpression;) >
+<!ELEMENT %degree.qname; (%ContentExpression;) >
+<!ELEMENT %logbase.qname; (%ContentExpression;) >
+
+<!-- ............................................................. -->
+<!-- Presentation layout schemata contain tokens,
+ layout and content schemata.
+-->
+
+<!ELEMENT %mstyle.qname; (%PresExpression;) >
+<!ELEMENT %merror.qname; (%PresExpression;) >
+<!ELEMENT %mphantom.qname; (%PresExpression;) >
+<!ELEMENT %mrow.qname; (%PresExpression;) >
+<!ELEMENT %mfrac.qname; (%PresExpression;) >
+<!ELEMENT %msqrt.qname; (%PresExpression;) >
+<!ELEMENT %menclose.qname; (%PresExpression;) >
+<!ELEMENT %mroot.qname; (%PresExpression;) >
+<!ELEMENT %msub.qname; (%PresExpression;) >
+<!ELEMENT %msup.qname; (%PresExpression;) >
+<!ELEMENT %msubsup.qname; (%PresExpression;) >
+<!ELEMENT %mmultiscripts.qname; (%PresExpression;) >
+<!ELEMENT %munder.qname; (%PresExpression;) >
+<!ELEMENT %mover.qname; (%PresExpression;) >
+<!ELEMENT %munderover.qname; (%PresExpression;) >
+<!ELEMENT %mtable.qname; (%PresExpression;) >
+<!ELEMENT %mtr.qname; (%PresExpression;) >
+<!ELEMENT %mlabeledtr.qname; (%PresExpression;) >
+<!ELEMENT %mtd.qname; (%PresExpression;) >
+<!ELEMENT %maction.qname; (%PresExpression;) >
+<!ELEMENT %mfenced.qname; (%PresExpression;) >
+<!ELEMENT %mpadded.qname; (%PresExpression;) >
+
+<!-- Presentation elements contain PCDATA or malignmark constructs. -->
+
+<!ELEMENT %mi.qname; (%MathMLCharacters; |
+ %malignmark.qname;)* >
+<!ELEMENT %mn.qname; (%MathMLCharacters; |
+ %malignmark.qname;)* >
+<!ELEMENT %mo.qname; (%MathMLCharacters; |
+ %malignmark.qname;)* >
+<!ELEMENT %mtext.qname; (%MathMLCharacters; |
+ %malignmark.qname;)* >
+<!ELEMENT %ms.qname; (%MathMLCharacters; |
+ %malignmark.qname;)* >
+
+<!-- Browser interface definition ............................... -->
+
+<!-- Attributes for top-level element "math" -->
+
+<!ENTITY % att-macros
+ "macros CDATA #IMPLIED" >
+<!ENTITY % att-mode
+ "mode CDATA #IMPLIED" >
+<!ENTITY % att-display
+ "display CDATA #IMPLIED" >
+
+<!ENTITY % att-topinfo
+ "%MATHML.Common.attrib;
+ %att-macros;
+ %att-mode;
+ %att-display;" >
+
+<!-- Attributes for browser interface element -->
+
+<!ENTITY % att-baseline
+ "baseline CDATA #IMPLIED" >
+<!ENTITY % att-overflow
+ "overflow ( scroll | elide | truncate | scale ) 'scroll'" >
+<!ENTITY % att-altimg
+ "altimg CDATA #IMPLIED" >
+<!ENTITY % att-alttext
+ "alttext CDATA #IMPLIED" >
+
+<!ENTITY % att-browif
+ "%att-type;
+ %att-name;
+ %att-height;
+ %att-width;
+ %att-baseline;
+ %att-overflow;
+ %att-altimg;
+ %att-alttext;" >
+
+<!-- ............................................................. -->
+<!-- The top-level element "math" contains MathML encoded
+ mathematics. The "math" element has the browser info
+ attributes iff it is also the browser interface element.
+-->
+
+<!ELEMENT %math.qname; (%MathExpression;) >
+
+<!ATTLIST %math.qname;
+ %att-topinfo;
+ %att-browif; >
+
+<!-- MathML Character Entities .............................................. -->
+<!ENTITY % mathml-charent.module "INCLUDE" >
+<![%mathml-charent.module;[
+<!-- Entity sets from ISO Technical Report 9573-13 ..... -->
+
+<!ENTITY % ent-isoamsa
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Arrow Relations for MathML 2.0//EN"
+ "isoamsa.ent" >
+%ent-isoamsa;
+
+<!ENTITY % ent-isoamsb
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Binary Operators for MathML 2.0//EN"
+ "isoamsb.ent" >
+%ent-isoamsb;
+
+<!ENTITY % ent-isoamsc
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Delimiters for MathML 2.0//EN"
+ "isoamsc.ent" >
+%ent-isoamsc;
+
+<!ENTITY % ent-isoamsn
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Negated Relations for MathML 2.0//EN"
+ "isoamsn.ent" >
+%ent-isoamsn;
+
+<!ENTITY % ent-isoamso
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Ordinary for MathML 2.0//EN"
+ "isoamso.ent" >
+%ent-isoamso;
+
+<!ENTITY % ent-isoamsr
+ PUBLIC "-//W3C//ENTITIES Added Math Symbols: Relations for MathML 2.0//EN"
+ "isoamsr.ent" >
+%ent-isoamsr;
+
+<!ENTITY % ent-isogrk3
+ PUBLIC "-//W3C//ENTITIES Greek Symbols for MathML 2.0//EN"
+ "isogrk3.ent" >
+%ent-isogrk3;
+
+<!ENTITY % ent-isomfrk
+ PUBLIC "-//W3C//ENTITIES Math Alphabets: Fraktur for MathML 2.0//EN"
+ "isomfrk.ent" >
+%ent-isomfrk;
+
+<!ENTITY % ent-isomopf
+ PUBLIC "-//W3C//ENTITIES Math Alphabets: Open Face for MathML 2.0//EN"
+ "isomopf.ent" >
+%ent-isomopf;
+
+<!ENTITY % ent-isomscr
+ PUBLIC "-//W3C//ENTITIES Math Alphabets: Script for MathML 2.0//EN"
+ "isomscr.ent" >
+%ent-isomscr;
+
+<!ENTITY % ent-isotech
+ PUBLIC "-//W3C//ENTITIES General Technical for MathML 2.0//EN"
+ "isotech.ent" >
+%ent-isotech;
+
+<!-- Entity sets from informative annex to ISO 8879:1986 (SGML) ....... -->
+
+<!ENTITY % ent-isobox
+ PUBLIC "-//W3C//ENTITIES Box and Line Drawing for MathML 2.0//EN"
+ "isobox.ent" >
+%ent-isobox;
+
+<!ENTITY % ent-isocyr1
+ PUBLIC "-//W3C//ENTITIES Russian Cyrillic for MathML 2.0//EN"
+ "isocyr1.ent" >
+%ent-isocyr1;
+
+<!ENTITY % ent-isocyr2
+ PUBLIC "-//W3C//ENTITIES Non-Russian Cyrillic for MathML 2.0//EN"
+ "isocyr2.ent" >
+%ent-isocyr2;
+
+<!ENTITY % ent-isodia
+ PUBLIC "-//W3C//ENTITIES Diacritical Marks for MathML 2.0//EN"
+ "isodia.ent" >
+%ent-isodia;
+
+<!ENTITY % ent-isolat1
+ PUBLIC "-//W3C//ENTITIES Added Latin 1 for MathML 2.0//EN"
+ "isolat1.ent" >
+%ent-isolat1;
+
+<!ENTITY % ent-isolat2
+ PUBLIC "-//W3C//ENTITIES Added Latin 2 for MathML 2.0//EN"
+ "isolat2.ent" >
+%ent-isolat2;
+
+<!ENTITY % ent-isonum
+ PUBLIC "-//W3C//ENTITIES Numeric and Special Graphic for MathML 2.0//EN"
+ "isonum.ent" >
+%ent-isonum;
+
+<!ENTITY % ent-isopub
+ PUBLIC "-//W3C//ENTITIES Publishing for MathML 2.0//EN"
+ "isopub.ent" >
+%ent-isopub;
+
+<!-- New characters defined by MathML ............................ -->
+
+<!ENTITY % ent-mmlextra
+ PUBLIC "-//W3C//ENTITIES Extra for MathML 2.0//EN"
+ "mmlextra.ent" >
+%ent-mmlextra;
+
+<!-- MathML aliases for characters defined above ................. -->
+
+<!ENTITY % ent-mmlalias
+ PUBLIC "-//W3C//ENTITIES Aiases for MathML 2.0//EN"
+ "mmlalias.ent" >
+%ent-mmlalias;
+
+<!-- end of MathML Character Entity section -->]]>
+
+<!-- Revision History:
+
+ Initial draft (syntax = XML) 1997-05-09
+ Stephen Buswell
+ Revised 1997-05-14
+ Robert Miner
+ Revised 1997-06-29 and 1997-07-02
+ Stephen Buswell
+ Revised 1997-12-15
+ Stephen Buswell
+ Revised 1998-02-08
+ Stephen Buswell
+ Revised 1998-04-04
+ Stephen Buswell
+ Entities and small revisions 1999-02-21
+ David Carlisle
+ Added attribute definitionURL to ci and cn 1999-10-11
+ Nico Poppelier
+ Additions for MathML 2 1999-12-16
+ David Carlisle
+ Namespace support 2000-01-14
+ David Carlisle
+ XHTML Compatibility 2000-02-23
+ Murray Altheim
+ New content elements 2000-03-26
+ David Carlisle
+
+-->
+
+<!-- end of MathML 2.0 DTD ................................................ -->
+<!-- ....................................................................... -->
+
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR THEORY OBJECTS AT LEVEL OF CIC XML FILES: -->
+<!-- First draft: May 10 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--*****************************************************************-->
+
+<!-- manca il semplice enunciato -->
+<!-- mancano i link ad altre teorie? (corrispondenti a Require?) -->
+<!-- una teoria "vuota" e' una teoria? -->
+<!ENTITY % mathstructure '(THEOREM|LEMMA|COROLLARY|AXIOM|FACT|DEFINITION|
+ VARIABLE|SECTION)*'>
+
+<!ELEMENT Theory (%mathstructure;)>
+<!ATTLIST Theory
+ uri CDATA #REQUIRED>
+
+<!ELEMENT THEOREM EMPTY>
+<!ATTLIST THEOREM
+ id IDREF #REQUIRED
+ uri CDATA #REQUIRED>
+
+<!ELEMENT LEMMA EMPTY>
+<!ATTLIST LEMMA
+ id IDREF #REQUIRED
+ uri CDATA #REQUIRED
+ target IDREF #REQUIRED>
+
+<!ELEMENT COROLLARY EMPTY>
+<!ATTLIST COROLLARY
+ id IDREF #REQUIRED
+ uri CDATA #REQUIRED
+ target IDREF #REQUIRED>
+
+<!ELEMENT AXIOM EMPTY>
+<!ATTLIST AXIOM
+ id IDREF #REQUIRED
+ uri CDATA #REQUIRED>
+
+<!ELEMENT FACT EMPTY>
+<!ATTLIST FACT
+ id IDREF #REQUIRED
+ uri CDATA #REQUIRED>
+
+<!ELEMENT DEFINITION EMPTY>
+<!ATTLIST DEFINITION
+ uri CDATA #REQUIRED>
+
+<!ELEMENT VARIABLE EMPTY>
+<!ATTLIST VARIABLE
+ uri CDATA #REQUIRED>
+
+<!ELEMENT SECTION (%mathstructure;)>
+<!ATTLIST SECTION
+ uri CDATA #REQUIRED>
+
+<!--
+ VINCOLI DI VALIDITA' NON ESPRIMIBILI NEL DTD:
+ Siano V una variabile e T,T' due fatti/definizioni/teoremi/lemmi/corollari
+
+ - per visualizzare T dipendente da T' dove T' e T sono definiti nella stessa
+ (da definirsi) teoria/sezione, debbo visualizzare anche T'?
+ - per visualizzare T dipendente da T' dove anche T' e' visualizzato, debbo
+ visualizzare T necessariamente dopo T'?
+ + consistenza fra la dipendenza dei lemmi e dei corollari dal loro target
+ e quella effettiva data dal livello degli oggetti
+ + tutte le URI debbono essere relative e discendenti (= non contenti "..")
+ +? ogni lemma deve precedere (strettamente?) il suo target
+ +? ogni corollario deve seguire (strettamente?) il suo target
+ + se T/V dipende da V, allora V deve essere visualizzata
+ + se T/V dipende da V, allora V deve essere visualizzata prima di T
+ PROBLEMA: NON ABBIAMO INFORMAZIONI SULLA DIPENDENZA DI V DA V!!!
+-->
--- /dev/null
+
+<!--
+ File mmlalias.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+-->
+
+<!ENTITY angle "∠" ><!--alias ISOAMSO ang -->
+<!ENTITY approx "≈" ><!--alias ISOTECH ap -->
+<!ENTITY approxeq "≊" ><!--alias ISOAMSR ape -->
+<!ENTITY backcong "≌" ><!--alias ISOAMSR bcong -->
+<!ENTITY backepsilon "ℼ" ><!--alias ISOAMSR bepsi -->
+<!ENTITY backprime "‵" ><!--alias ISOAMSO bprime -->
+<!ENTITY backsim "∽" ><!--alias ISOAMSR bsim -->
+<!ENTITY backsimeq "⋍" ><!--alias ISOAMSR bsime -->
+<!ENTITY Backslash "∖" ><!--alias ISOAMSB setmn -->
+<!ENTITY barwedge "⊼" ><!--alias ISOAMSB barwed -->
+<!ENTITY because "∵" ><!--alias ISOTECH becaus -->
+<!ENTITY Because "∵" ><!--alias ISOTECH becaus -->
+<!ENTITY Bernoullis "ℬ" ><!--alias ISOTECH bernou -->
+<!ENTITY between "≬" ><!--alias ISOAMSR twixt -->
+<!ENTITY bigcap "⋂" ><!--alias ISOAMSB xcap -->
+<!ENTITY bigcirc "◯" ><!--alias ISOAMSB xcirc -->
+<!ENTITY bigcup "⋃" ><!--alias ISOAMSB xcup -->
+<!ENTITY bigodot "⊙" ><!--alias ISOAMSB xodot -->
+<!ENTITY bigoplus "⊕" ><!--alias ISOAMSB xoplus -->
+<!ENTITY bigotimes "⊗" ><!--alias ISOAMSB xotime -->
+<!ENTITY bigsqcup "⊔" ><!--alias ISOAMSB xsqcup -->
+<!ENTITY bigstar "★" ><!--ISOPUB starf -->
+<!ENTITY bigtriangledown "▽" ><!--alias ISOAMSB xdtri -->
+<!ENTITY bigtriangleup "△" ><!--alias ISOAMSB xutri -->
+<!ENTITY biguplus "⊎" ><!--alias ISOAMSB xuplus -->
+<!ENTITY bigvee "⋁" ><!--alias ISOAMSB xvee -->
+<!ENTITY bigwedge "⋀" ><!--alias ISOAMSB xwedge -->
+<!ENTITY bkarow "⤍" ><!--alias ISOAMSA rbarr -->
+<!ENTITY blacklozenge "⧫" ><!--alias ISOPUB lozf -->
+<!ENTITY blacksquare "▪" ><!--ISOTECH squarf -->
+<!ENTITY blacktriangle "▴" ><!--alias ISOPUB utrif -->
+<!ENTITY blacktriangledown "▾" ><!--alias ISOPUB dtrif -->
+<!ENTITY blacktriangleleft "◂" ><!--alias ISOPUB ltrif -->
+<!ENTITY blacktriangleright "▸" ><!--alias ISOPUB rtrif -->
+<!ENTITY bot "⊥" ><!--alias ISOTECH bottom -->
+<!ENTITY boxminus "⊟" ><!--alias ISOAMSB minusb -->
+<!ENTITY boxplus "⊞" ><!--alias ISOAMSB plusb -->
+<!ENTITY boxtimes "⊠" ><!--alias ISOAMSB timesb -->
+<!ENTITY Breve "˘" ><!--alias ISODIA breve -->
+<!ENTITY bullet "•" ><!--alias ISOPUB bull -->
+<!ENTITY bumpeq "≏" ><!--alias ISOAMSR bumpe -->
+<!ENTITY Bumpeq "≎" ><!--alias ISOAMSR bump -->
+<!ENTITY Cedilla "¸" ><!--alias ISODIA cedil -->
+<!ENTITY centerdot "·" ><!--alias ISONUM middot -->
+<!ENTITY CenterDot "·" ><!--alias ISONUM middot -->
+<!ENTITY checkmark "✓" ><!--alias ISOPUB check -->
+<!ENTITY circeq "≗" ><!--alias ISOAMSR cire -->
+<!ENTITY circlearrowleft "↺" ><!--alias ISOAMSA olarr -->
+<!ENTITY circlearrowright "↻" ><!--alias ISOAMSA orarr -->
+<!ENTITY circledast "⊛" ><!--alias ISOAMSB oast -->
+<!ENTITY circledcirc "⊚" ><!--alias ISOAMSB ocir -->
+<!ENTITY circleddash "⊝" ><!--alias ISOAMSB odash -->
+<!ENTITY CircleDot "⊙" ><!--alias ISOAMSB odot -->
+<!ENTITY circledR "®" ><!--alias ISONUM reg -->
+<!ENTITY circledS "Ⓢ" ><!--alias ISOAMSO oS -->
+<!ENTITY CircleMinus "⊖" ><!--alias ISOAMSB ominus -->
+<!ENTITY CirclePlus "⊕" ><!--alias ISOAMSB oplus -->
+<!ENTITY CircleTimes "⊗" ><!--alias ISOAMSB otimes -->
+<!ENTITY ClockwiseContourIntegral "∲" ><!--alias ISOTECH cwconint -->
+<!ENTITY CloseCurlyDoubleQuote "”" ><!--alias ISONUM rdquo -->
+<!ENTITY CloseCurlyQuote "’" ><!--alias ISONUM rsquo -->
+<!ENTITY clubsuit "♣" ><!--ISOPUB clubs -->
+<!ENTITY coloneq "≔" ><!--alias ISOAMSR colone -->
+<!ENTITY complement "∁" ><!--alias ISOAMSO comp -->
+<!ENTITY Congruent "≡" ><!--alias ISOTECH equiv -->
+<!ENTITY ContourIntegral "∮" ><!--alias ISOTECH conint -->
+<!ENTITY Coproduct "∐" ><!--alias ISOAMSB coprod -->
+<!ENTITY CounterClockwiseContourIntegral "∳" ><!--alias ISOTECH awconint -->
+<!ENTITY CupCap "≍" ><!--alias ISOAMSR asymp -->
+<!ENTITY curlyeqprec "⋞" ><!--alias ISOAMSR cuepr -->
+<!ENTITY curlyeqsucc "⋟" ><!--alias ISOAMSR cuesc -->
+<!ENTITY curlyvee "⋎" ><!--alias ISOAMSB cuvee -->
+<!ENTITY curlywedge "⋏" ><!--alias ISOAMSB cuwed -->
+<!ENTITY curvearrowleft "↶" ><!--alias ISOAMSA cularr -->
+<!ENTITY curvearrowright "↷" ><!--alias ISOAMSA curarr -->
+<!ENTITY dbkarow "⤏" ><!--alias ISOAMSA rBarr -->
+<!ENTITY ddagger "‡" ><!--alias ISOPUB Dagger -->
+<!ENTITY ddotseq "⩷" ><!--alias ISOAMSR eDDot -->
+<!ENTITY Del "∇" ><!--alias ISOTECH nabla -->
+<!ENTITY DiacriticalAcute "´" ><!--alias ISODIA acute -->
+<!ENTITY DiacriticalDot "˙" ><!--alias ISODIA dot -->
+<!ENTITY DiacriticalDoubleAcute "˝" ><!--alias ISODIA dblac -->
+<!ENTITY DiacriticalGrave "`" ><!--alias ISODIA grave -->
+<!ENTITY DiacriticalTilde "˜" ><!--alias ISODIA tilde -->
+<!ENTITY diamond "⋄" ><!--alias ISOAMSB diam -->
+<!ENTITY Diamond "⋄" ><!--alias ISOAMSB diam -->
+<!ENTITY diamondsuit "♦" ><!--ISOPUB diams -->
+<!ENTITY digamma "Ϝ" ><!--alias ISOGRK3 gammad -->
+<!ENTITY div "÷" ><!--alias ISONUM divide -->
+<!ENTITY divideontimes "⋇" ><!--alias ISOAMSB divonx -->
+<!ENTITY doteq "≐" ><!--alias ISOAMSR esdot -->
+<!ENTITY doteqdot "≑" ><!--alias ISOAMSR eDot -->
+<!ENTITY DotEqual "≐" ><!--alias ISOAMSR esdot -->
+<!ENTITY dotminus "∸" ><!--alias ISOAMSB minusd -->
+<!ENTITY dotplus "∔" ><!--alias ISOAMSB plusdo -->
+<!ENTITY dotsquare "⊡" ><!--alias ISOAMSB sdotb -->
+<!ENTITY doublebarwedge "⌆" ><!--alias ISOAMSB Barwed -->
+<!ENTITY DoubleContourIntegral "∯" ><!--alias ISOTECH Conint -->
+<!ENTITY DoubleDot "¨" ><!--alias ISODIA die -->
+<!ENTITY DoubleDownArrow "⇓" ><!--alias ISOAMSA dArr -->
+<!ENTITY DoubleLeftArrow "⇐" ><!--alias ISOTECH lArr -->
+<!ENTITY DoubleLeftRightArrow "⇔" ><!--alias ISOAMSA hArr -->
+<!ENTITY DoubleLeftTee "⫤" ><!--alias for ⫤ -->
+<!ENTITY DoubleLongLeftArrow "⇐" ><!--alias ISOAMSA xlArr -->
+<!ENTITY DoubleLongLeftRightArrow "⇔" ><!--alias ISOAMSA xhArr -->
+<!ENTITY DoubleLongRightArrow "⇒" ><!--alias ISOAMSA xrArr -->
+<!ENTITY DoubleRightArrow "⇒" ><!--alias ISOTECH rArr -->
+<!ENTITY DoubleRightTee "⊨" ><!--alias ISOAMSR vDash -->
+<!ENTITY DoubleUpArrow "⇑" ><!--alias ISOAMSA uArr -->
+<!ENTITY DoubleUpDownArrow "⇕" ><!--alias ISOAMSA vArr -->
+<!ENTITY DoubleVerticalBar "∥" ><!--alias ISOTECH par -->
+<!ENTITY downarrow "↓" ><!--alias ISONUM darr -->
+<!ENTITY Downarrow "⇓" ><!--alias ISOAMSA dArr -->
+<!ENTITY DownArrow "↓" ><!--alias ISONUM darr -->
+<!ENTITY DownArrowUpArrow "⇵" ><!--alias ISOAMSA duarr -->
+<!ENTITY downdownarrows "⇊" ><!--alias ISOAMSA ddarr -->
+<!ENTITY downharpoonleft "⇃" ><!--alias ISOAMSA dharl -->
+<!ENTITY downharpoonright "⇂" ><!--alias ISOAMSA dharr -->
+<!ENTITY DownLeftVector "↽" ><!--alias ISOAMSA lhard -->
+<!ENTITY DownRightVector "⇁" ><!--alias ISOAMSA rhard -->
+<!ENTITY DownTee "⊤" ><!--alias ISOTECH top -->
+<!ENTITY drbkarow "⤐" ><!--alias ISOAMSA RBarr -->
+<!ENTITY Element "∈" ><!--alias ISOTECH isinv -->
+<!ENTITY emptyset "∅⁣" ><!--alias ISOAMSO empty -->
+<!ENTITY eqcirc "≖" ><!--alias ISOAMSR ecir -->
+<!ENTITY eqcolon "≕" ><!--alias ISOAMSR ecolon -->
+<!ENTITY eqsim "≂" ><!--alias ISOAMSR esim -->
+<!ENTITY eqslantgtr "⋝" ><!--alias ISOAMSR egs -->
+<!ENTITY eqslantless "⋜" ><!--alias ISOAMSR els -->
+<!ENTITY EqualTilde "≂" ><!--alias ISOAMSR esim -->
+<!ENTITY Equilibrium "⇌" ><!--alias ISOAMSA rlhar -->
+<!ENTITY Exists "∃" ><!--alias ISOTECH exist -->
+<!ENTITY fallingdotseq "≒" ><!--alias ISOAMSR efDot -->
+<!ENTITY ForAll "∀" ><!--alias ISOTECH forall -->
+<!ENTITY geq "≥" ><!--alias ISOTECH ge -->
+<!ENTITY geqq "≧" ><!--alias ISOAMSR gE -->
+<!ENTITY geqslant "⩾" ><!--alias ISOAMSR ges -->
+<!ENTITY gg "≫" ><!--alias ISOAMSR Gt -->
+<!ENTITY ggg "⋙" ><!--alias ISOAMSR Gg -->
+<!ENTITY gnapprox "⪊" ><!--alias ISOAMSN gnap -->
+<!ENTITY gneq "≩" ><!--alias ISOAMSN gne -->
+<!ENTITY gneqq "≩" ><!--alias ISOAMSN gnE -->
+<!ENTITY GreaterEqual "≥" ><!--alias ISOTECH ge -->
+<!ENTITY GreaterEqualLess "⋛" ><!--alias ISOAMSR gel -->
+<!ENTITY GreaterFullEqual "≧" ><!--alias ISOAMSR gE -->
+<!ENTITY GreaterLess "≷" ><!--alias ISOAMSR gl -->
+<!ENTITY GreaterSlantEqual "⩾" ><!--alias ISOAMSR ges -->
+<!ENTITY GreaterTilde "≳" ><!--alias ISOAMSR gsim -->
+<!ENTITY gtrapprox "≳" ><!--alias ISOAMSR gap -->
+<!ENTITY gtrdot "⋗" ><!--alias ISOAMSR gtdot -->
+<!ENTITY gtreqless "⋛" ><!--alias ISOAMSR gel -->
+<!ENTITY gtreqqless "⋛" ><!--alias ISOAMSR gEl -->
+<!ENTITY gtrless "≷" ><!--alias ISOAMSR gl -->
+<!ENTITY gtrsim "≳" ><!--alias ISOAMSR gsim -->
+<!ENTITY gvertneqq "≩̸" ><!--alias ISOAMSN gvnE -->
+<!ENTITY Hacek "ˇ" ><!--alias ISODIA caron -->
+<!ENTITY Hat "̂" ><!--circumflex accent (circ in ISODIA) -->
+<!ENTITY hbar "ℏ" ><!--alias ISOAMSO plank -->
+<!ENTITY heartsuit "♡" ><!--ISOPUB hearts -->
+<!ENTITY hksearow "⤥" ><!--alias ISOAMSA searhk -->
+<!ENTITY hkswarow "⤦" ><!--alias ISOAMSA swarhk -->
+<!ENTITY hookleftarrow "↩" ><!--alias ISOAMSA larrhk -->
+<!ENTITY hookrightarrow "↪" ><!--alias ISOAMSA rarrhk -->
+<!ENTITY hslash "ℏ" ><!--alias ISOAMSO plankv -->
+<!ENTITY HumpDownHump "≎" ><!--alias ISOAMSR bump -->
+<!ENTITY HumpEqual "≏" ><!--alias ISOAMSR bumpe -->
+<!ENTITY iiiint "⨌" ><!--alias ISOTECH qint -->
+<!ENTITY iiint "∭" ><!--alias ISOTECH tint -->
+<!ENTITY Im "ℑ" ><!--alias ISOAMSO image -->
+<!ENTITY imagpart "ℑ" ><!--alias ISOAMSO image -->
+<!ENTITY Implies "⇒" ><!--alias ISOTECH rArr -->
+<!ENTITY in "∈" ><!--ISOTECH isin -->
+<!ENTITY Integral "∫" ><!--alias ISOTECH int -->
+<!ENTITY intercal "⊺" ><!--alias ISOAMSB intcal -->
+<!ENTITY Intersection "⋂" ><!--alias ISOAMSB xcap -->
+<!ENTITY intprod "⨼" ><!--alias ISOAMSB iprod -->
+<!ENTITY langle "〈" ><!--alias ISOTECH lang -->
+<!ENTITY lbrace "{" ><!--alias ISONUM lcub -->
+<!ENTITY lbrack "[" ><!--alias ISONUM lsqb -->
+<!ENTITY LeftAngleBracket "〈" ><!--alias ISOTECH lang -->
+<!ENTITY leftarrow "←" ><!--alias ISONUM larr -->
+<!ENTITY Leftarrow "⇐" ><!--alias ISOTECH lArr -->
+<!ENTITY LeftArrow "←" ><!--alias ISONUM larr -->
+<!ENTITY LeftArrowRightArrow "⇆" ><!--alias ISOAMSA lrarr -->
+<!ENTITY leftarrowtail "↢" ><!--alias ISOAMSA larrtl -->
+<!ENTITY LeftCeiling "⌈" ><!--alias ISOAMSC lceil -->
+<!ENTITY LeftDoubleBracket "〚" ><!--left double bracket delimiter -->
+<!ENTITY LeftDownVector "⇃" ><!--alias ISOAMSA dharl -->
+<!ENTITY LeftFloor "⌊" ><!--alias ISOAMSC lfloor -->
+<!ENTITY leftharpoondown "↽" ><!--alias ISOAMSA lhard -->
+<!ENTITY leftharpoonup "↼" ><!--alias ISOAMSA lharu -->
+<!ENTITY leftleftarrows "⇇" ><!--alias ISOAMSA llarr -->
+<!ENTITY leftrightarrow "↔" ><!--alias ISOAMSA harr -->
+<!ENTITY Leftrightarrow "⇔" ><!--alias ISOAMSA hArr -->
+<!ENTITY LeftRightArrow "↔" ><!--alias ISOAMSA harr -->
+<!ENTITY leftrightarrows "⇆" ><!--alias ISOAMSA lrarr -->
+<!ENTITY leftrightharpoons "⇋" ><!--alias ISOAMSA lrhar -->
+<!ENTITY leftrightsquigarrow "↭" ><!--alias ISOAMSA harrw -->
+<!ENTITY LeftTee "⊣" ><!--alias ISOAMSR dashv -->
+<!ENTITY leftthreetimes "⋋" ><!--alias ISOAMSB lthree -->
+<!ENTITY LeftTriangle "⊲" ><!--alias ISOAMSR vltri -->
+<!ENTITY LeftTriangleEqual "⊴" ><!--alias ISOAMSR ltrie -->
+<!ENTITY LeftUpVector "↿" ><!--alias ISOAMSA uharl -->
+<!ENTITY LeftVector "↼" ><!--alias ISOAMSA lharu -->
+<!ENTITY leq "≤" ><!--alias ISOTECH le -->
+<!ENTITY leqq "≦" ><!--alias ISOAMSR lE -->
+<!ENTITY leqslant "⩽" ><!--alias ISOAMSR les -->
+<!ENTITY lessapprox "≲" ><!--alias ISOAMSR lap -->
+<!ENTITY lessdot "⋖" ><!--alias ISOAMSR ltdot -->
+<!ENTITY lesseqgtr "⋚" ><!--alias ISOAMSR leg -->
+<!ENTITY lesseqqgtr "⋚" ><!--alias ISOAMSR lEg -->
+<!ENTITY LessEqualGreater "⋚" ><!--alias ISOAMSR leg -->
+<!ENTITY LessFullEqual "≦" ><!--alias ISOAMSR lE -->
+<!ENTITY LessGreater "≶" ><!--alias ISOAMSR lg -->
+<!ENTITY lessgtr "≶" ><!--alias ISOAMSR lg -->
+<!ENTITY lesssim "≲" ><!--alias ISOAMSR lsim -->
+<!ENTITY LessSlantEqual "⩽" ><!--alias ISOAMSR les -->
+<!ENTITY LessTilde "≲" ><!--alias ISOAMSR lsim -->
+<!ENTITY ll "≪" ><!--alias ISOAMSR Lt -->
+<!ENTITY llcorner "⌞" ><!--alias ISOAMSC dlcorn -->
+<!ENTITY Lleftarrow "⇚" ><!--alias ISOAMSA lAarr -->
+<!ENTITY lmoustache "⦘" ><!--alias ISOAMSC lmoust -->
+<!ENTITY lnapprox "⪉" ><!--alias ISOAMSN lnap -->
+<!ENTITY lneq "≨" ><!--alias ISOAMSN lne -->
+<!ENTITY lneqq "≨" ><!--alias ISOAMSN lnE -->
+<!ENTITY longleftarrow "←" ><!--alias ISOAMSA xlarr -->
+<!ENTITY Longleftarrow "⇐" ><!--alias ISOAMSA xlArr -->
+<!ENTITY LongLeftArrow "←" ><!--alias ISOAMSA xlarr -->
+<!ENTITY longleftrightarrow "↔" ><!--alias ISOAMSA xharr -->
+<!ENTITY Longleftrightarrow "⇔" ><!--alias ISOAMSA xhArr -->
+<!ENTITY LongLeftRightArrow "↔" ><!--alias ISOAMSA xharr -->
+<!ENTITY longmapsto "↦" ><!--alias ISOAMSA xmap -->
+<!ENTITY longrightarrow "→" ><!--alias ISOAMSA xrarr -->
+<!ENTITY Longrightarrow "⇒" ><!--alias ISOAMSA xrArr -->
+<!ENTITY LongRightArrow "→" ><!--alias ISOAMSA xrarr -->
+<!ENTITY looparrowleft "↫" ><!--alias ISOAMSA larrlp -->
+<!ENTITY looparrowright "↬" ><!--alias ISOAMSA rarrlp -->
+<!ENTITY LowerLeftArrow "↙" ><!--alias ISOAMSA swarr -->
+<!ENTITY LowerRightArrow "↘" ><!--alias ISOAMSA searr -->
+<!ENTITY lozenge "◊" ><!--alias ISOPUB loz -->
+<!ENTITY lrcorner "⌟" ><!--alias ISOAMSC drcorn -->
+<!ENTITY Lsh "↰" ><!--alias ISOAMSA lsh -->
+<!ENTITY lvertneqq "≨̸" ><!--alias ISOAMSN lvnE -->
+<!ENTITY maltese "✠" ><!--alias ISOPUB malt -->
+<!ENTITY mapsto "↦" ><!--alias ISOAMSA map -->
+<!ENTITY measuredangle "∡" ><!--alias ISOAMSO angmsd -->
+<!ENTITY MinusPlus "∓" ><!--alias ISOTECH mnplus -->
+<!ENTITY mp "∓" ><!--alias ISOTECH mnplus -->
+<!ENTITY multimap "⊸" ><!--alias ISOAMSA mumap -->
+<!ENTITY napprox "≉" ><!--alias ISOAMSN nap -->
+<!ENTITY natural "♮" ><!--alias ISOPUB natur -->
+<!ENTITY nearrow "↗" ><!--alias ISOAMSA nearr -->
+<!ENTITY NestedGreaterGreater "≫" ><!--alias ISOAMSR Gt -->
+<!ENTITY NestedLessLess "≪" ><!--alias ISOAMSR Lt -->
+<!ENTITY nexists "∄" ><!--alias ISOAMSO nexist -->
+<!ENTITY ngeq "≱⃥" ><!--alias ISOAMSN nge -->
+<!ENTITY ngeqq "≱" ><!--alias ISOAMSN ngE -->
+<!ENTITY ngeqslant "≱" ><!--alias ISOAMSN nges -->
+<!ENTITY ngtr "≯" ><!--alias ISOAMSN ngt -->
+<!ENTITY nleftarrow "↚" ><!--alias ISOAMSA nlarr -->
+<!ENTITY nLeftarrow "⇍" ><!--alias ISOAMSA nlArr -->
+<!ENTITY nleftrightarrow "↮" ><!--alias ISOAMSA nharr -->
+<!ENTITY nLeftrightarrow "⇎" ><!--alias ISOAMSA nhArr -->
+<!ENTITY nleq "≰⃥" ><!--alias ISOAMSN nle -->
+<!ENTITY nleqq "≰" ><!--alias ISOAMSN nlE -->
+<!ENTITY nleqslant "≰" ><!--alias ISOAMSN nles -->
+<!ENTITY nless "≮" ><!--alias ISOAMSN nlt -->
+<!ENTITY NotCongruent "≢" ><!--alias ISOAMSN nequiv -->
+<!ENTITY NotDoubleVerticalBar "∦" ><!--alias ISOAMSN npar -->
+<!ENTITY NotElement "∉" ><!--alias ISOTECH notin -->
+<!ENTITY NotEqual "≠" ><!--alias ISOTECH ne -->
+<!ENTITY NotExists "∄" ><!--alias ISOAMSO nexist -->
+<!ENTITY NotGreater "≯" ><!--alias ISOAMSN ngt -->
+<!ENTITY NotGreaterEqual "≱⃥" ><!--alias ISOAMSN nge -->
+<!ENTITY NotGreaterFullEqual "≰" ><!--alias ISOAMSN nlE -->
+<!ENTITY NotGreaterGreater "≫̸⁣" ><!--alias ISOAMSN nGtv -->
+<!ENTITY NotGreaterLess "≹" ><!--alias ISOAMSN ntvgl -->
+<!ENTITY NotGreaterSlantEqual "≱" ><!--alias ISOAMSN nges -->
+<!ENTITY NotGreaterTilde "≵" ><!--alias ISOAMSN ngsim -->
+<!ENTITY NotLeftTriangle "⋪" ><!--alias ISOAMSN nltri -->
+<!ENTITY NotLeftTriangleEqual "⋬" ><!--alias ISOAMSN nltrie -->
+<!ENTITY NotLess "≮" ><!--alias ISOAMSN nlt -->
+<!ENTITY NotLessEqual "≰⃥" ><!--alias ISOAMSN nle -->
+<!ENTITY NotLessGreater "≸" ><!--alias ISOAMSN ntvlg -->
+<!ENTITY NotLessLess "≪̸⁣" ><!--alias ISOAMSN nLtv -->
+<!ENTITY NotLessSlantEqual "≰" ><!--alias ISOAMSN nles -->
+<!ENTITY NotLessTilde "≴" ><!--alias ISOAMSN nlsim -->
+<!ENTITY NotPrecedes "⊀" ><!--alias ISOAMSN npr -->
+<!ENTITY NotPrecedesEqual "⪯̸" ><!--alias ISOAMSN npre -->
+<!ENTITY NotPrecedesSlantEqual "⋠" ><!--alias ISOAMSN nprcue -->
+<!ENTITY NotReverseElement "∌" ><!--alias ISOTECH notniva -->
+<!ENTITY NotRightTriangle "⋫" ><!--alias ISOAMSN nrtri -->
+<!ENTITY NotRightTriangleEqual "⋭" ><!--alias ISOAMSN nrtrie -->
+<!ENTITY NotSquareSubsetEqual "⋢" ><!--alias ISOAMSN nsqsube -->
+<!ENTITY NotSquareSupersetEqual "⋣" ><!--alias ISOAMSN nsqsupe -->
+<!ENTITY NotSubset "⊄" ><!--alias ISOAMSN vnsub -->
+<!ENTITY NotSubsetEqual "⊈" ><!--alias ISOAMSN nsube -->
+<!ENTITY NotSucceeds "⊁" ><!--alias ISOAMSN nsc -->
+<!ENTITY NotSucceedsEqual "⪰̸" ><!--alias ISOAMSN nsce -->
+<!ENTITY NotSucceedsSlantEqual "⋡" ><!--alias ISOAMSN nsccue -->
+<!ENTITY NotSuperset "⊅" ><!--alias ISOAMSN vnsup -->
+<!ENTITY NotSupersetEqual "⊉" ><!--alias ISOAMSN nsupe -->
+<!ENTITY NotTilde "≁" ><!--alias ISOAMSN nsim -->
+<!ENTITY NotTildeEqual "≄" ><!--alias ISOAMSN nsime -->
+<!ENTITY NotTildeFullEqual "≇" ><!--alias ISOAMSN ncong -->
+<!ENTITY NotTildeTilde "≉" ><!--alias ISOAMSN nap -->
+<!ENTITY NotVerticalBar "∤" ><!--alias ISOAMSN nmid -->
+<!ENTITY nparallel "∦" ><!--alias ISOAMSN npar -->
+<!ENTITY nprec "⊀" ><!--alias ISOAMSN npr -->
+<!ENTITY npreceq "⪯̸" ><!--alias ISOAMSN npre -->
+<!ENTITY nrightarrow "↛" ><!--alias ISOAMSA nrarr -->
+<!ENTITY nRightarrow "⇏" ><!--alias ISOAMSA nrArr -->
+<!ENTITY nshortmid "∤⁣" ><!--alias ISOAMSN nsmid -->
+<!ENTITY nshortparallel "∦⁣" ><!--alias ISOAMSN nspar -->
+<!ENTITY nsimeq "≄" ><!--alias ISOAMSN nsime -->
+<!ENTITY nsubset "⊄" ><!--alias ISOAMSN vnsub -->
+<!ENTITY nsubseteq "⊈" ><!--alias ISOAMSN nsube -->
+<!ENTITY nsubseteqq "⊈" ><!--alias ISOAMSN nsubE -->
+<!ENTITY nsucc "⊁" ><!--alias ISOAMSN nsc -->
+<!ENTITY nsucceq "⪰̸" ><!--alias ISOAMSN nsce -->
+<!ENTITY nsupset "⊅" ><!--alias ISOAMSN vnsup -->
+<!ENTITY nsupseteq "⊉" ><!--alias ISOAMSN nsupe -->
+<!ENTITY nsupseteqq "⊉" ><!--alias ISOAMSN nsupE -->
+<!ENTITY ntriangleleft "⋪" ><!--alias ISOAMSN nltri -->
+<!ENTITY ntrianglelefteq "⋬" ><!--alias ISOAMSN nltrie -->
+<!ENTITY ntriangleright "⋫" ><!--alias ISOAMSN nrtri -->
+<!ENTITY ntrianglerighteq "⋭" ><!--alias ISOAMSN nrtrie -->
+<!ENTITY nwarrow "↖" ><!--alias ISOAMSA nwarr -->
+<!ENTITY oint "∮" ><!--alias ISOTECH conint -->
+<!ENTITY OpenCurlyDoubleQuote "“" ><!--alias ISONUM ldquo -->
+<!ENTITY OpenCurlyQuote "‘" ><!--alias ISONUM lsquo -->
+<!ENTITY orderof "ℴ" ><!--alias ISOTECH order -->
+<!ENTITY parallel "∥" ><!--alias ISOTECH par -->
+<!ENTITY PartialD "∂" ><!--alias ISOTECH part -->
+<!ENTITY pitchfork "⋔" ><!--alias ISOAMSR fork -->
+<!ENTITY PlusMinus "±" ><!--alias ISONUM plusmn -->
+<!ENTITY pm "±" ><!--alias ISONUM plusmn -->
+<!ENTITY prec "≺" ><!--alias ISOAMSR pr -->
+<!ENTITY precapprox "≾" ><!--alias ISOAMSR prap -->
+<!ENTITY preccurlyeq "≼" ><!--alias ISOAMSR prcue -->
+<!ENTITY Precedes "≺" ><!--alias ISOAMSR pr -->
+<!ENTITY PrecedesEqual "⪯" ><!--alias ISOAMSR pre -->
+<!ENTITY PrecedesSlantEqual "≼" ><!--alias ISOAMSR prcue -->
+<!ENTITY PrecedesTilde "≾" ><!--alias ISOAMSR prsim -->
+<!ENTITY preceq "⪯" ><!--alias ISOAMSR pre -->
+<!ENTITY precnapprox "⋨" ><!--alias ISOAMSN prnap -->
+<!ENTITY precneqq "⪵" ><!--alias ISOAMSN prnE -->
+<!ENTITY precnsim "⋨" ><!--alias ISOAMSN prnsim -->
+<!ENTITY precsim "≾" ><!--alias ISOAMSR prsim -->
+<!ENTITY Proportion "∷" ><!--alias ISOAMSR Colon -->
+<!ENTITY Proportional "∝" ><!--alias ISOTECH prop -->
+<!ENTITY propto "∝" ><!--alias ISOTECH prop -->
+<!ENTITY questeq "≟" ><!--alias ISOAMSR equest -->
+<!ENTITY rangle "〉" ><!--alias ISOTECH rang -->
+<!ENTITY rbrace "}" ><!--alias ISONUM rcub -->
+<!ENTITY rbrack "]" ><!--alias ISONUM rsqb -->
+<!ENTITY Re "ℜ" ><!--alias ISOAMSO real -->
+<!ENTITY realpart "ℜ" ><!--alias ISOAMSO real -->
+<!ENTITY ReverseElement "∋" ><!--alias ISOTECH niv -->
+<!ENTITY ReverseEquilibrium "⇋" ><!--alias ISOAMSA lrhar -->
+<!ENTITY ReverseUpEquilibrium "⥯" ><!--alias ISOAMSA duhar -->
+<!ENTITY RightAngleBracket "〉" ><!--alias ISOTECH rang -->
+<!ENTITY rightarrow "→" ><!--alias ISONUM rarr -->
+<!ENTITY Rightarrow "⇒" ><!--alias ISOTECH rArr -->
+<!ENTITY RightArrow "→" ><!--alias ISONUM rarr -->
+<!ENTITY RightArrowLeftArrow "⇄" ><!--alias ISOAMSA rlarr -->
+<!ENTITY rightarrowtail "↣" ><!--alias ISOAMSA rarrtl -->
+<!ENTITY RightCeiling "⌉" ><!--alias ISOAMSC rceil -->
+<!ENTITY RightDoubleBracket "〛" ><!--right double bracket delimiter -->
+<!ENTITY RightDownVector "⇂" ><!--alias ISOAMSA dharr -->
+<!ENTITY RightFloor "⌋" ><!--alias ISOAMSC rfloor -->
+<!ENTITY rightharpoondown "⇁" ><!--alias ISOAMSA rhard -->
+<!ENTITY rightharpoonup "⇀" ><!--alias ISOAMSA rharu -->
+<!ENTITY rightleftarrows "⇄" ><!--alias ISOAMSA rlarr -->
+<!ENTITY rightleftharpoons "⇌" ><!--alias ISOAMSA rlhar -->
+<!ENTITY rightrightarrows "⇉" ><!--alias ISOAMSA rrarr -->
+<!ENTITY rightsquigarrow "⇝" ><!--alias ISOAMSA rarrw -->
+<!ENTITY RightTee "⊢" ><!--alias ISOAMSR vdash -->
+<!ENTITY RightTeeArrow "↦" ><!--alias ISOAMSA map -->
+<!ENTITY rightthreetimes "⋌" ><!--alias ISOAMSB rthree -->
+<!ENTITY RightTriangle "⊳" ><!--alias ISOAMSR vrtri -->
+<!ENTITY RightTriangleEqual "⊵" ><!--alias ISOAMSR rtrie -->
+<!ENTITY RightUpVector "↾" ><!--alias ISOAMSA uharr -->
+<!ENTITY RightVector "⇀" ><!--alias ISOAMSA rharu -->
+<!ENTITY risingdotseq "≓" ><!--alias ISOAMSR erDot -->
+<!ENTITY rmoustache "⦗" ><!--alias ISOAMSC rmoust -->
+<!ENTITY Rrightarrow "⇛" ><!--alias ISOAMSA rAarr -->
+<!ENTITY Rsh "↱" ><!--alias ISOAMSA rsh -->
+<!ENTITY searrow "↘" ><!--alias ISOAMSA searr -->
+<!ENTITY setminus "∖" ><!--alias ISOAMSB setmn -->
+<!ENTITY ShortLeftArrow "←⁣" ><!--alias ISOAMSA slarr -->
+<!ENTITY shortmid "∣⁣" ><!--alias ISOAMSR smid -->
+<!ENTITY shortparallel "∥⁣" ><!--alias ISOAMSR spar -->
+<!ENTITY ShortRightArrow "→⁣" ><!--alias ISOAMSA srarr -->
+<!ENTITY simeq "≃" ><!--alias ISOTECH sime -->
+<!ENTITY SmallCircle "∘" ><!--alias ISOTECH compfn -->
+<!ENTITY smallsetminus "∖" ><!--alias ISOAMSB ssetmn -->
+<!ENTITY spadesuit "♠" ><!--ISOPUB spades -->
+<!ENTITY Sqrt "√" ><!--alias ISOTECH radic -->
+<!ENTITY sqsubset "⊏" ><!--alias ISOAMSR sqsub -->
+<!ENTITY sqsubseteq "⊑" ><!--alias ISOAMSR sqsube -->
+<!ENTITY sqsupset "⊐" ><!--alias ISOAMSR sqsup -->
+<!ENTITY sqsupseteq "⊒" ><!--alias ISOAMSR sqsupe -->
+<!ENTITY Square "□" ><!--alias for square -->
+<!ENTITY SquareIntersection "⊓" ><!--alias ISOAMSB sqcap -->
+<!ENTITY SquareSubset "⊏" ><!--alias ISOAMSR sqsub -->
+<!ENTITY SquareSubsetEqual "⊑" ><!--alias ISOAMSR sqsube -->
+<!ENTITY SquareSuperset "⊐" ><!--alias ISOAMSR sqsup -->
+<!ENTITY SquareSupersetEqual "⊒" ><!--alias ISOAMSR sqsupe -->
+<!ENTITY SquareUnion "⊔" ><!--alias ISOAMSB sqcup -->
+<!ENTITY Star "⋆" ><!--alias ISOAMSB sstarf -->
+<!ENTITY straightepsilon "ε" ><!--alias ISOGRK3 epsi -->
+<!ENTITY straightphi "φ" ><!--alias ISOGRK3 phi -->
+<!ENTITY subset "⊂" ><!--alias ISOTECH sub -->
+<!ENTITY Subset "⋐" ><!--alias ISOAMSR Sub -->
+<!ENTITY subseteq "⊆" ><!--alias ISOTECH sube -->
+<!ENTITY subseteqq "⊆" ><!--alias ISOAMSR subE -->
+<!ENTITY SubsetEqual "⊆" ><!--alias ISOTECH sube -->
+<!ENTITY subsetneq "⊊" ><!--alias ISOAMSN subne -->
+<!ENTITY subsetneqq "⊊" ><!--alias ISOAMSN subnE -->
+<!ENTITY succ "≻" ><!--alias ISOAMSR sc -->
+<!ENTITY succapprox "≿" ><!--alias ISOAMSR scap -->
+<!ENTITY succcurlyeq "≽" ><!--alias ISOAMSR sccue -->
+<!ENTITY Succeeds "≻" ><!--alias ISOAMSR sc -->
+<!ENTITY SucceedsEqual "≽" ><!--alias ISOAMSR sce -->
+<!ENTITY SucceedsSlantEqual "≽" ><!--alias ISOAMSR sccue -->
+<!ENTITY SucceedsTilde "≿" ><!--alias ISOAMSR scsim -->
+<!ENTITY succeq "≽" ><!--alias ISOAMSR sce -->
+<!ENTITY succnapprox "⋩" ><!--alias ISOAMSN scnap -->
+<!ENTITY succneqq "⪶" ><!--alias ISOAMSN scnE -->
+<!ENTITY succnsim "⋩" ><!--alias ISOAMSN scnsim -->
+<!ENTITY succsim "≿" ><!--alias ISOAMSR scsim -->
+<!ENTITY SuchThat "∋" ><!--ISOTECH ni -->
+<!ENTITY Sum "∑" ><!--alias ISOAMSB sum -->
+<!ENTITY Superset "⊃" ><!--alias ISOTECH sup -->
+<!ENTITY SupersetEqual "⊇" ><!--alias ISOTECH supe -->
+<!ENTITY supset "⊃" ><!--alias ISOTECH sup -->
+<!ENTITY Supset "⋑" ><!--alias ISOAMSR Sup -->
+<!ENTITY supseteq "⊇" ><!--alias ISOTECH supe -->
+<!ENTITY supseteqq "⊇" ><!--alias ISOAMSR supE -->
+<!ENTITY supsetneq "⊋" ><!--alias ISOAMSN supne -->
+<!ENTITY supsetneqq "⊋" ><!--alias ISOAMSN supnE -->
+<!ENTITY swarrow "↙" ><!--alias ISOAMSA swarr -->
+<!ENTITY therefore "∴" ><!--alias ISOTECH there4 -->
+<!ENTITY Therefore "∴" ><!--alias ISOTECH there4 -->
+<!ENTITY thickapprox "≈⁣" ><!--ISOAMSR thkap -->
+<!ENTITY thicksim "∼" ><!--ISOAMSR thksim -->
+<!ENTITY ThinSpace " " ><!--space of width 3/18 em alias ISOPUB thinsp -->
+<!ENTITY Tilde "∼" ><!--alias ISOTECH sim -->
+<!ENTITY TildeEqual "≃" ><!--alias ISOTECH sime -->
+<!ENTITY TildeFullEqual "≅" ><!--alias ISOTECH cong -->
+<!ENTITY TildeTilde "≈" ><!--alias ISOTECH ap -->
+<!ENTITY toea "⤨" ><!--alias ISOAMSA nesear -->
+<!ENTITY tosa "⤩" ><!--alias ISOAMSA seswar -->
+<!ENTITY triangle "▵" ><!--alias ISOPUB utri -->
+<!ENTITY triangledown "▿" ><!--alias ISOPUB dtri -->
+<!ENTITY triangleleft "◃" ><!--alias ISOPUB ltri -->
+<!ENTITY trianglelefteq "⊴" ><!--alias ISOAMSR ltrie -->
+<!ENTITY triangleq "≜" ><!--alias ISOAMSR trie -->
+<!ENTITY triangleright "▹" ><!--alias ISOPUB rtri -->
+<!ENTITY trianglerighteq "⊵" ><!--alias ISOAMSR rtrie -->
+<!ENTITY TripleDot "⃛" ><!--alias ISOTECH tdot -->
+<!ENTITY twoheadleftarrow "↞" ><!--alias ISOAMSA Larr -->
+<!ENTITY twoheadrightarrow "↠" ><!--alias ISOAMSA Rarr -->
+<!ENTITY ulcorner "⌜" ><!--alias ISOAMSC ulcorn -->
+<!ENTITY Union "⋃" ><!--alias ISOAMSB xcup -->
+<!ENTITY UnionPlus "⊎" ><!--alias ISOAMSB uplus -->
+<!ENTITY uparrow "↑" ><!--alias ISONUM uarr -->
+<!ENTITY Uparrow "⇑" ><!--alias ISOAMSA uArr -->
+<!ENTITY UpArrow "↑" ><!--alias ISONUM uarr -->
+<!ENTITY UpArrowDownArrow "⇅" ><!--alias ISOAMSA udarr -->
+<!ENTITY updownarrow "↕" ><!--alias ISOAMSA varr -->
+<!ENTITY Updownarrow "⇕" ><!--alias ISOAMSA vArr -->
+<!ENTITY UpDownArrow "↕" ><!--alias ISOAMSA varr -->
+<!ENTITY UpEquilibrium "⥮" ><!--alias ISOAMSA udhar -->
+<!ENTITY upharpoonleft "↿" ><!--alias ISOAMSA uharl -->
+<!ENTITY upharpoonright "↾" ><!--alias ISOAMSA uharr -->
+<!ENTITY UpperLeftArrow "↖" ><!--alias ISOAMSA nwarr -->
+<!ENTITY UpperRightArrow "↗" ><!--alias ISOAMSA nearr -->
+<!ENTITY upsilon "υ" ><!--alias ISOGRK3 upsi -->
+<!ENTITY Upsilon "ϒ" ><!--alias ISOGRK3 Upsi -->
+<!ENTITY UpTee "⊥" ><!--alias ISOTECH perp -->
+<!ENTITY upuparrows "⇈" ><!--alias ISOAMSA uuarr -->
+<!ENTITY urcorner "⌝" ><!--alias ISOAMSC urcorn -->
+<!ENTITY varepsilon "ɛ" ><!--alias ISOGRK3 epsiv -->
+<!ENTITY varkappa "ϰ" ><!--alias ISOGRK3 kappav -->
+<!ENTITY varnothing "∅" ><!--alias ISOAMSO emptyv -->
+<!ENTITY varphi "ϕ" ><!--alias ISOGRK3 phiv -->
+<!ENTITY varpi "ϖ" ><!--alias ISOGRK3 piv -->
+<!ENTITY varpropto "∝" ><!--alias ISOAMSR vprop -->
+<!ENTITY varrho "ϱ" ><!--alias ISOGRK3 rhov -->
+<!ENTITY varsigma "ς" ><!--alias ISOGRK3 sigmav -->
+<!ENTITY varsubsetneq "⊊⁣" ><!--alias ISOAMSN vsubne -->
+<!ENTITY varsubsetneqq "⊊⁣" ><!--alias ISOAMSN vsubnE -->
+<!ENTITY varsupsetneq "⊋⁣" ><!--alias ISOAMSN vsupne -->
+<!ENTITY varsupsetneqq "⊋⁣" ><!--alias ISOAMSN vsupnE -->
+<!ENTITY vartheta "ϑ" ><!--alias ISOGRK3 thetav -->
+<!ENTITY vartriangleleft "⊲" ><!--alias ISOAMSR vltri -->
+<!ENTITY vartriangleright "⊳" ><!--alias ISOAMSR vrtri -->
+<!ENTITY vee "∨" ><!--alias ISOTECH or -->
+<!ENTITY Vee "⋁" ><!--alias ISOAMSB xvee -->
+<!ENTITY vert "|" ><!--alias ISONUM verbar -->
+<!ENTITY Vert "‖" ><!--alias ISOTECH Verbar -->
+<!ENTITY VerticalBar "∣" ><!--alias ISOAMSR mid -->
+<!ENTITY VerticalTilde "≀" ><!--alias ISOAMSB wreath -->
+<!ENTITY VeryThinSpace " " ><!--space of width 1/18 em alias ISOPUB hairsp -->
+<!ENTITY wedge "∧" ><!--alias ISOTECH and -->
+<!ENTITY Wedge "⋀" ><!--alias ISOAMSB xwedge -->
+<!ENTITY wp "℘" ><!--alias ISOAMSO weierp -->
+<!ENTITY wr "≀" ><!--alias ISOAMSB wreath -->
--- /dev/null
+
+<!--
+ File mmlextra.ent produced by the XSL script mmldtd.xsl
+ from input data in unicode.xml.
+
+ Please report any errors to
+ David Carlisle <davidc@nag.co.uk>.
+
+ The numeric character values assigned to each entity
+ (should) match either official Unicode assignments
+ or assignments provisionally allocated by the
+ Unicode Consortium based on the characters in the `STIX'
+ propsal for mathematics. Note that these assignments
+ have not been ratified by the corresponding ISO
+ committee and thus should be considered liable to
+ change.
+
+-->
+
+<!ENTITY af "⁡" ><!--short form of ⁡ -->
+<!ENTITY ApplyFunction "⁡" ><!--character showing function application in presentation tagging -->
+<!ENTITY Assign "≔" ><!--assignment operator -->
+<!ENTITY CapitalDifferentialD "ⅅ" ><!--D for use in differentials, e.g., within integrals -->
+<!ENTITY Cayleys "ℭ" ><!--the non-associative ring of octonions or Cayley numbers -->
+<!ENTITY complexes "ℂ" ><!--the field of complex numbers -->
+<!ENTITY Cross "⨯" ><!--cross or vector product -->
+<!ENTITY dd "ⅆ" ><!--short form of ⅆ -->
+<!ENTITY DD "ⅅ" ><!--short form of CapitalDifferentialD -->
+<!ENTITY DifferentialD "ⅆ" ><!--d for use in differentials, e.g., within integrals -->
+<!ENTITY DownArrowBar "⤓" ><!--down arrow to bar -->
+<!ENTITY DownBreve "̑" ><!--breve, inverted (non-spacing) -->
+<!ENTITY DownLeftRightVector "⥐" ><!--left-down-right-down harpoon -->
+<!ENTITY DownLeftTeeVector "⥞" ><!--left-down harpoon from bar -->
+<!ENTITY DownLeftVectorBar "⥖" ><!--left-down harpoon to bar -->
+<!ENTITY DownRightTeeVector "⥟" ><!--right-down harpoon from bar -->
+<!ENTITY DownRightVectorBar "⥗" ><!--right-down harpoon to bar -->
+<!ENTITY DownTeeArrow "↧" ><!--alias for mapstodown -->
+<!ENTITY ee "ⅇ" ><!--short form of ⅇ -->
+<!ENTITY EmptySmallSquare "◽" ><!--empty small square -->
+<!ENTITY EmptyVerySmallSquare "◽" ><!--empty small square -->
+<!ENTITY Equal "⩵" ><!--two consecutive equal signs -->
+<!ENTITY expectation "ℰ" ><!--expectation (operator) -->
+<!ENTITY exponentiale "ℯ" ><!--base of the Napierian logarithms -->
+<!ENTITY ExponentialE "ⅇ" ><!--e use for the exponential base of the natural logarithms -->
+<!ENTITY FilledSmallSquare "◾" ><!--filled small square -->
+<!ENTITY FilledVerySmallSquare "◾" ><!--filled very small square -->
+<!ENTITY Fouriertrf "ℱ" ><!--Fourier transform -->
+<!ENTITY GreaterGreater "⪢" ><!--alias for GT -->
+<!ENTITY HilbertSpace "ℋ" ><!--Hilbert space -->
+<!ENTITY HorizontalLine "─" ><!--short horizontal line -->
+<!ENTITY ic "​" ><!--short form of ⁣ -->
+<!ENTITY ii "ⅈ" ><!--short form of ⅈ -->
+<!ENTITY ImaginaryI "ⅈ" ><!--i for use as a square root of -1 -->
+<!ENTITY imagline "ℐ" ><!--the geometric imaginary line -->
+<!ENTITY integers "ℤ" ><!--the ring of integers -->
+<!ENTITY InvisibleComma "​" ><!--used as a separator, e.g., in indices -->
+<!ENTITY InvisibleTimes "⁢" ><!--marks multiplication when it is understood without a mark -->
+<!ENTITY it "⁢" ><!--short form of ⁢ -->
+<!ENTITY Laplacetrf "ℒ" ><!--Laplace transform -->
+<!ENTITY larrb "⇤" ><!--leftwards arrow to bar -->
+<!ENTITY LeftArrowBar "⇤" ><!--alias for larrb -->
+<!ENTITY LeftDownTeeVector "⥡" ><!--down-left harpoon from bar -->
+<!ENTITY LeftDownVectorBar "⥙" ><!--down-left harpoon to bar -->
+<!ENTITY LeftRightVector "⥎" ><!--left-up-right-up harpoon -->
+<!ENTITY LeftTeeArrow "↤" ><!--alias for mapstoleft -->
+<!ENTITY LeftTeeVector "⥚" ><!--left-up harpoon from bar -->
+<!ENTITY LeftTriangleBar "⧏" ><!--not left triangle, vertical bar -->
+<!ENTITY LeftUpDownVector "⥑" ><!--up-left-down-left harpoon -->
+<!ENTITY LeftUpTeeVector "⥠" ><!--up-left harpoon from bar -->
+<!ENTITY LeftUpVectorBar "⥘" ><!--up-left harpoon to bar -->
+<!ENTITY LeftVectorBar "⥒" ><!--left-up harpoon to bar -->
+<!ENTITY LessLess "⪡" ><!--alias for Lt -->
+<!ENTITY mapstodown "↧" ><!--downwards arrow from bar -->
+<!ENTITY mapstoleft "↤" ><!--leftwards arrow from bar -->
+<!ENTITY mapstoup "↥" ><!--upwards arrow from bar -->
+<!ENTITY Mellintrf "ℳ" ><!--Mellin transform -->
+<!ENTITY naturals "ℕ" ><!--the semi-ring of natural numbers -->
+<!ENTITY nbump "≎̸" ><!--not bumpy equals -->
+<!ENTITY nbumpe "≏̸" ><!--not bumpy single equals -->
+<!ENTITY NegativeMediumSpace " ⁣" ><!--space of width -4/18 em -->
+<!ENTITY NegativeThickSpace " ⁣" ><!--space of width -5/18 em -->
+<!ENTITY NegativeThinSpace " ⁣" ><!--space of width -3/18 em -->
+<!ENTITY NegativeVeryThinSpace " ⁣" ><!--space of width -1/18 em -->
+<!ENTITY nesim "≂̸" ><!--not equal or similar -->
+<!ENTITY NewLine "
" ><!--force a line break; line feed -->
+<!ENTITY NoBreak "" ><!--never break line here -->
+<!ENTITY NotCupCap "≭" ><!--alias for &nasymp; -->
+<!ENTITY NotEqualTilde "≂̸" ><!--alias for ≂̸ -->
+<!ENTITY NotHumpDownHump "≎̸" ><!--alias for ≎̸ -->
+<!ENTITY NotHumpEqual "≏̸" ><!--alias for ≏̸ -->
+<!ENTITY NotLeftTriangleBar "⧏̸" ><!--not left triangle, vertical bar -->
+<!ENTITY NotNestedGreaterGreater "⒢̸" ><!--not double greater-than sign -->
+<!ENTITY NotNestedLessLess "⒡̸" ><!--not double less-than sign -->
+<!ENTITY NotRightTriangleBar "⧐̸" ><!--not vertical bar, right triangle -->
+<!ENTITY NotSquareSubset "⊏̸" ><!--square not subset -->
+<!ENTITY NotSquareSuperset "⊐̸" ><!--negated set-like partial order operator -->
+<!ENTITY NotSucceedsTilde "≿̸" ><!--not succeeds or similar -->
+<!ENTITY OverBar "¯" ><!--over bar -->
+<!ENTITY OverBrace "︷" ><!--over brace -->
+<!ENTITY OverBracket "⎴" ><!--over bracket -->
+<!ENTITY OverParenthesis "︵" ><!--over parenthesis -->
+<!ENTITY planckh "ℎ" ><!--the ring (skew field) of quaternions -->
+<!ENTITY Poincareplane "ℌ" ><!--the Poincare upper half-plane -->
+<!ENTITY primes "ℙ" ><!--the prime natural numbers -->
+<!ENTITY Product "∏" ><!--alias for &prod -->
+<!ENTITY quaternions "ℍ" ><!--the ring (skew field) of quaternions -->
+<!ENTITY rarrb "⇥" ><!--leftwards arrow to bar -->
+<!ENTITY rationals "ℚ" ><!--the field of rational numbers -->
+<!ENTITY realine "ℛ" ><!--the geometric real line -->
+<!ENTITY reals "ℝ" ><!--the field of real numbers -->
+<!ENTITY RightArrowBar "⇥" ><!--alias for rarrb -->
+<!ENTITY RightDownTeeVector "⥝" ><!--down-right harpoon from bar -->
+<!ENTITY RightDownVectorBar "⥕" ><!--down-right harpoon to bar -->
+<!ENTITY RightTeeVector "⥛" ><!--right-up harpoon from bar -->
+<!ENTITY RightTriangleBar "⧐" ><!--vertical bar, right triangle -->
+<!ENTITY RightUpDownVector "⥏" ><!--up-right-down-right harpoon -->
+<!ENTITY RightUpTeeVector "⥜" ><!--up-right harpoon from bar -->
+<!ENTITY RightUpVectorBar "⥔" ><!--up-right harpoon to bar -->
+<!ENTITY RightVectorBar "⥓" ><!--up-right harpoon to bar -->
+<!ENTITY RoundImplies "⥰" ><!--round implies -->
+<!ENTITY RuleDelayed "⧴" ><!--rule-delayed (colon right arrow) -->
+<!ENTITY ShortDownArrow "⌄⁣" ><!--short down arrow -->
+<!ENTITY ShortUpArrow "⌃⁣" ><!--short up arrow -->
+<!ENTITY Tab "	" ><!--tabulator stop; horizontal tabulation -->
+<!ENTITY ThickSpace " " ><!--space of width 5/18 em -->
+<!ENTITY UnderBar "̲" ><!--combining low line -->
+<!ENTITY UnderBrace "︸" ><!--under brace -->
+<!ENTITY UnderBracket "⎵" ><!--under bracket -->
+<!ENTITY UpArrowBar "⤒" ><!--up arrow to bar -->
+<!ENTITY UpTeeArrow "↥" ><!--Alias mapstoup -->
+<!ENTITY VerticalLine "❘" ><!--short vertical line -->
+<!ENTITY VerticalSeparator "❘" ><!--vertical separating operator -->
+<!ENTITY zeetrf "ℨ" ><!--zee transform -->
+<!ENTITY ZeroWidthSpace "​" ><!--zero width space -->
--- /dev/null
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE SECTION SYSTEM "theoryobject.dtd">
+
+<SECTION>
+
+ <SECTION>
+ <Variable name="A" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+
+ <m:apply><m:csymbol>Type</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Variable>
+ <SECTION>
+ <Variable name="B" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+
+ <m:apply><m:csymbol>Type</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Variable>
+ <Axiom name="axiom" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A 0: B</Params><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:ci>B</m:ci>
+ </m:apply>
+
+ <m:ci>B</m:ci>
+ </m:apply>
+ </m:apply>
+
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Axiom>
+ <Definition name="th1" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A 0: B</Params><body>
+ <m:math><m:lambda><m:bvar><m:ci>A0</m:ci><m:type>
+ <m:ci>A</m:ci>
+ </m:type></m:bvar>
+ <m:lambda><m:bvar><m:ci>H</m:ci><m:type>
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:ci>B</m:ci>
+ </m:apply>
+ </m:type></m:bvar>
+ <m:apply><m:csymbol>app</m:csymbol>
+ <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind">conj</m:ci>
+ <m:ci>A</m:ci>
+ <m:ci>B</m:ci>
+ <m:ci>A0</m:ci>
+ <m:apply><m:csymbol>app</m:csymbol>
+ <m:ci definitionURL="cic:/prove/provastruct/a/b1/axiom.con">axiom</m:ci>
+ <m:ci>A0</m:ci>
+ <m:ci>H</m:ci>
+ </m:apply>
+ </m:apply>
+ </m:lambda>
+ </m:lambda></m:math>
+ </body><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:ci>B</m:ci>
+ </m:apply>
+
+ <m:apply><m:and definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind"/><m:ci>A</m:ci><m:ci>B</m:ci></m:apply>
+ </m:apply>
+ </m:apply>
+
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Definition>
+ </SECTION>
+ <SECTION>
+ <Variable name="B" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>Set</m:csymbol></m:apply>
+
+
+ <m:apply><m:csymbol>Type</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Variable>
+ <Axiom name="axiom'" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A</Params><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>prod</m:csymbol><m:bvar><m:ci>A</m:ci><m:type>
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+ </m:type></m:bvar>
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:ci>A</m:ci>
+ </m:apply>
+ </m:apply>
+
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Axiom>
+ </SECTION>
+ <Definition name="th1'" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>0: A</Params><body>
+ <m:math><m:lambda><m:bvar><m:ci>A0</m:ci><m:type>
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+ </m:type></m:bvar>
+ <m:lambda><m:bvar><m:ci>H</m:ci><m:type>
+ <m:ci>A0</m:ci>
+ </m:type></m:bvar>
+ <m:ci>H</m:ci>
+ </m:lambda>
+ </m:lambda></m:math>
+ </body><type>
+ <m:math><m:apply><m:csymbol>cast</m:csymbol>
+
+ <m:apply><m:csymbol>prod</m:csymbol><m:bvar><m:ci>A</m:ci><m:type>
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+ </m:type></m:bvar>
+ <m:apply><m:csymbol>arrow</m:csymbol>
+ <m:ci>A</m:ci>
+
+ <m:ci>A</m:ci>
+ </m:apply>
+ </m:apply>
+
+
+ <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
+
+ </m:apply></m:math>
+ </type></Definition>
+ </SECTION>
+</SECTION>
+
+<!-- This page was served in 4037 milliseconds by Cocoon 1.7.3 -->
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR THEORY OBJECTS AT LEVEL OF MATHML CONTENT: -->
+<!-- First draft: May 9 2000, Irene Schena -->
+<!--*****************************************************************-->
+
+<!ENTITY % cicobj SYSTEM "cicobject.dtd">
+
+%cicobj;
+
+<!-- THEORY section: -->
+
+<!ELEMENT SECTION (SECTION|Definition|Axiom|InductiveDefinition|Variable)*>
--- /dev/null
+<?xml version="1.0"?>
+<?cocoon-process type="xsp"?>
+<?cocoon-process type="xslt"?>
+
+<?xml-stylesheet href="setheader.xsl" type="text/xsl"?>
+<xsp:page language="java" xmlns:xsp="http://www.apache.org/1999/XSP/Core">
+ <hroot>
+ <xsp:logic>
+ String baseURL = request.getParameter("baseurl");
+ String styleURL1 = request.getParameter("stylesheet1");
+ String styleURL2 = request.getParameter("stylesheet2");
+ String xmlURI = request.getParameter("xmluri");
+ String annURI = request.getParameter("annuri");
+ </xsp:logic>
+ <url><xsp:expr>baseURL</xsp:expr></url>
+ <style1><xsp:expr>styleURL1</xsp:expr></style1>
+ <style2><xsp:expr>styleURL2</xsp:expr></style2>
+ <xml><xsp:expr>xmlURI</xsp:expr></xml>
+ <ann><xsp:expr>annURI</xsp:expr></ann>
+ </hroot>
+</xsp:page>
--- /dev/null
+http://phd.cs.unibo.it/helm/PARSER/examples/header/getheader.xml?baseurl=http://cartoonia.cs.unibo.it/helm/PARSER/examples/style/&stylesheet1=content.xsl&stylesheet2=mmlextension.xsl&xmlfile=file:///really_very_local/helm/PARSER/examples/prove/provaIota/bool_ind.con.xml
--- /dev/null
+http://cartoonia.cs.unibo.it/helm/PARSER/examples/header/getheader.xml?baseurl=http://cartoonia.cs.unibo.it/helm/PARSER/examples/style/&stylesheet1=content.xsl&stylesheet2=content_to_html.xsl&xmlfile=/really_very_local/helm/PARSER/examples/prove/prova/forest_rec.con.xml:wq
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC files to CIC files with the header for -->
+<!-- applying a stylesheet: -->
+<!-- First draft: March 10 2000 Irene Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!--SET THE HEADER AND OPEN THE XML FILE-->
+
+<xsl:template match="hroot">
+ <xsl:variable name="xmlURI"><xsl:value-of select="xml"/></xsl:variable>
+ <xsl:variable name="annURI"><xsl:value-of select="ann"/></xsl:variable>
+ <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
+ <xsl:processing-instruction name="xml-stylesheet">href="<xsl:value-of select="concat(url,style1)"/>" type="text/xsl"</xsl:processing-instruction>
+ <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
+<cicxml baseurl="{url}" stylesheet="{style2}" uri="{$xmlURI}">
+ <xsl:apply-templates select="document(concat(string($absPath),$xmlURI))" mode="copyxml"/>
+ <xsl:apply-templates select="document(concat(string($absPath),$annURI))" mode="copyxml"/>
+</cicxml>
+</xsl:template>
+
+<!-- COPY THE XML FILE -->
+
+<xsl:template match="/" mode="copyxml">
+ <xsl:copy-of select="*"/>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+#! /bin/sh
+
+# WARNING!!! No "//" in the middle of the path, nor a "/" at the end!!!!
+
+# For V6.2
+export HELM_CONFIGURATION_PREFIX=~/HELM/installation
+
+# For V7
+#export HELM_CONFIGURATION_PREFIX=/home/cadet/sacerdot
--- /dev/null
+#!/usr/bin/perl
+
+# First of all, let's load HELM configuration
+use Env;
+my $HELM_CONFIGURATION_PREFIX = $ENV{"HELM_CONFIGURATION_PREFIX"};
+my $HELM_CONFIGURATION_PATH =
+ $HELM_CONFIGURATION_PREFIX."/local/lib/helm/configuration.pl";
+# next require defines: $helm_dir, $html_link
+require $HELM_CONFIGURATION_PATH;
+
+
+
+use HTTP::Daemon;
+use HTTP::Status;
+use HTTP::Request;
+use LWP::UserAgent;
+use DB_File;
+
+my $cont = "";
+my $d = new HTTP::Daemon LocalPort => 8081;
+tie(%map, 'DB_File', $uris_dbm.".db", O_RDONLY, 0664);
+print "Please contact me at: <URL:", $d->url, ">\n";
+print "helm_dir: $helm_dir\n";
+print "urls_of_uris.db: $uris_dbm.db\n";
+$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
+while (my $c = $d->accept) {
+ if (fork() == 0) {
+ while (my $r = $c->get_request) {
+ #CSC: mancano i controlli di sicurezza
+
+ $cont = "";
+ my $cicuri = $r->url;
+ $cicuri =~ s/^[^?]*\?url=(.*)/$1/;
+ print "*".$r->url."\n";
+ my $http_method = $r->method;
+ my $http_path = $r->url->path;
+ if ($http_method eq 'GET' and $http_path eq "/get") {
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ $filename = $helm_dir.$filename.".xml";
+ my $resolved = $map{$cicuri};
+ print "$cicuri ==> $resolved ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "Downloading\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file\n";
+ mkdirs($filename);
+ open(FD, ">".$filename);
+ print FD $cont;
+ close(FD);
+
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/annotate") {
+ my $do_annotate = ($cicuri =~ /\.ann$/);
+ my $target_to_annotate = $cicuri;
+ $target_to_annotate =~ s/(.*)\.ann$/$1/ if $do_annotate;
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ $filename_target =~ s/(.*)\.ann$/$1.xml/ if $do_annotate;
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } else {
+ print "$cicuri ==> $resolved ($filename)\n";
+ }
+
+ # Retrieves the annotation
+
+ if (stat($filename)) {
+ print "Using local copy for the annotation\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the annotation\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the annotation\n";
+ mkdirs($filename);
+ open(FD, ">".$filename);
+ print FD $cont;
+ close(FD);
+ }
+ my $annotation = $cont;
+
+ # Retrieves the target to annotate
+
+ $cont = "";
+ if ($do_annotate) {
+ if (stat($filename_target)) {
+ print "Using local copy for the file to annotate\n";
+ open(FD, $filename_target);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the file to annotate\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved_target");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the file to annotate\n";
+ mkdirs($filename_target);
+ open(FD, ">".$filename_target);
+ print FD $cont;
+ close(FD);
+ }
+ }
+ my $target = $cont;
+
+ # Merging the annotation and the target
+
+ $target =~ s/<\?xml [^?]*\?>//sg;
+ $target =~ s/<!DOCTYPE [^>]*>//sg;
+ $annotation =~ s/<\?xml [^?]*\?>//sg;
+ $annotation =~ s/<!DOCTYPE [^>]*>//sg;
+ my $merged = <<EOT;
+<?xml version="1.0" encoding="UTF-8"?>
+<cicxml uri="$target_to_annotate">
+$target
+$annotation
+</cicxml>
+EOT
+
+ # Answering the client
+
+ my $res = new HTTP::Response;
+ $res->content($merged);
+ $c->send_response($res);
+ } elsif ($http_method eq 'GET' and $http_path eq "/getwithtypes") {
+ my $mode;
+ my $do_annotate;
+ if ($cicuri =~ /\.types$/) {
+ $do_annotate = 1;
+ $mode = "types";
+ } elsif ($cicuri =~ /\.ann$/) {
+ $do_annotate = 1;
+ $mode = "ann";
+ } else {
+ $do_annotate = 0;
+ }
+ my $target_to_annotate = $cicuri;
+ if ($mode eq "types") {
+ $target_to_annotate =~ s/(.*)\.types$/$1/;
+ } elsif ($mode eq "ann") {
+ $target_to_annotate =~ s/(.*)\.ann$/$1/;
+ }
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ if ($mode eq "types") {
+ $filename_target =~ s/(.*)\.types$/$1.xml/;
+ } elsif ($mode eq "ann") {
+ $filename_target =~ s/(.*)\.ann$/$1.xml/;
+ }
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "GETWITHTYPES!!\n" if ($mode eq "types");
+ print "GETWITHANN!!\n" if ($mode eq "ann");
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } else {
+ print "$cicuri ==> $resolved ($filename)\n";
+ }
+
+ # Retrieves the annotation
+
+ if (stat($filename)) {
+ print "Using local copy for the types\n" if ($mode eq "types");
+ print "Using local copy for the ann\n" if ($mode eq "ann");
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the types\n" if ($mode eq "types");
+ print "Downloading the ann\n" if ($mode eq "ann");
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the types\n" if ($mode eq "types");
+ print "Storing file for the ann\n" if ($mode eq "ann");
+ mkdirs($filename);
+ open(FD, ">".$filename);
+ print FD $cont;
+ close(FD);
+ }
+ my $annotation = $cont;
+
+ # Retrieves the target to annotate
+
+ $cont = "";
+ my $target;
+ if ($do_annotate) {
+ if (stat($filename_target)) {
+ print "Using local copy for the file to type\n";
+ open(FD, $filename_target);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the file to type\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved_target");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the file to type\n";
+ mkdirs($filename_target);
+ open(FD, ">".$filename_target);
+ print FD $cont;
+ close(FD);
+ }
+ $target = $cont;
+ } else {
+ $target = $annotation;
+ $annotation = "";
+ }
+
+ # Merging the annotation and the target
+
+ $target =~ s/<\?xml [^?]*\?>//sg;
+ $target =~ s/<!DOCTYPE [^>]*>//sg;
+ $annotation =~ s/<\?xml [^?]*\?>//sg;
+ $annotation =~ s/<!DOCTYPE [^>]*>//sg;
+ my $element, $endelement;
+ if ($mode eq "types") {
+ $element = "<ALLTYPES>";
+ $endelement = "</ALLTYPES>";
+ } elsif ($mode eq "ann") {
+ $element = "";
+ $endelement = "";
+ }
+ my $merged = <<EOT;
+<?xml version="1.0" encoding="UTF-8"?>
+<cicxml uri="$target_to_annotate">
+$target
+$element
+$annotation
+$endelement
+</cicxml>
+EOT
+
+ # Answering the client
+
+ my $res = new HTTP::Response;
+ $res->content($merged);
+ $c->send_response($res);
+ } elsif ($http_method eq 'GET' and $http_path eq "/getdtd") {
+ my $filename = $cicuri;
+ $filename = $helm_dir."/dtd/".$filename;
+ print "DTD: $cicuri ==> ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ die "Could not find DTD!";
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/conf") {
+ my $quoted_html_link = $html_link;
+ $quoted_html_link =~ s/&/&/g;
+ $quoted_html_link =~ s/</</g;
+ $quoted_html_link =~ s/>/>/g;
+ $quoted_html_link =~ s/'/'/g;
+ $quoted_html_link =~ s/"/"/g;
+ print "Configuration requested, returned #$quoted_html_link#\n";
+ $cont = "<?xml version=\"1.0\"?><html_link>$quoted_html_link</html_link>";
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "INVALID REQUEST!!!!!\n";
+ $c->send_error(RC_FORBIDDEN)
+ }
+ }
+ $c->close;
+ undef($c);
+ print "\nCONNECTION CLOSED\n\n";
+ exit;
+ } # fork
+}
+
+#================================
+
+sub callback
+{
+ my ($data) = @_;
+ $cont .= $data;
+}
+
+# Does not raise errors if could not create dirs/files
+
+# Too much powerful: creates even /home, /home/users/, ...
+sub mkdirs
+{
+ my ($pathname) = @_;
+ my @dirs = split /\//,$pathname;
+ my $tmp;
+ foreach $dir (@dirs) {
+ $tmp = ((defined($tmp)) ? $tmp = $tmp."\/".$dir : "");
+ mkdir($tmp,0777);
+ }
+ rmdir($tmp);
+}
--- /dev/null
+experiment.cmo: cicCache.cmi cicPp.cmi configuration.cmo getter.cmi \
+ uriManager.cmi
+experiment.cmx: cicCache.cmx cicPp.cmx configuration.cmx getter.cmx \
+ uriManager.cmx
+cicCache.cmo: annotationParser.cmo cic.cmo cicParser.cmi cicSubstitution.cmi \
+ deannotate.cmo getter.cmi uriManager.cmi cicCache.cmi
+cicCache.cmx: annotationParser.cmx cic.cmx cicParser.cmx cicSubstitution.cmx \
+ deannotate.cmx getter.cmx uriManager.cmx cicCache.cmi
+cicCache.cmi: cic.cmo uriManager.cmi
+cicPp.cmo: cic.cmo cicCache.cmi uriManager.cmi cicPp.cmi
+cicPp.cmx: cic.cmx cicCache.cmx uriManager.cmx cicPp.cmi
+cicPp.cmi: cic.cmo
+cicParser.cmo: cicParser2.cmi cicParser3.cmi pxpUriResolver.cmo \
+ uriManager.cmi cicParser.cmi
+cicParser.cmx: cicParser2.cmx cicParser3.cmx pxpUriResolver.cmx \
+ uriManager.cmx cicParser.cmi
+cicParser.cmi: cic.cmo uriManager.cmi
+cicParser2.cmo: cic.cmo cicParser3.cmi uriManager.cmi cicParser2.cmi
+cicParser2.cmx: cic.cmx cicParser3.cmx uriManager.cmx cicParser2.cmi
+cicParser2.cmi: cic.cmo cicParser3.cmi
+cicParser3.cmo: cic.cmo uriManager.cmi cicParser3.cmi
+cicParser3.cmx: cic.cmx uriManager.cmx cicParser3.cmi
+cicParser3.cmi: cic.cmo uriManager.cmi
+cic.cmo: uriManager.cmi
+cic.cmx: uriManager.cmx
+getter.cmo: configuration.cmo uriManager.cmi getter.cmi
+getter.cmx: configuration.cmx uriManager.cmx getter.cmi
+getter.cmi: uriManager.cmi
+cicReduction.cmo: cic.cmo cicCache.cmi cicPp.cmi cicSubstitution.cmi \
+ uriManager.cmi cicReduction.cmi
+cicReduction.cmx: cic.cmx cicCache.cmx cicPp.cmx cicSubstitution.cmx \
+ uriManager.cmx cicReduction.cmi
+cicReduction.cmi: cic.cmo
+cicTypeChecker.cmo: cic.cmo cicCache.cmi cicPp.cmi cicReduction.cmi \
+ cicSubstitution.cmi uriManager.cmi cicTypeChecker.cmi
+cicTypeChecker.cmx: cic.cmx cicCache.cmx cicPp.cmx cicReduction.cmx \
+ cicSubstitution.cmx uriManager.cmx cicTypeChecker.cmi
+cicTypeChecker.cmi: uriManager.cmi
+reduction.cmo: cic.cmo cicCache.cmi cicPp.cmi cicReduction.cmi \
+ cicTypeChecker.cmi configuration.cmo getter.cmi uriManager.cmi
+reduction.cmx: cic.cmx cicCache.cmx cicPp.cmx cicReduction.cmx \
+ cicTypeChecker.cmx configuration.cmx getter.cmx uriManager.cmx
+theoryParser.cmo: pxpUriResolver.cmo theoryParser2.cmo
+theoryParser.cmx: pxpUriResolver.cmx theoryParser2.cmx
+theoryParser2.cmo: theory.cmo
+theoryParser2.cmx: theory.cmx
+theoryTypeChecker.cmo: cicCache.cmi cicTypeChecker.cmi theory.cmo \
+ theoryCache.cmo uriManager.cmi
+theoryTypeChecker.cmx: cicCache.cmx cicTypeChecker.cmx theory.cmx \
+ theoryCache.cmx uriManager.cmx
+cicCooking.cmo: cic.cmo cicCache.cmi uriManager.cmi cicCooking.cmi
+cicCooking.cmx: cic.cmx cicCache.cmx uriManager.cmx cicCooking.cmi
+cicCooking.cmi: cic.cmo uriManager.cmi
+cicFindParameters.cmo: cic.cmo cic2Xml.cmo cicCache.cmi configuration.cmo \
+ uriManager.cmi xml.cmi
+cicFindParameters.cmx: cic.cmx cic2Xml.cmx cicCache.cmx configuration.cmx \
+ uriManager.cmx xml.cmx
+theoryCache.cmo: getter.cmi theoryParser.cmo
+theoryCache.cmx: getter.cmx theoryParser.cmx
+fix_params.cmo: cicFindParameters.cmo configuration.cmo deannotate.cmo \
+ getter.cmi uriManager.cmi
+fix_params.cmx: cicFindParameters.cmx configuration.cmx deannotate.cmx \
+ getter.cmx uriManager.cmx
+cic2Xml.cmo: cic.cmo uriManager.cmi xml.cmi
+cic2Xml.cmx: cic.cmx uriManager.cmx xml.cmx
+xml.cmo: xml.cmi
+xml.cmx: xml.cmi
+uriManager.cmo: uriManager.cmi
+uriManager.cmx: uriManager.cmi
+cicSubstitution.cmo: cic.cmo cicSubstitution.cmi
+cicSubstitution.cmx: cic.cmx cicSubstitution.cmi
+cicSubstitution.cmi: cic.cmo uriManager.cmi
+mmlinterface.cmo: annotation2Xml.cmo cicAnnotationHinter.cmo cicCache.cmi \
+ cicTypeChecker.cmi cicXPath.cmo configuration.cmo getter.cmi \
+ theoryTypeChecker.cmo uriManager.cmi xml.cmi xsltProcessor.cmo
+mmlinterface.cmx: annotation2Xml.cmx cicAnnotationHinter.cmx cicCache.cmx \
+ cicTypeChecker.cmx cicXPath.cmx configuration.cmx getter.cmx \
+ theoryTypeChecker.cmx uriManager.cmx xml.cmx xsltProcessor.cmx
+xsltProcessor.cmo: configuration.cmo uriManager.cmi
+xsltProcessor.cmx: configuration.cmx uriManager.cmx
+deannotate.cmo: cic.cmo
+deannotate.cmx: cic.cmx
+cicXPath.cmo: cic.cmo
+cicXPath.cmx: cic.cmx
+annotationParser.cmo: annotationParser2.cmo pxpUriResolver.cmo
+annotationParser.cmx: annotationParser2.cmx pxpUriResolver.cmx
+annotationParser2.cmo: cic.cmo
+annotationParser2.cmx: cic.cmx
+annotation2Xml.cmo: cic.cmo uriManager.cmi xml.cmi
+annotation2Xml.cmx: cic.cmx uriManager.cmx xml.cmx
+cicAnnotationHinter.cmo: cic.cmo
+cicAnnotationHinter.cmx: cic.cmx
--- /dev/null
+==============================
+ISTRUZIONI PER CHI USA LA TCSH
+==============================
+
+Lanciare:
+
+ source PER_FARLO_ANDARE_TCSH
+
+Poi far partire altri due xterm.
+Nel primo lanciare:
+
+ make start-xaland3
+
+Nel secondo lanciare:
+
+ make start-http-getter
+
+Se non funziona significa che ce ne e' gia' uno attivo.
+
+Infini lanciare, dall'ultima shell,
+
+ ./mmlinterface.opt.saved
--- /dev/null
+LABLGTK_DIR = /usr/lib/ocaml/lablgtk
+LABLGTK_MATHVIEW_DIR = /usr/lib/ocaml/lablgtk/mathview
+PXP_DIR = /usr/lib/ocaml/site-lib/pxp
+NETSTRING_DIR = /usr/lib/ocaml/site-lib/netstring
+OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I $(PXP_DIR) -I $(NETSTRING_DIR) -I mlmathview
+OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I mlgtk_devel -I $(PXP_DIR) -I $(NETSTRING_DIR) -I mlmathview
+OCAMLDEP = ocamldep
+
+all: experiment reduction fix_params mmlinterface
+opt: experiment.opt reduction.opt fix_params.opt mmlinterface.opt
+
+PXPLIBS = netstring.cma netmappings_iso.cmo netmappings_other.cmo \
+ pxp_types.cma \
+ pxp_lex_iso88591.cma pxp_lex_utf8.cma pxp_engine.cma \
+ pxp_utf8.cmo
+
+PXPLIBSOPT = netstring.cmxa netmappings_iso.cmx netmappings_other.cmx \
+ pxp_types.cmxa \
+ pxp_lex_iso88591.cmxa pxp_lex_utf8.cmxa pxp_engine.cmxa \
+ pxp_utf8.cmx
+
+
+DEPOBJS = experiment.ml cicCache.ml cicCache.mli cicPp.ml cicPp.mli \
+ cicParser.ml cicParser.mli cicParser2.ml cicParser2.mli \
+ cicParser3.ml cicParser3.mli cic.ml getter.ml getter.mli \
+ gtkInterface.ml cicReduction.ml cicReduction.mli cicTypeChecker.ml \
+ cicTypeChecker.mli reduction.ml tgtkInterface.ml theory.ml \
+ theoryParser.ml theoryParser2.ml theoryPp.ml theoryTypeChecker.ml \
+ cicCooking.ml cicCooking.mli cicFindParameters.ml theoryCache.ml \
+ fix_params.ml cic2Xml.ml xml.ml uriManager.ml uriManager.mli \
+ cicSubstitution.ml cicSubstitution.mli mml.ml \
+ mmlinterface.ml configuration.ml \
+ xsltProcessor.ml deannotate.ml cicXPath.ml pxpUriResolver.ml \
+ annotationParser.ml annotationParser2.ml annotation2Xml.ml \
+ cicAnnotationHinter.ml
+
+MMLINTERFACEOBJS = configuration.cmo uriManager.cmo getter.cmo cic.cmo \
+ pxpUriResolver.cmo \
+ cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
+ cicSubstitution.cmo annotationParser2.cmo \
+ annotationParser.cmo cicCache.cmo cicCooking.cmo cicPp.cmo \
+ cicReduction.cmo cicTypeChecker.cmo mml.cmo \
+ xml.cmo \
+ xsltProcessor.cmo cic2Xml.cmo annotation2Xml.cmo \
+ cicXPath.cmo theory.cmo theoryParser2.cmo theoryParser.cmo \
+ theoryCache.cmo theoryTypeChecker.cmo \
+ cicAnnotationHinter.cmo mmlinterface.cmo
+
+MMLINTERFACEOPTOBJS = configuration.cmx uriManager.cmx getter.cmx cic.cmx \
+ pxpUriResolver.cmx \
+ cicParser3.cmx cicParser2.cmx cicParser.cmx \
+ deannotate.cmx cicSubstitution.cmx annotationParser2.cmx \
+ annotationParser.cmx cicCache.cmx \
+ cicCooking.cmx cicPp.cmx cicReduction.cmx \
+ cicTypeChecker.cmx mml.cmx \
+ xml.cmx xsltProcessor.cmx \
+ cic2Xml.cmx annotation2Xml.cmx cicXPath.cmx \
+ theory.cmx theoryParser2.cmx theoryParser.cmx \
+ theoryCache.cmx theoryTypeChecker.cmx \
+ cicAnnotationHinter.cmx mmlinterface.cmx
+
+FIX_PARAMSOBJS = configuration.cmo uriManager.cmo getter.cmo cic.cmo \
+ pxpUriResolver.cmo \
+ cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
+ cicSubstitution.cmo annotationParser2.cmo \
+ annotationParser.cmo cicCache.cmo cicPp.cmo xml.cmo \
+ cic2Xml.cmo cicFindParameters.cmo fix_params.cmo
+
+FIX_PARAMSOPTOBJS = configuration.cmx uriManager.cmx getter.cmx cic.cmx \
+ pxpUriResolver.cmx \
+ cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
+ cicSubstitution.cmx annotationParser2.cmx \
+ annotationParser.cmx cicCache.cmx cicPp.cmx xml.cmx \
+ cic2Xml.cmx cicFindParameters.cmx fix_params.cmx
+
+REDUCTIONOBJS = configuration.cmo uriManager.cmo getter.cmo cic.cmo \
+ pxpUriResolver.cmo \
+ cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
+ cicSubstitution.cmo annotationParser2.cmo annotationParser.cmo \
+ cicCache.cmo cicPp.cmo cicCooking.cmo \
+ cicReduction.cmo cicTypeChecker.cmo reduction.cmo
+
+REDUCTIONOPTOBJS = configuration.cmx uriManager.cmx getter.cmx cic.cmx \
+ pxpUriResolver.cmx \
+ cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
+ cicSubstitution.cmx annotationParser2.cmx \
+ annotationParser.cmx cicCache.cmx cicPp.cmx cicCooking.cmx \
+ cicReduction.cmx cicTypeChecker.cmx reduction.cmx
+
+EXPERIMENTOBJS = configuration.cmo uriManager.cmo getter.cmo cic.cmo \
+ pxpUriResolver.cmo \
+ cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
+ cicSubstitution.cmo annotationParser2.cmo \
+ annotationParser.cmo cicCache.cmo cicPp.cmo experiment.cmo
+
+EXPERIMENTOPTOBJS = configuration.cmx uriManager.cmx getter.cmx cic.cmx \
+ pxpUriResolver.cmx \
+ cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
+ cicSubstitution.cmx annotationParser2.cmx \
+ annotationParser.cmx cicCache.cmx cicPp.cmx experiment.cmx
+
+depend:
+ $(OCAMLDEP) $(DEPOBJS) > .depend
+
+mmlinterface: $(MMLINTERFACEOBJS)
+ $(OCAMLC) -custom -o mmlinterface str.cma unix.cma $(PXPLIBS) dbm.cma \
+ lablgtk.cma gtkInit.cmo \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
+ $(MMLINTERFACEOBJS) \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -lunix -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o" \
+ -cclib -lmldbm -cclib -lndbm
+
+mmlinterface.opt: $(MMLINTERFACEOPTOBJS)
+ $(OCAMLOPT) -o mmlinterface.opt str.cmxa $(PXPLIBSOPT) unix.cmxa \
+ dbm.cmxa lablgtk.cmxa gtkInit.cmx \
+ $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
+ $(MMLINTERFACEOPTOBJS) \
+ -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
+ -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
+ -lunix -L/usr/local/lib/gtkmathview -lgtkmathview \
+ $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o" \
+ -cclib -lmldbm -cclib -lndbm
+
+fix_params: $(FIX_PARAMSOBJS)
+ $(OCAMLC) -custom -o fix_params str.cma $(PXPLIBS) dbm.cma \
+ $(FIX_PARAMSOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
+
+fix_params.opt: $(FIX_PARAMSOPTOBJS)
+ $(OCAMLOPT) -o fix_params.opt str.cmxa $(PXPLIBSOPT) dbm.cmxa \
+ $(FIX_PARAMSOPTOBJS) -cclib -lstr -cclib -lmldbm \
+ -cclib -lndbm
+
+reduction: $(REDUCTIONOBJS)
+ $(OCAMLC) -custom -o reduction str.cma $(PXPLIBS) dbm.cma \
+ $(REDUCTIONOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
+
+reduction.opt: $(REDUCTIONOPTOBJS)
+ $(OCAMLOPT) -o reduction.opt str.cmxa $(PXPLIBSOPT) dbm.cmxa \
+ $(REDUCTIONOPTOBJS) -cclib -lstr -cclib -lmldbm \
+ -cclib -lndbm
+
+experiment: $(EXPERIMENTOBJS)
+ $(OCAMLC) -custom -o experiment str.cma $(PXPLIBS) dbm.cma \
+ $(EXPERIMENTOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
+
+experiment.opt: $(EXPERIMENTOPTOBJS)
+ $(OCAMLOPT) -o experiment.opt str.cmxa $(PXPLIBSOPT) dbm.cmxa \
+ $(EXPERIMENTOPTOBJS) -cclib -lstr -cclib -lmldbm \
+ -cclib -lndbm
+
+.SUFFIXES: .ml .mli .cmo .cmi .cmx
+.ml.cmo:
+ $(OCAMLC) -c $<
+.mli.cmi:
+ $(OCAMLC) -c $<
+.ml.cmx:
+ $(OCAMLOPT) -c $<
+
+clean:
+ rm -f *.cm[iox] *.o experiment experiment.opt reduction \
+ reduction.opt fix_params fix_params.opt mmlinterface \
+ mmlinterface.opt mmlinterface2 mmlinterface2.opt
+
+start-xaland:
+ java xaland 12345 12346 examples/style/rootcontent.xsl \
+ examples/style/annotatedpres.xsl examples/style/theory_content.xsl \
+ examples/style/theory_pres.xsl
+
+start-xaland3:
+ java xaland 12347 12348 examples/style/rootcontent.xsl \
+ examples/style/annotatedpres.xsl examples/style/theory_content.xsl \
+ examples/style/theory_pres.xsl
+
+start-http-getter:
+ http_getter/http_getter.pl
+
+include .depend
--- /dev/null
+
+ ***********************************************************************
+
+ A T T E N Z I O N E ! ! !
+
+ Quando si usa fix_params.opt, scrivere
+
+ find /really_very_local/helm/PARSER/examples
+
+ invece di examples
+
+ ***********************************************************************
+
+ PROBLEMA NON FIXATO CON fix_params
+
+ LA SOLUZIONE E'
+
+
+
+Correggere:
+
+ examples/coq/SETS/Powerset_facts/Sets_as_an_algebra/setcover_intro.con.xml
+
+aggiungendo paramMode="POSSIBLE"
+
+Un esempio che altrimenti non funziona e':
+
+examples/coq/SETS/Powerset_Classical_facts/Sets_as_an_algebra/Add_covers.con.xml
+
--- /dev/null
+export LD_LIBRARY_PATH=.:/really_very_local/helm/proveluca/mml-browser/
+export no_proxy=cs.unibo.it
--- /dev/null
+setenv PATH "/home/projects/java/jdk1.2.2/bin:$PATH"
+setenv CLASSPATH "/really_very_local/helm/java/xalan_1_1/xalan.jar:/really_very_local/helm/java/xalan_1_1/xerces.jar:."
+setenv CLASSPATH "/really_very_local/helm/java/saxon-5.3.2/saxon.jar:$CLASSPATH"
+setenv LD_LIBRARY_PATH ".:/really_very_local/helm/proveluca/mml-browser/"
--- /dev/null
+setenv PATH "/home/projects/java/jdk1.2.2/bin:$PATH"
+setenv CLASSPATH "/really_very_local/helm/java/xalan_1_2_D01/xalan.jar:/really_very_local/helm/java/xalan_1_2_D01/xerces.jar:."
+setenv CLASSPATH "/really_very_local/helm/java/saxon-5.3.2/saxon.jar:$CLASSPATH"
+setenv LD_LIBRARY_PATH ".:/really_very_local/helm/proveluca/mml-browser/"
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* A tactic to print Coq objects in XML *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 22/11/1999 *)
+(******************************************************************************)
+
+This is the main directory of the coq-like pretty printer for cic terms exported
+in xml from Coq. Once compiled four different executables are made:
+
+ experiment a command-line pretty-printer (interpreted)
+ experiment.opt same as experiment (compiled)
+ gtkInterface a gtk-based pretty-printer (interpreted)
+ gtkInterface.opt a gtk-based pretty-printer (compiled)
+
+To use one of the previous pretty-printer the syntax is
+
+ pretty_printer_name file1 ... filen
+
+where filei is an xml cic object
+
+Code files:
+
+ cic.ml the internal definition of cic objects and terms
+ getter.ml converts uris to filenames retrieving the correspondent file
+ cache.ml a cache for cic objects (actually a simple hash-table)
+ cicParser.ml a parser from xml to internal definition: top level
+ cicParser2.ml a parser from xml to internal definition: objects level
+ cicParser3.ml a parser from xml to internal definition: terms level
+ cicPp.ml a pretty-printer for the internal definition of cic objects
+ experiment.ml a textual interface to cicPp
+ gtkInterface.ml a gtk interface to cicPp
+
+Interface files:
+ cache.mli getter.mli cicPp.mli cicParser.mli cicParser2.mli cicParser3.mli
+
+Other files:
+
+ Makefile the targets are "all" "opt" "depend" "clean"
+ .depend dependencies file used by make
+ examples symbolic link to the root of the exported library
--- /dev/null
+prima di UriManager.ml:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m50.266s
+ user 0m44.160s
+ sys 0m0.700s
+
+dopo UriManager.ml, ma prima di passare da = a ==:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m51.388s
+ user 0m45.430s
+ sys 0m0.530s
+
+dopo UriManager.ml e popo il passaggio (parziale?) da = a ==:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m50.767s
+ user 0m44.750s
+ sys 0m0.510s
+
+dopo il passaggio alla cache che usa ancora =:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m50.646s
+ user 0m44.680s
+ sys 0m0.530s
+
+dopo il passaggio alla cache con utilizzo di ==:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m50.861s
+ user 0m45.030s
+ sys 0m0.500s
+
+con funzione di hashing costante ;-(
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m51.442s
+ user 0m45.440s
+ sys 0m0.530s
+
+con implementazione isomorfa all'albero delle uri:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m54.081s
+ user 0m47.590s
+ sys 0m0.780s
+
+con implementazione con doppio RB-albero:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m52.504s
+ user 0m46.120s
+ sys 0m0.720s
+
+con implementazione semplice, gestite anche le uri delle var:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m51.850s
+ user 0m46.060s
+ sys 0m0.530s
+
+con implementazione con doppio RB-albero, gestite anche le uri delle var:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m51.495s
+ user 0m45.660s
+ sys 0m0.540s
+
+=========================================================
+
+con implementazione con doppio RB-albero, gestite anche le uri delle var
+e spostata nell'uri-manager is_prefix:
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m50.465s
+ user 0m45.710s
+ sys 0m0.590s
+
+con implementazione semplice (e tutto il resto):
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m49.710s
+ user 0m43.850s
+ sys 0m0.500s
+
+con implementazione banale (e tutto il resto):
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m49.289s
+ user 0m44.840s
+ sys 0m0.570s
+
+con implementazione banale SOLO PARSING ;-)
+
+ [ABCI]* (terza passata, uguale alla seconda):
+
+ real 0m48.395s
+ user 0m42.830s
+ sys 0m0.850s
+
+=========================================================
+
+con implementazione con doppio RB-albero, gestite anche le uri delle var
+e spostata nell'uri-manager is_prefix:
+
+ REAL (prima passata, dopo un sync):
+
+ real 10m58.033s
+ user 10m37.690s
+ sys 0m2.570s
+
+con implementazione semplice (e tutto il resto):
+
+ REAL (prima passata, dopo un sync):
+
+ real 10m31.035s
+ user 10m9.350s
+ sys 0m3.230s
+
+con implementazione banale (e tutto il resto):
+
+ REAL (prima passata, dopo un sync):
+
+ real 11m4.026s
+ user 10m43.930s
+ sys 0m3.070s
+
+=================================================
+
+con implementazione banale, SOLO PARSING di tutto:
+
+ real 6m54.336s
+ user 6m13.850s
+ sys 0m6.580s
+
+con implementazione banale, anche typechecking di tutto:
+
+ real 20m17.739s
+ user 19m14.740s
+ sys 0m8.550s
+
+con implementazione semplice, anche typechecking di tutto:
+
+ real 19m36.079s
+ user 18m36.480s
+ sys 0m7.760s
+
+con implementazione con doppio RB-albero, anche typechecking di tutto:
+
+ real 17m30.423s
+ user 16m30.840s
+ sys 0m6.170s
+
+***************************************************************************
+ APPLICATA EURISTICA
+***************************************************************************
+
+con implementazione con doppio RB-albero, anche typechecking di tutto
+(universita') ????????:
+
+real 5m37.805s
+user 5m1.640s
+sys 0m5.010s
+
+tutto (ma a casa):
+
+real 7m36.663s
+user 6m52.220s
+sys 0m5.860s
+
+
+solo REAL:
+
+real 2m52.860s
+user 2m41.050s
+sys 0m2.820s
+
+==========================================================================
+
+tutto (ma a casa) dopo eliminazione buri:
+
+real 7m52.773s
+user 6m52.110s
+sys 0m7.130s
+
+"solo parsing" di tutto dopo eliminazione buri:
+
+real 7m8.379s
+user 6m15.250s
+sys 0m6.700s
+
+===========================================================================
+
+TUTTO ALL'UNIVERSITA' CON EURISTICA MA SENZA UNIVERSI:
+
+real 5m47.920s
+user 5m14.600s
+sys 0m5.010s
+
--- /dev/null
+-P directory di destinazione
+-q no output (quiet mode)
+-c continue retrieving (no uri.1, uri.2, ...)
--- /dev/null
+(*CSC codice cut & paste da cicPp e xmlcommand *)
+
+exception ImpossiblePossible;;
+exception NotImplemented;;
+exception BinderNotSpecified;;
+
+let dtdname = "http://localhost:8081/getdtd?url=annotations.dtd";;
+
+(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
+let print_term =
+ let rec aux =
+ let module C = Cic in
+ let module X = Xml in
+ let module U = UriManager in
+ function
+ C.ARel (id,ann,_,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AVar (id,ann,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AMeta (id,ann,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.ASort (id,ann,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AImplicit _ -> raise NotImplemented
+ | C.AProd (id,ann,_,s,t) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ aux s ;
+ aux t
+ >]
+ | C.ACast (id,ann,v,t) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ aux v ;
+ aux t
+ >]
+ | C.ALambda (id,ann,_,s,t) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ aux s ;
+ aux t
+ >]
+ | C.AAppl (id,ann,li) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>]
+ >]
+ | C.AConst (id,ann,_,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AAbst (id,ann,_) -> raise NotImplemented
+ | C.AMutInd (id,ann,_,_,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AMutConstruct (id,ann,_,_,_,_) ->
+ (match !ann with
+ None -> [<>]
+ | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ )
+ | C.AMutCase (id,ann,_,_,_,ty,te,patterns) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ aux ty ;
+ aux te ;
+ List.fold_right
+ (fun x i -> [< aux x ; i>])
+ patterns [<>]
+ >]
+ | C.AFix (id, ann, _, funs) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ List.fold_right
+ (fun (_,_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
+ >]
+ | C.ACoFix (id, ann,no,funs) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
+ ) ;
+ List.fold_right
+ (fun (_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
+ >]
+ in
+ aux
+;;
+
+let print_mutual_inductive_type (_,_,arity,constructors) =
+ [< print_term arity ;
+ List.fold_right
+ (fun (name,ty,_) i -> [< print_term ty ; i >]) constructors [<>]
+ >]
+;;
+
+let target_uri_of_annotation_uri uri =
+ Str.replace_first (Str.regexp "\.ann$") "" (UriManager.string_of_uri uri)
+;;
+
+let pp_annotation obj curi =
+ let module C = Cic in
+ let module X = Xml in
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE Annotations SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
+ X.xml_nempty "Annotations" ["of", target_uri_of_annotation_uri curi]
+ begin
+ match obj with
+ C.ADefinition (xid, ann, _, te, ty, _) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
+ ) ;
+ print_term te ;
+ print_term ty
+ >]
+ | C.AAxiom (xid, ann, _, ty, _) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
+ ) ;
+ print_term ty
+ >]
+ | C.AVariable (xid, ann, _, ty) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
+ ) ;
+ print_term ty
+ >]
+ | C.ACurrentProof (xid, ann, _, conjs, bo, ty) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
+ ) ;
+ List.fold_right
+ (fun (_,t) i -> [< print_term t ; i >])
+ conjs [<>] ;
+ print_term bo ;
+ print_term ty
+ >]
+ | C.AInductiveDefinition (xid, ann, tys, params, paramsno) ->
+ [< (match !ann with
+ None -> [<>]
+ | Some ann ->
+ X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
+ ) ;
+ List.fold_right
+ (fun x i -> [< print_mutual_inductive_type x ; i >])
+ tys [< >]
+ >]
+ end
+ >]
+;;
--- /dev/null
+exception Warnings;;
+
+class warner =
+ object
+ method warn w =
+ print_endline ("WARNING: " ^ w) ;
+ (raise Warnings : unit)
+ end
+;;
+
+exception EmptyUri;;
+
+let annotate filename ids_to_targets =
+ let module Y = Pxp_yacc in
+ try
+ let d =
+ let config = {Y.default_config with Y.warner = new warner} in
+ Y.parse_document_entity config
+(*PXP (Y.ExtID (Pxp_types.System filename,
+ new Pxp_reader.resolve_as_file ~url_of_id ()))
+*) (PxpUriResolver.from_file filename)
+ Y.default_spec
+
+ in
+ AnnotationParser2.annotate ids_to_targets d#root
+ with
+ e ->
+ print_endline (Pxp_types.string_of_exn e) ;
+ raise e
+;;
--- /dev/null
+exception IllFormedXml of int;;
+
+(* Utility functions that transform a Pxp attribute into something useful *)
+
+let string_of_attr a =
+ let module T = Pxp_types in
+ match a with
+ T.Value s -> s
+ | _ -> raise (IllFormedXml 0)
+;;
+
+exception DontKnowWhatToDo;;
+
+let rec string_of_annotations n =
+ let module D = Pxp_document in
+ let module T = Pxp_types in
+ match n#node_type with
+ D.T_element s ->
+ "<" ^ s ^
+ List.fold_right
+ (fun att i ->
+ match n#attribute att with
+ T.Value s -> " " ^ att ^ "=\"" ^ s ^ "\"" ^ i
+ | T.Implied_value -> i
+ | T.Valuelist l -> " " ^ att ^ "=\"" ^ String.concat " " l ^ "\"" ^ i
+ ) (n#attribute_names) "" ^
+ (match n#sub_nodes with
+ [] -> "/>"
+ | l ->
+ ">" ^
+ String.concat "" (List.map string_of_annotations l) ^
+ "</" ^ s ^ ">"
+ )
+ | D.T_data -> n#data
+ | _ -> raise DontKnowWhatToDo
+;;
+
+let get_annotation n =
+ String.concat "" (List.map string_of_annotations (n#sub_nodes))
+;;
+
+let annotate_object ann obj =
+ let module C = Cic in
+ let rann =
+ match obj with
+ C.ADefinition (_, rann, _, _, _, _) -> rann
+ | C.AAxiom (_, rann, _, _, _) -> rann
+ | C.AVariable (_, rann, _, _) -> rann
+ | C.ACurrentProof (_, rann, _, _, _, _) -> rann
+ | C.AInductiveDefinition (_, rann, _, _, _) -> rann
+ in
+ rann := Some ann
+;;
+
+let annotate_term ann term =
+ let module C = Cic in
+ let rann =
+ match term with
+ C.ARel (_, rann, _, _) -> rann
+ | C.AVar (_, rann, _) -> rann
+ | C.AMeta (_, rann, _) -> rann
+ | C.ASort (_, rann, _) -> rann
+ | C.AImplicit (_, rann) -> rann
+ | C.ACast (_, rann, _, _) -> rann
+ | C.AProd (_, rann, _, _, _) -> rann
+ | C.ALambda (_, rann, _, _, _) -> rann
+ | C.AAppl (_, rann, _) -> rann
+ | C.AConst (_, rann, _, _) -> rann
+ | C.AAbst (_, rann, _) -> rann
+ | C.AMutInd (_, rann, _, _, _) -> rann
+ | C.AMutConstruct (_, rann, _, _, _, _) -> rann
+ | C.AMutCase (_, rann, _, _, _, _, _, _) -> rann
+ | C.AFix (_, rann, _, _) -> rann
+ | C.ACoFix (_, rann, _, _) -> rann
+ in
+ rann := Some ann
+;;
+
+let annotate ids_to_targets n =
+ let module D = Pxp_document in
+ let module C = Cic in
+ let annotate_elem n =
+ let ntype = n # node_type in
+ match ntype with
+ D.T_element "Annotation" ->
+ let of_uri = string_of_attr (n # attribute "of") in
+ begin
+ try
+ match Hashtbl.find ids_to_targets of_uri with
+ C.Object o -> annotate_object (get_annotation n) o
+ | C.Term t -> annotate_term (get_annotation n) t
+ with
+ Not_found -> assert false
+ end
+ | D.T_element _ | D.T_data ->
+ raise (IllFormedXml 1)
+ | _ -> raise DontKnowWhatToDo
+ in
+ match n # node_type with
+ D.T_element "Annotations" ->
+ List.iter annotate_elem (n # sub_nodes)
+ | _ -> raise (IllFormedXml 2)
+;;
--- /dev/null
+#! /bin/sh
+
+export PATH=/home/cadet/sacerdot/jdk118/bin:$PATH
+
+export CLASSPATH=/home/cadet/sacerdot/xalan-j_1_2/xalan.jar:/home/cadet/sacerdot/xalan-j_1_2/xerces.jar:.
+
+#export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xalan.jar
+#export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xerces.jar
+#export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/saxon-5.3.2/saxon.jar
+
+# Per (my)Coq 6.3.0
+#export LD_LIBRARY_PATH=/home/lpadovan/helm/usr/lib/:$LD_LIBRARY_PATH
+export LD_LIBRARY_PATH=/usr/local/lib/gtkmathview:$LD_LIBRARY_PATH
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 14/06/2000 *)
+(* *)
+(* This module defines the internal representation of the objects (variables, *)
+(* blocks of (co)inductive definitions and constants) and the terms of cic *)
+(* *)
+(******************************************************************************)
+
+(* STUFF TO MANAGE IDENTIFIERS *)
+type id = string (* the abstract type of the (annotated) node identifiers *)
+type anntarget =
+ Object of annobj
+ | Term of annterm
+
+(* INTERNAL REPRESENTATION OF CIC OBJECTS AND TERMS *)
+and sort =
+ Prop
+ | Set
+ | Type
+and name =
+ Name of string
+ | Anonimous
+and term =
+ Rel of int (* DeBrujin index *)
+ | Var of UriManager.uri (* uri *)
+ | Meta of int (* numeric id *)
+ | Sort of sort (* sort *)
+ | Implicit (* *)
+ | Cast of term * term (* value, type *)
+ | Prod of name * term * term (* binder, source, target *)
+ | Lambda of name * term * term (* binder, source, target *)
+ | Appl of term list (* arguments *)
+ | Const of UriManager.uri * int (* uri, number of cookings*)
+ | Abst of UriManager.uri (* uri *)
+ | MutInd of UriManager.uri * int * int (* uri, cookingsno, typeno*)
+ | MutConstruct of UriManager.uri * int * (* uri, cookingsno, *)
+ int * int (* typeno, consno *)
+ (*CSC: serve cookingsno?*)
+ | MutCase of UriManager.uri * int * (* ind. uri, cookingsno, *)
+ int * (* ind. typeno, *)
+ term * term * (* outtype, ind. term *)
+ term list (* patterns *)
+ | Fix of int * inductiveFun list (* funno, functions *)
+ | CoFix of int * coInductiveFun list (* funno, functions *)
+and obj =
+ Definition of string * term * term * (* id, value, type, *)
+ (int * UriManager.uri list) list (* parameters *)
+ | Axiom of string * term *
+ (int * UriManager.uri list) list (* id, type, parameters *)
+ | Variable of string * term (* name, type *)
+ | CurrentProof of string * (int * term) list * (* name, conjectures, *)
+ term * term (* value, type *)
+ | InductiveDefinition of inductiveType list * (* inductive types, *)
+ (int * UriManager.uri list) list * int (* parameters, n ind. pars *)
+and inductiveType =
+ string * bool * term * (* typename, inductive, arity *)
+ constructor list (* constructors *)
+and constructor =
+ string * term * bool list option ref (* id, type, really recursive *)
+and inductiveFun =
+ string * int * term * term (* name, ind. index, type, body *)
+and coInductiveFun =
+ string * term * term (* name, type, body *)
+
+and annterm =
+ ARel of id * annotation option ref *
+ int * string option (* DeBrujin index, binder *)
+ | AVar of id * annotation option ref *
+ UriManager.uri (* uri *)
+ | AMeta of id * annotation option ref * int (* numeric id *)
+ | ASort of id * annotation option ref * sort (* sort *)
+ | AImplicit of id * annotation option ref (* *)
+ | ACast of id * annotation option ref *
+ annterm * annterm (* value, type *)
+ | AProd of id * annotation option ref *
+ name * annterm * annterm (* binder, source, target *)
+ | ALambda of id * annotation option ref *
+ name * annterm * annterm (* binder, source, target *)
+ | AAppl of id * annotation option ref *
+ annterm list (* arguments *)
+ | AConst of id * annotation option ref *
+ UriManager.uri * int (* uri, number of cookings*)
+ | AAbst of id * annotation option ref *
+ UriManager.uri (* uri *)
+ | AMutInd of id * annotation option ref *
+ UriManager.uri * int * int (* uri, cookingsno, typeno*)
+ | AMutConstruct of id * annotation option ref *
+ UriManager.uri * int * (* uri, cookingsno, *)
+ int * int (* typeno, consno *)
+ (*CSC: serve cookingsno?*)
+ | AMutCase of id * annotation option ref *
+ UriManager.uri * int * (* ind. uri, cookingsno *)
+ int * (* ind. typeno, *)
+ annterm * annterm * (* outtype, ind. term *)
+ annterm list (* patterns *)
+ | AFix of id * annotation option ref *
+ int * anninductiveFun list (* funno, functions *)
+ | ACoFix of id * annotation option ref *
+ int * anncoInductiveFun list (* funno, functions *)
+and annobj =
+ ADefinition of id * annotation option ref *
+ string * (* id, *)
+ annterm * annterm * (* value, type, *)
+ (int * UriManager.uri list) list exactness (* parameters *)
+ | AAxiom of id * annotation option ref *
+ string * annterm * (* id, type *)
+ (int * UriManager.uri list) list (* parameters *)
+ | AVariable of id * annotation option ref *
+ string * annterm (* name, type *)
+ | ACurrentProof of id * annotation option ref *
+ string * (int * annterm) list * (* name, conjectures, *)
+ annterm * annterm (* value, type *)
+ | AInductiveDefinition of id *
+ annotation option ref * anninductiveType list * (* inductive types , *)
+ (int * UriManager.uri list) list * int (* parameters,n ind. pars*)
+and anninductiveType =
+ string * bool * annterm * (* typename, inductive, arity *)
+ annconstructor list (* constructors *)
+and annconstructor =
+ string * annterm * bool list option ref (* id, type, really recursive *)
+and anninductiveFun =
+ string * int * annterm * annterm (* name, ind. index, type, body *)
+and anncoInductiveFun =
+ string * annterm * annterm (* name, type, body *)
+and annotation =
+ string
+and 'a exactness =
+ Possible of 'a (* an approximation to something *)
+ | Actual of 'a (* something *)
+;;
--- /dev/null
+(*CSC codice cut & paste da cicPp e xmlcommand *)
+
+exception ImpossiblePossible;;
+exception NotImplemented;;
+exception BinderNotSpecified;;
+
+let dtdname = "http://localhost:8081/getdtd?url=cic.dtd";;
+
+(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
+let print_term curi =
+ let rec aux =
+ let module C = Cic in
+ let module X = Xml in
+ let module U = UriManager in
+ function
+ C.ARel (id,_,n,Some b) ->
+ X.xml_empty "REL" ["value",(string_of_int n);"binder",b;"id",id]
+ | C.ARel _ -> raise BinderNotSpecified
+ | C.AVar (id,_,uri) ->
+ let vdepth = U.depth_of_uri uri
+ and cdepth = U.depth_of_uri curi in
+ X.xml_empty "VAR"
+ ["relUri",(string_of_int (cdepth - vdepth)) ^ "," ^
+ (U.name_of_uri uri) ;
+ "id",id]
+ | C.AMeta (id,_,n) ->
+ X.xml_empty "META" ["no",(string_of_int n) ; "id",id]
+ | C.ASort (id,_,s) ->
+ let string_of_sort =
+ function
+ C.Prop -> "Prop"
+ | C.Set -> "Set"
+ | C.Type -> "Type"
+ in
+ X.xml_empty "SORT" ["value",(string_of_sort s) ; "id",id]
+ | C.AImplicit _ -> raise NotImplemented
+ | C.AProd (id,_,C.Anonimous,s,t) ->
+ X.xml_nempty "PROD" ["id",id]
+ [< X.xml_nempty "source" [] (aux s) ;
+ X.xml_nempty "target" [] (aux t)
+ >]
+ | C.AProd (xid,_,C.Name id,s,t) ->
+ X.xml_nempty "PROD" ["id",xid]
+ [< X.xml_nempty "source" [] (aux s) ;
+ X.xml_nempty "target" ["binder",id] (aux t)
+ >]
+ | C.ACast (id,_,v,t) ->
+ X.xml_nempty "CAST" ["id",id]
+ [< X.xml_nempty "term" [] (aux v) ;
+ X.xml_nempty "type" [] (aux t)
+ >]
+ | C.ALambda (id,_,C.Anonimous,s,t) ->
+ X.xml_nempty "LAMBDA" ["id",id]
+ [< X.xml_nempty "source" [] (aux s) ;
+ X.xml_nempty "target" [] (aux t)
+ >]
+ | C.ALambda (xid,_,C.Name id,s,t) ->
+ X.xml_nempty "LAMBDA" ["id",xid]
+ [< X.xml_nempty "source" [] (aux s) ;
+ X.xml_nempty "target" ["binder",id] (aux t)
+ >]
+ | C.AAppl (id,_,li) ->
+ X.xml_nempty "APPLY" ["id",id]
+ [< (List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>])
+ >]
+ | C.AConst (id,_,uri,_) ->
+ X.xml_empty "CONST" ["uri", (U.string_of_uri uri) ; "id",id]
+ | C.AAbst (id,_,uri) -> raise NotImplemented
+ | C.AMutInd (id,_,uri,_,i) ->
+ X.xml_empty "MUTIND"
+ ["uri", (U.string_of_uri uri) ;
+ "noType",(string_of_int i) ;
+ "id",id]
+ | C.AMutConstruct (id,_,uri,_,i,j) ->
+ X.xml_empty "MUTCONSTRUCT"
+ ["uri", (U.string_of_uri uri) ;
+ "noType",(string_of_int i) ; "noConstr",(string_of_int j) ;
+ "id",id]
+ | C.AMutCase (id,_,uri,_,typeno,ty,te,patterns) ->
+ X.xml_nempty "MUTCASE"
+ ["uriType",(U.string_of_uri uri) ;
+ "noType", (string_of_int typeno) ;
+ "id", id]
+ [< X.xml_nempty "patternsType" [] [< (aux ty) >] ;
+ X.xml_nempty "inductiveTerm" [] [< (aux te) >] ;
+ List.fold_right
+ (fun x i -> [< X.xml_nempty "pattern" [] [< aux x >] ; i>])
+ patterns [<>]
+ >]
+ | C.AFix (id, _, no, funs) ->
+ X.xml_nempty "FIX" ["noFun", (string_of_int no) ; "id",id]
+ [< List.fold_right
+ (fun (fi,ai,ti,bi) i ->
+ [< X.xml_nempty "FixFunction"
+ ["name", fi; "recIndex", (string_of_int ai)]
+ [< X.xml_nempty "type" [] [< aux ti >] ;
+ X.xml_nempty "body" [] [< aux bi >]
+ >] ;
+ i
+ >]
+ ) funs [<>]
+ >]
+ | C.ACoFix (id,_,no,funs) ->
+ X.xml_nempty "COFIX" ["noFun", (string_of_int no) ; "id",id]
+ [< List.fold_right
+ (fun (fi,ti,bi) i ->
+ [< X.xml_nempty "CofixFunction" ["name", fi]
+ [< X.xml_nempty "type" [] [< aux ti >] ;
+ X.xml_nempty "body" [] [< aux bi >]
+ >] ;
+ i
+ >]
+ ) funs [<>]
+ >]
+ in
+ aux
+;;
+
+let encode params =
+ List.fold_right
+ (fun (n,l) i ->
+ match l with
+ [] -> i
+ | _ ->
+ string_of_int n ^ ": " ^
+ String.concat " " (List.map UriManager.name_of_uri l) ^
+ i
+ ) params ""
+;;
+
+let print_mutual_inductive_type curi (typename,inductive,arity,constructors) =
+ let module C = Cic in
+ let module X = Xml in
+ [< X.xml_nempty "InductiveType"
+ ["name",typename ;
+ "inductive",(string_of_bool inductive)
+ ]
+ [< X.xml_nempty "arity" [] (print_term curi arity) ;
+ (List.fold_right
+ (fun (name,ty,_) i ->
+ [< X.xml_nempty "Constructor" ["name",name]
+ (print_term curi ty) ;
+ i
+ >])
+ constructors
+ [<>]
+ )
+ >]
+ >]
+;;
+
+let pp obj curi =
+ let module C = Cic in
+ let module X = Xml in
+ match obj with
+ C.ADefinition (xid, _, id, te, ty, params) ->
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE Definition SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
+ X.xml_nempty "Definition"
+ (["name", id ; "id",xid] @
+ match params with
+ C.Possible _ -> raise ImpossiblePossible
+ (*CSC params are kept in inverted order in the internal *)
+ (* representation (the order of application) *)
+ | C.Actual fv' -> ["params",(encode (List.rev fv'))])
+ [< X.xml_nempty "body" [] (print_term curi te) ;
+ X.xml_nempty "type" [] (print_term curi ty) >]
+ >]
+ | C.AAxiom (xid, _, id, ty, params) ->
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE Axiom SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
+ X.xml_nempty "Axiom"
+ (*CSC params are kept in inverted order in the internal *)
+ (* representation (the order of application) *)
+ ["name",id ; "params",(encode (List.rev params)) ; "id",xid]
+ [< X.xml_nempty "type" [] (print_term curi ty) >]
+ >]
+ | C.AVariable (xid, _, name, ty) ->
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE Variable SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
+ X.xml_nempty "Variable" ["name",name ; "id",xid]
+ [< X.xml_nempty "type" [] (print_term curi ty) >]
+ >]
+ | C.ACurrentProof (xid, _, name, conjs, bo, ty) ->
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE CurrentProof SYSTEM \"" ^ dtdname ^ "\">\n\n");
+ X.xml_nempty "CurrentProof" ["name",name ; "id",xid]
+ [< List.fold_right
+ (fun (j,t) i ->
+ [< X.xml_nempty "Conjecture" ["no",(string_of_int j)]
+ [< print_term curi t >] ; i >])
+ conjs [<>] ;
+ X.xml_nempty "body" [] [< print_term curi bo >] ;
+ X.xml_nempty "type" [] [< print_term curi ty >]
+ >]
+ >]
+ | C.AInductiveDefinition (xid, _, tys, params, paramsno) ->
+ let names =
+ List.map
+ (fun (typename,_,_,_) -> typename)
+ tys
+ in
+ [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
+ X.xml_cdata ("<!DOCTYPE InductiveDefinition SYSTEM \"" ^
+ dtdname ^ "\">\n\n") ;
+ X.xml_nempty "InductiveDefinition"
+ (*CSC params are kept in inverted order in the internal *)
+ (* representation (the order of application) *)
+ ["noParams",string_of_int paramsno ;
+ "params",(encode (List.rev params)) ;
+ "id",xid]
+ [< List.fold_right
+ (fun x i -> [< print_mutual_inductive_type curi x ; i >])
+ tys [< >]
+ >]
+ >]
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 14/06/2000 *)
+(* *)
+(* *)
+(******************************************************************************)
+
+let deactivate_hints_from annotation_window n =
+ let annotation_hints = annotation_window#annotation_hints in
+ for i = n to Array.length annotation_hints - 1 do
+ annotation_hints.(i)#misc#hide ()
+ done
+;;
+
+(* CSC: orripilante *)
+(* the list of the signal ids *)
+let sig_ids = ref ([] : GtkSignal.id list);;
+
+let disconnect_hint annotation_window buttonno =
+ match !sig_ids with
+ id::ids ->
+ annotation_window#annotation_hints.(buttonno)#misc#disconnect id ;
+ sig_ids := ids
+ | _ -> assert false
+;;
+
+(* link_hint annotation_window n label hint *)
+(* set the label of the nth hint button of annotation_window to label *)
+(* and the correspondent hint to hint *)
+let link_hint annotation_window buttonno label hint =
+ let button = annotation_window#annotation_hints.(buttonno) in
+ sig_ids :=
+ (button#connect#clicked
+ (fun () -> (annotation_window#annotation : GEdit.text)#insert hint)
+ ) :: !sig_ids ;
+ button#misc#show () ;
+ match button#children with
+ [labelw] -> (GMisc.label_cast labelw)#set_text label
+ | _ -> assert false
+;;
+
+exception TooManyHints;;
+
+let link_hints annotation_window a =
+ if Array.length a > Array.length annotation_window#annotation_hints then
+ raise TooManyHints ;
+ for i = List.length !sig_ids - 1 downto 0 do
+ disconnect_hint annotation_window i
+ done ;
+ Array.iteri
+ (fun i (label,hint) -> link_hint annotation_window i label hint) a ;
+ deactivate_hints_from annotation_window (Array.length a)
+;;
+
+let list_mapi f =
+ let rec aux n =
+ function
+ [] -> []
+ | he::tl -> (f n he)::(aux (n + 1) tl)
+ in
+ aux 0
+;;
+
+let get_id annterm =
+ let module C = Cic in
+ match annterm with
+ C.ARel (id,_,_,_) -> id
+ | C.AVar (id,_,_) -> id
+ | C.AMeta (id,_,_) -> id
+ | C.ASort (id,_,_) -> id
+ | C.AImplicit (id,_) -> id
+ | C.ACast (id,_,_,_) -> id
+ | C.AProd (id,_,_,_,_) -> id
+ | C.ALambda (id,_,_,_,_) -> id
+ | C.AAppl (id,_,_) -> id
+ | C.AConst (id,_,_,_) -> id
+ | C.AAbst (id,_,_) -> id
+ | C.AMutInd (id,_,_,_,_) -> id
+ | C.AMutConstruct (id,_,_,_,_,_)-> id
+ | C.AMutCase (id,_,_,_,_,_,_,_) -> id
+ | C.AFix (id,_,_,_) -> id
+ | C.ACoFix (id,_,_,_) -> id
+;;
+
+let create_hint_from_term annotation_window annterm =
+ let module C = Cic in
+ match annterm with
+ C.ARel (id,_,_,_) ->
+ link_hints annotation_window
+ [| "Binder", "<attribute name = 'binder' id = '" ^ id ^ "'/>" |]
+ | C.AVar (id,_,_) ->
+ link_hints annotation_window
+ [| "relURI???", "<attribute name = 'relUri' id = '" ^ id ^ "'/>" |]
+ | C.AMeta (id,_,_) ->
+ link_hints annotation_window
+ [| "Number", "<attribute name = 'no' id = '" ^ id ^ "'/>" |]
+ | C.ASort (id,_,_) ->
+ link_hints annotation_window
+ [| "Value", "<attribute name = 'value' id = '" ^ id ^ "'/>" |]
+ | C.AImplicit (id,_) ->
+ link_hints annotation_window [| |]
+ | C.ACast (id,_,bo,ty) ->
+ let boid = get_id bo
+ and tyid = get_id ty in
+ link_hints annotation_window
+ [| "Body", "<node id = '" ^ boid ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.AProd (id,_,_,ty,bo) ->
+ let boid = get_id bo
+ and tyid = get_id ty in
+ link_hints annotation_window
+ [| "Binder",
+ "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
+ "Body", "<node id = '" ^ boid ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.ALambda (id,_,_,ty,bo) ->
+ let boid = get_id bo
+ and tyid = get_id ty in
+ link_hints annotation_window
+ [| "Binder",
+ "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
+ "Body", "<node id = '" ^ boid ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.AAppl (id,_,args) ->
+ let argsid =
+ Array.mapi
+ (fun i te -> "Argument " ^ string_of_int i, "<node id ='" ^
+ get_id te ^ "'/>")
+ (Array.of_list args)
+ in
+ link_hints annotation_window argsid
+ | C.AConst (id,_,_,_) ->
+ link_hints annotation_window
+ [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
+ | C.AAbst (id,_,_) ->
+ link_hints annotation_window
+ [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
+ | C.AMutInd (id,_,_,_,_) ->
+ link_hints annotation_window
+ [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
+ | C.AMutConstruct (id,_,_,_,_,_) ->
+ link_hints annotation_window
+ [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
+ | C.AMutCase (id,_,_,_,_,outty,te,pl) ->
+ let outtyid = get_id outty
+ and teid = get_id te
+ and plid =
+ Array.mapi
+ (fun i te -> "Pattern " ^ string_of_int i, "<node id ='" ^
+ get_id te ^ "'/>")
+ (Array.of_list pl)
+ in
+ link_hints annotation_window
+ (Array.append
+ [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" ;
+ "Case Type", "<node id = '" ^ outtyid ^ "'/>" ;
+ "Term", "<node id = '" ^ teid ^ "'/>" ;
+ |]
+ plid)
+ | C.AFix (id,_,_,funl) ->
+ let funtylid =
+ Array.mapi
+ (fun i (_,_,ty,_) ->
+ "Type " ^ string_of_int i, "<node id ='" ^
+ get_id ty ^ "'/>")
+ (Array.of_list funl)
+ and funbolid =
+ Array.mapi
+ (fun i (_,_,_,bo) ->
+ "Body " ^ string_of_int i, "<node id ='" ^
+ get_id bo ^ "'/>")
+ (Array.of_list funl)
+ and funnamel =
+ Array.mapi
+ (fun i (_,_,_,_) ->
+ "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
+ "' name = 'name' child='" ^ string_of_int i ^ "'/>")
+ (Array.of_list funl)
+ and funrecindexl =
+ Array.mapi
+ (fun i (_,_,_,_) ->
+ "Recursive Index??? " ^ string_of_int i, "<attribute id = '" ^ id ^
+ "' name = 'recIndex' child='" ^ string_of_int i ^ "'/>")
+ (Array.of_list funl)
+ in
+ link_hints annotation_window
+ (Array.concat
+ [ funtylid ;
+ funbolid ;
+ funnamel ;
+ funrecindexl ;
+ [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
+ ]
+ )
+ | C.ACoFix (id,_,_,funl) ->
+ let funtylid =
+ Array.mapi
+ (fun i (_,ty,_) ->
+ "Type " ^ string_of_int i, "<node id ='" ^
+ get_id ty ^ "'/>")
+ (Array.of_list funl)
+ and funbolid =
+ Array.mapi
+ (fun i (_,_,bo) ->
+ "Body " ^ string_of_int i, "<node id ='" ^
+ get_id bo ^ "'/>")
+ (Array.of_list funl)
+ and funnamel =
+ Array.mapi
+ (fun i (_,_,_) ->
+ "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
+ "' name = 'name' child='" ^ string_of_int i ^ "'/>")
+ (Array.of_list funl)
+ in
+ link_hints annotation_window
+ (Array.concat
+ [ funtylid ;
+ funbolid ;
+ funnamel ;
+ [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
+ ]
+ )
+;;
+
+(*CSC: da riscrivere completamente eliminando il paciugo degli array - liste *)
+let create_hint_from_obj annotation_window annobj =
+ let module C = Cic in
+ match annobj with
+ C.ADefinition (id,_,_,bo,ty,_) ->
+ let boid = get_id bo
+ and tyid = get_id ty in
+ link_hints annotation_window
+ [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
+ "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
+ "Body", "<node id = '" ^ boid ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.AAxiom (id,_,_,ty,_) ->
+ let tyid = get_id ty in
+ link_hints annotation_window
+ [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
+ "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.AVariable (id,_,_,ty) ->
+ let tyid = get_id ty in
+ link_hints annotation_window
+ [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ | C.ACurrentProof (id,_,_,conjs,bo,ty) ->
+ let boid = get_id bo
+ and tyid = get_id ty
+ and conjsid = List.map (fun (_,te) -> get_id te) conjs in
+ link_hints annotation_window
+ (Array.append
+ [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
+ "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
+ "Body", "<node id = '" ^ boid ^ "'/>" ;
+ "Type", "<node id = '" ^ tyid ^ "'/>"
+ |]
+ (Array.mapi
+ (fun i id ->
+ "Conjecture " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
+ ) (Array.of_list conjsid)
+ )
+ )
+ | C.AInductiveDefinition (id,_,itl,_,_) ->
+ let itlids =
+ List.map
+ (fun (_,_,arity,cons) ->
+ get_id arity,
+ List.map (fun (_,ty,_) -> get_id ty) cons
+ ) itl
+ in
+ link_hints annotation_window
+ (Array.concat
+ [
+ [| "Ingredients","<attribute name = 'params' id = '" ^ id ^ "'/>" |];
+ (Array.mapi
+ (fun i _ ->
+ "Type Name " ^ string_of_int i,
+ "<attribute name = 'name' child = '" ^ string_of_int i ^
+ "' id = '" ^ id ^ "'/>"
+ ) (Array.of_list itlids)
+ ) ;
+ (Array.mapi
+ (fun i (id,_) ->
+ "Type " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
+ ) (Array.of_list itlids)
+ ) ;
+ (Array.concat
+ (list_mapi
+ (fun i (_,consid) ->
+ (Array.mapi
+ (fun j _ ->
+ "Constructor Name " ^ string_of_int i ^ " " ^ string_of_int j,
+ "<attribute name = 'name' id = '" ^ id ^
+ "' child = '" ^ string_of_int i ^ "' grandchild = '" ^
+ string_of_int j ^ "'/>"
+ ) (Array.of_list consid)
+ ) ;
+ ) itlids
+ )
+ ) ;
+ (Array.concat
+ (list_mapi
+ (fun i (_,consid) ->
+ (Array.mapi
+ (fun j id ->
+ "Constructor " ^ string_of_int i ^ " " ^ string_of_int j,
+ "<node id = '" ^ id ^ "'/>"
+ ) (Array.of_list consid)
+ ) ;
+ ) itlids
+ )
+ )
+ ]
+ )
+;;
+
+exception IdUnknown of string;;
+
+let create_hints annotation_window (annobj,ids_to_targets) xpath =
+ try
+ match Hashtbl.find ids_to_targets xpath with
+ Cic.Object annobj -> create_hint_from_obj annotation_window annobj
+ | Cic.Term annterm -> create_hint_from_term annotation_window annterm
+ with
+ Not_found -> raise (IdUnknown xpath)
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module implements a trival cache system (an hash-table) for cic *)
+(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml) *)
+(* *)
+(******************************************************************************)
+
+let raise e = print_endline "***" ; flush stdout ; print_endline (Printexc.to_string e) ; flush stdout ; raise e;;
+
+(*CSC: forse i due seguenti tipi sono da unificare? *)
+type cooked_obj =
+ Cooked of Cic.obj
+ | Frozen of Cic.obj
+ | Unchecked of Cic.obj
+type type_checked_obj =
+ CheckedObj of Cic.obj (* cooked obj *)
+ | UncheckedObj of Cic.obj (* uncooked obj *)
+;;
+
+exception NoFunctionProvided;;
+
+(* CSC: da sostituire con un (...) option ref *)
+let cook_obj = ref (fun obj uri -> raise NoFunctionProvided);;
+
+exception CircularDependency of string;;
+exception CouldNotUnfreeze of string;;
+exception Impossible;;
+exception UncookedObj;;
+
+module HashedType =
+ struct
+ type t = UriManager.uri * int (* uri, livello di cottura *)
+ let equal (u1,n1) (u2,n2) = UriManager.eq u1 u2 && n1 = n2
+ let hash = Hashtbl.hash
+ end
+;;
+
+(* Hashtable that uses == instead of = for testing equality *)
+module HashTable = Hashtbl.Make(HashedType);;
+
+let hashtable = HashTable.create 271;;
+
+(* n is the number of time that the object must be cooked *)
+let get_obj_and_type_checking_info uri n =
+ try
+ HashTable.find hashtable (uri,n)
+ with
+ Not_found ->
+ try
+ match HashTable.find hashtable (uri,0) with
+ Cooked _
+ | Frozen _ -> raise Impossible
+ | Unchecked _ as t -> t
+ with
+ Not_found ->
+ let filename = Getter.get uri in
+ let (annobj,_) = CicParser.term_of_xml filename uri false in
+ let obj = Deannotate.deannotate_obj annobj in
+ let output = Unchecked obj in
+ HashTable.add hashtable (uri,0) output ;
+ output
+;;
+
+(* DANGEROUS!!! *)
+(* USEFUL ONLY DURING THE FIXING OF THE FILES *)
+(* change_obj uri (Some newobj) *)
+(* maps uri to newobj in cache. *)
+(* change_obj uri None *)
+(* maps uri to a freeze dummy-object. *)
+let change_obj uri newobj =
+ let newobj =
+ match newobj with
+ Some newobj' -> Unchecked newobj'
+ | None -> Frozen (Cic.Variable ("frozen-dummy", Cic.Implicit))
+ in
+ HashTable.remove hashtable (uri,0) ;
+ HashTable.add hashtable (uri,0) newobj
+;;
+
+let is_annotation_uri uri =
+ Str.string_match (Str.regexp ".*\.ann$") (UriManager.string_of_uri uri) 0
+;;
+
+(* returns both the annotated and deannotated uncooked forms (plus the *)
+(* map from ids to annotation targets) *)
+let get_annobj_and_type_checking_info uri =
+ let filename = Getter.get uri in
+ match CicParser.term_of_xml filename uri true with
+ (_, None) -> raise Impossible
+ | (annobj, Some ids_to_targets) ->
+ (* If uri is the uri of an annotation, let's use the annotation file *)
+ if is_annotation_uri uri then
+ AnnotationParser.annotate (Getter.get_ann uri) ids_to_targets ;
+ try
+ (annobj, ids_to_targets, HashTable.find hashtable (uri,0))
+ with
+ Not_found ->
+ let obj = Deannotate.deannotate_obj annobj in
+ let output = Unchecked obj in
+ HashTable.add hashtable (uri,0) output ;
+ (annobj, ids_to_targets, output)
+;;
+
+
+(* get_obj uri *)
+(* returns the cic object whose uri is uri. If the term is not just in cache, *)
+(* then it is parsed via CicParser.term_of_xml from the file whose name is *)
+(* the result of Getter.get uri *)
+let get_obj uri =
+ match get_obj_and_type_checking_info uri 0 with
+ Unchecked obj -> obj
+ | Frozen obj -> obj
+ | Cooked obj -> obj
+;;
+
+(* get_annobj uri *)
+(* returns the cic object whose uri is uri either in annotated and *)
+(* deannotated form. The term is put into the cache if it's not there yet. *)
+let get_annobj uri =
+ let (ann, ids_to_targets, deann) = get_annobj_and_type_checking_info uri in
+ let deannobj =
+ match deann with
+ Unchecked obj -> obj
+ | Frozen _ -> raise (CircularDependency (UriManager.string_of_uri uri))
+ | Cooked obj -> obj
+ in
+ (ann, ids_to_targets, deannobj)
+;;
+
+(*CSC Commento falso *)
+(* get_obj uri *)
+(* returns the cooked cic object whose uri is uri. The term must be present *)
+(* and cooked in cache *)
+let rec get_cooked_obj uri cookingsno =
+ match get_obj_and_type_checking_info uri cookingsno with
+ Unchecked _
+ | Frozen _ -> raise UncookedObj
+ | Cooked obj -> obj
+;;
+
+(* is_type_checked uri *)
+(* CSC: commento falso ed obsoleto *)
+(* returns true if the term has been type-checked *)
+(* otherwise it returns false and freeze the term for type-checking *)
+(* set_type_checking_info must be called to unfreeze the term *)
+let is_type_checked uri cookingsno =
+ match get_obj_and_type_checking_info uri cookingsno with
+ Cooked obj -> CheckedObj obj
+ | Unchecked obj ->
+ HashTable.remove hashtable (uri,0) ;
+ HashTable.add hashtable (uri,0) (Frozen obj) ;
+ UncheckedObj obj
+ | Frozen _ -> raise (CircularDependency (UriManager.string_of_uri uri))
+;;
+
+(* set_type_checking_info uri *)
+(* must be called once the type-checking of uri is finished *)
+(* The object whose uri is uri is unfreezed *)
+let set_type_checking_info uri =
+ match HashTable.find hashtable (uri,0) with
+ Frozen obj ->
+ (* let's cook the object at every level *)
+ HashTable.remove hashtable (uri,0) ;
+ let obj' = CicSubstitution.undebrujin_inductive_def uri obj in
+ HashTable.add hashtable (uri,0) (Cooked obj') ;
+ let cooked_objs = !cook_obj obj' uri in
+ let last_cooked_level = ref 0 in
+ let last_cooked_obj = ref obj' in
+ List.iter
+ (fun (n,cobj) ->
+ for i = !last_cooked_level + 1 to n do
+ HashTable.add hashtable (uri,i) (Cooked !last_cooked_obj)
+ done ;
+ HashTable.add hashtable (uri,n + 1) (Cooked cobj) ;
+ last_cooked_level := n + 1 ;
+ last_cooked_obj := cobj
+ ) cooked_objs ;
+ for i = !last_cooked_level + 1 to UriManager.depth_of_uri uri + 1 do
+ HashTable.add hashtable (uri,i) (Cooked !last_cooked_obj)
+ done
+ | _ -> raise (CouldNotUnfreeze (UriManager.string_of_uri uri))
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module implements a trival cache system (an hash-table) for cic *)(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml) *)(* *)
+(******************************************************************************)
+
+exception CircularDependency of string;;
+
+(* get_obj uri *)
+(* returns the cic object whose uri is uri. If the term is not just in cache, *)
+(* then it is parsed via CicParser.term_of_xml from the file whose name is *)
+(* the result of Getter.get uri *)
+val get_obj : UriManager.uri -> Cic.obj
+
+(* get_annobj uri *)
+(* returns the cic object whose uri is uri either in annotated and in *)
+(* deannotated form. It returns also the map from ids to annotation targets. *)
+(* The term is put in cache if it's not there yet. *)
+(* The functions raise CircularDependency if asked to retrieve a Frozen object*)
+val get_annobj :
+ UriManager.uri -> Cic.annobj * (Cic.id, Cic.anntarget) Hashtbl.t * Cic.obj
+
+(* DANGEROUS!!! *)
+(* USEFUL ONLY DURING THE FIXING OF THE FILES *)
+(* change_obj uri (Some newobj) *)
+(* maps uri to newobj in cache. *)
+(* change_obj uri None *)
+(* maps uri to a freeze dummy-object. *)
+val change_obj : UriManager.uri -> Cic.obj option -> unit
+
+type type_checked_obj =
+ CheckedObj of Cic.obj (* cooked obj *)
+ | UncheckedObj of Cic.obj (* uncooked obj *)
+
+(* is_type_checked uri cookingsno *)
+(*CSC commento falso ed obsoleto *)
+(* returns (true,object) if the object has been type-checked *)
+(* otherwise it returns (false,object) and freeze the object for *)
+(* type-checking *)
+(* set_type_checking_info must be called to unfreeze the object *)
+val is_type_checked : UriManager.uri -> int -> type_checked_obj
+
+(* set_type_checking_info uri *)
+(* must be called once the type-checking of uri is finished *)
+(* The object whose uri is uri is unfreezed and won't be type-checked *)
+(* again in the future (is_type_checked will return true) *)
+val set_type_checking_info : UriManager.uri -> unit
+
+(* get_cooked_obj uri cookingsno *)
+val get_cooked_obj : UriManager.uri -> int -> Cic.obj
+
+val cook_obj : (Cic.obj -> UriManager.uri -> (int * Cic.obj) list) ref
--- /dev/null
+exception Impossible;;
+exception NotImplemented of int * string;;
+exception WrongUriToConstant;;
+exception WrongUriToVariable of string;;
+exception WrongUriToInductiveDefinition;;
+
+(* mem x lol is true if x is a member of one *)
+(* of the lists of the list of (int * list) lol *)
+let mem x lol =
+ List.fold_right (fun (_,l) i -> i || List.mem x l) lol false
+;;
+
+(* cook var term *)
+let cook curi cookingsno var =
+ let rec aux k =
+ let module C = Cic in
+ function
+ C.Rel n as t ->
+ (match n with
+ n when n >= k -> C.Rel (n + 1)
+ | _ -> C.Rel n
+ )
+ | C.Var uri as t ->
+ if UriManager.eq uri var then
+ C.Rel k
+ else
+ t
+ | C.Meta _ as t -> t
+ | C.Sort _ as t -> t
+ | C.Implicit as t -> t
+ | C.Cast (te, ty) -> C.Cast (aux k te, aux k ty)
+ | C.Prod (n,s,t) -> C.Prod (n, aux k s, aux (k + 1) t)
+ | C.Lambda (n,s,t) -> C.Lambda (n, aux k s, aux (k + 1) t)
+ | C.Appl (he::tl) ->
+ (* Get rid of C.Appl (C.Appl l1) l2 *)
+ let newtl = List.map (aux k) tl in
+ (match aux k he with
+ C.Appl (he'::tl') -> C.Appl (he'::(tl'@newtl))
+ | t -> C.Appl (t::newtl)
+ )
+ | C.Appl [] -> raise Impossible
+ | C.Const (uri,_) ->
+ if match CicCache.get_obj uri with
+ C.Definition (_,_,_,params) when mem var params -> true
+ | C.Definition _ -> false
+ | C.Axiom (_,_,params) when mem var params -> true
+ | C.Axiom _ -> false
+ | C.CurrentProof _ ->
+ raise (NotImplemented (2,(UriManager.string_of_uri uri)))
+ | _ -> raise WrongUriToConstant
+ then
+ C.Appl
+ ((C.Const (uri,UriManager.relative_depth curi uri cookingsno))::
+ [C.Rel k])
+ else
+ C.Const (uri,UriManager.relative_depth curi uri cookingsno)
+ | C.Abst _ as t -> t
+ | C.MutInd (uri,_,i) ->
+ if match CicCache.get_obj uri with
+ C.InductiveDefinition (_,params,_) when mem var params -> true
+ | C.InductiveDefinition _ -> false
+ | _ -> raise WrongUriToInductiveDefinition
+ then
+ C.Appl ((C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i))::[C.Rel k])
+ else
+ C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i)
+ | C.MutConstruct (uri,_,i,j) ->
+ if match CicCache.get_obj uri with
+ C.InductiveDefinition (_,params,_) when mem var params -> true
+ | C.InductiveDefinition _ -> false
+ | _ -> raise WrongUriToInductiveDefinition
+ then
+ C.Appl ((C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j))::[C.Rel k])
+ else
+ C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j)
+ | C.MutCase (uri,_,i,outt,term,pl) ->
+ let substitutedfl =
+ List.map (aux k) pl
+ in
+ C.MutCase (uri,UriManager.relative_depth curi uri cookingsno,i,
+ aux k outt,aux k term, substitutedfl)
+ | C.Fix (i,fl) ->
+ let len = List.length fl in
+ let substitutedfl =
+ List.map
+ (fun (name,i,ty,bo) -> (name,i,aux k ty, aux (k+len) bo))
+ fl
+ in
+ C.Fix (i, substitutedfl)
+ | C.CoFix (i,fl) ->
+ let len = List.length fl in
+ let substitutedfl =
+ List.map
+ (fun (name,ty,bo) -> (name,aux k ty, aux (k+len) bo))
+ fl
+ in
+ C.CoFix (i, substitutedfl)
+ in
+ aux 1
+;;
+
+let cook_gen add_binder curi cookingsno ty vars =
+ let module C = Cic in
+ let module U = UriManager in
+ let rec cookrec ty =
+ function
+ var::tl ->
+ let (varname, vartype) =
+ match CicCache.get_obj var with
+ C.Variable (varname, vartype) -> (varname, vartype)
+ | _ -> raise (WrongUriToVariable (U.string_of_uri var))
+ in
+ cookrec (add_binder (C.Name varname) vartype (cook curi cookingsno var ty)) tl
+ | _ -> ty
+ in
+ cookrec ty vars
+;;
+
+let cook_prod =
+ cook_gen (fun n s t -> Cic.Prod (n,s,t))
+and cook_lambda =
+ cook_gen (fun n s t -> Cic.Lambda (n,s,t))
+;;
+
+(*CSC: sbagliato da rifare e completare *)
+let cook_one_level obj curi cookingsno vars =
+ let module C = Cic in
+ match obj with
+ C.Definition (id,te,ty,params) ->
+ let ty' = cook_prod curi cookingsno ty vars in
+ let te' = cook_lambda curi cookingsno te vars in
+ C.Definition (id,te',ty',params)
+ | C.Axiom (id,ty,parameters) ->
+ let ty' = cook_prod curi cookingsno ty vars in
+ C.Axiom (id,ty',parameters)
+ | C.Variable _ as obj -> obj
+ | C.CurrentProof (id,conjs,te,ty) ->
+ let ty' = cook_prod curi cookingsno ty vars in
+ let te' = cook_lambda curi cookingsno te vars in
+ C.CurrentProof (id,conjs,te',ty')
+ | C.InductiveDefinition (dl, params, n_ind_params) ->
+ let dl' =
+ List.map
+ (fun (name,inductive,arity,constructors) ->
+ let constructors' =
+ List.map
+ (fun (name,ty,r) ->
+ let r' =
+ match !r with
+ None -> raise Impossible
+ | Some r -> List.map (fun _ -> false) vars @ r
+ in
+ (name,cook_prod curi cookingsno ty vars,ref (Some r'))
+ ) constructors
+ in
+ (name,inductive,cook_prod curi cookingsno arity vars,constructors')
+ ) dl
+ in
+ C.InductiveDefinition (dl', params, n_ind_params + List.length vars)
+;;
+
+let cook_obj obj uri =
+ let module C = Cic in
+ let params =
+ match obj with
+ C.Definition (_,_,_,params) -> params
+ | C.Axiom (_,_,params) -> params
+ | C.Variable _ -> []
+ | C.CurrentProof _ -> []
+ | C.InductiveDefinition (_,params,_) -> params
+ in
+ let rec cook_all_levels obj =
+ function
+ [] -> []
+ | (n,vars)::tl ->
+ let cooked_obj = cook_one_level obj uri (n + 1) (List.rev vars) in
+ (n,cooked_obj)::(cook_all_levels cooked_obj tl)
+ in
+ cook_all_levels obj (List.rev params)
+;;
+
+CicCache.cook_obj := cook_obj;;
--- /dev/null
+exception Impossible
+exception NotImplemented of int * string
+exception WrongUriToConstant
+exception WrongUriToVariable of string
+exception WrongUriToInductiveDefinition
+val cook_obj : Cic.obj -> UriManager.uri -> (int * Cic.obj) list
--- /dev/null
+exception WrongUriToConstant;;
+exception WrongUriToInductiveDefinition;;
+exception CircularDependency of string;;
+
+module OrderedUris =
+ struct
+ type t = UriManager.uri
+ let compare (s1 : t) (s2 : t) =
+ (* library function for = *)
+ compare s1 s2
+ (*if s1 = s2 then 0 else if s1 < s2 then (-1) else 1*)
+ end
+;;
+
+let filename_of_uri uri =
+ let uri' = UriManager.string_of_uri uri in
+ let fn = Str.replace_first (Str.regexp "cic:") Configuration.helm_dir uri' in
+ fn ^ ".xml"
+;;
+
+(* quite inefficient coding of a set of strings: the only operations *)
+(* performed are mem O(log n), and union O(n * log n?) *)
+(* Perhaps a better implementation would be an array of bits or a map *)
+(* from uri to booleans *)
+module SetOfUris = Set.Make(OrderedUris);;
+
+let (@@) = SetOfUris.union;;
+
+let rec parameters_of te ty pparams=
+ let module S = SetOfUris in
+ let module C = Cic in
+ let rec aux =
+ function
+ C.Rel _ -> S.empty
+ | C.Var uri -> S.singleton uri
+ | C.Meta _ -> S.empty
+ | C.Sort _ -> S.empty
+ | C.Implicit -> S.empty
+ | C.Cast (te, ty) -> aux te @@ aux ty
+ | C.Prod (_, s, t) -> aux s @@ aux t
+ | C.Lambda (_, s, t) -> aux s @@ aux t
+ | C.Appl l -> List.fold_right (fun x i -> aux x @@ i) l S.empty
+ | C.Const (uri,_) ->
+ (* the parameters could be not exact but only possible *)
+ fix_params uri (Some (filename_of_uri uri)) ;
+ (* now the parameters are surely possible *)
+ (match CicCache.get_obj uri with
+ C.Definition (_, _, _, params) ->
+ List.fold_right
+ (fun (_,l) i ->
+ List.fold_right
+ (fun x i -> S.singleton x @@ i) l i
+ ) params S.empty
+ | C.Axiom (_, _, params) ->
+ List.fold_right
+ (fun (_,l) i ->
+ List.fold_right
+ (fun x i -> S.singleton x @@ i) l i
+ ) params S.empty
+ | C.CurrentProof _ -> S.empty (*CSC wrong *)
+ | _ -> raise WrongUriToConstant
+ )
+ | C.Abst _ -> S.empty
+ | C.MutInd (uri,_,_) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (_, params, _) ->
+ List.fold_right
+ (fun (_,l) i ->
+ List.fold_right
+ (fun x i -> S.singleton x @@ i) l i
+ ) params S.empty
+ | _ -> raise WrongUriToInductiveDefinition
+ )
+ | C.MutConstruct (uri,_,_,_) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (_, params, _) ->
+ List.fold_right
+ (fun (_,l) i ->
+ List.fold_right
+ (fun x i -> S.singleton x @@ i) l i
+ ) params S.empty
+ | _ -> raise WrongUriToInductiveDefinition
+ )
+ | C.MutCase (uri,_,_,outtype,term,patterns) ->
+ (*CSC cosa basta? Ci vuole anche uri? *)
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (_, params, _) ->
+ List.fold_right
+ (fun (_,l) i ->
+ List.fold_right
+ (fun x i -> S.singleton x @@ i) l i
+ ) params S.empty
+ | _ -> raise WrongUriToInductiveDefinition
+ ) @@ aux outtype @@ aux term @@
+ List.fold_right (fun x i -> aux x @@ i) patterns S.empty
+ | C.Fix (_,fl) ->
+ List.fold_right
+ (fun (_,_,ty,bo) i -> aux ty @@ aux bo @@ i)
+ fl S.empty
+ | C.CoFix (_,fl) ->
+ List.fold_right
+ (fun (_,ty,bo) i -> aux ty @@ aux bo @@ i)
+ fl S.empty
+ in
+ let actual_params = aux te @@ aux ty in
+ (* sort_actual_params wants in input the ordered list of possible params *)
+ let rec sort_actual_params2 =
+ function
+ [] -> []
+ | he::tl when S.mem he actual_params -> he::(sort_actual_params2 tl)
+ | _::tl -> sort_actual_params2 tl
+ in
+ let rec sort_actual_params =
+ function
+ [] -> []
+ | (n,l)::tl -> (n, sort_actual_params2 l)::(sort_actual_params tl)
+ in
+ sort_actual_params pparams
+
+and fix_params uri filename =
+ let module C = Cic in
+ let (ann, _, deann) = CicCache.get_annobj uri in
+ match ann, deann with
+ (C.ADefinition (xid, ann, id, te, ty, C.Possible pparams),
+ C.Definition (id', te', ty', _)) ->
+ (* let's freeze the object to avoid circular dependencies *)
+ CicCache.change_obj uri None ;
+ let real_params = parameters_of te' ty' pparams in
+ let fixed =
+ C.ADefinition (xid,ann,id,te,ty,C.Actual real_params)
+ in
+ Xml.pp (Cic2Xml.pp fixed uri) filename ;
+ (* unfreeze and fix the object *)
+ CicCache.change_obj uri
+ (Some (C.Definition (id', te', ty', real_params)))
+ | _ -> ()
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This is the main (top level) module of a parser for cic objects from xml *)
+(* files to the internal representation. It uses the modules cicParser2 *)
+(* (objects level) and cicParser3 (terms level) *)
+(* *)
+(******************************************************************************)
+
+exception Warnings;;
+
+class warner =
+ object
+ method warn w =
+ print_endline ("WARNING: " ^ w) ;
+ (raise Warnings : unit)
+ end
+;;
+
+exception EmptyUri;;
+
+(* given an uri u it returns the list of tokens of the base uri of u *)
+(* e.g.: token_of_uri "cic:/a/b/c/d.xml" returns ["a" ; "b" ; "c"] *)
+let tokens_of_uri uri =
+ let uri' = UriManager.string_of_uri uri in
+ let rec chop_list =
+ function
+ [] -> raise EmptyUri
+ | he::[fn] -> [he]
+ | he::tl -> he::(chop_list tl)
+ in
+ let trimmed_uri = Str.replace_first (Str.regexp "cic:") "" uri' in
+ let list_of_tokens = Str.split (Str.regexp "/") trimmed_uri in
+ chop_list list_of_tokens
+;;
+
+(* given the filename of an xml file of a cic object it returns its internal *)
+(* representation. process_annotations is true if the annotations do really *)
+(* matter *)
+let term_of_xml filename uri process_annotations =
+ let module Y = Pxp_yacc in
+ try
+ let d =
+ (* sets the current base uri to resolve relative URIs *)
+ CicParser3.current_sp := tokens_of_uri uri ;
+ CicParser3.current_uri := uri ;
+ CicParser3.process_annotations := process_annotations ;
+ CicParser3.ids_to_targets :=
+ if process_annotations then Some (Hashtbl.create 500) else None ;
+ let config = {Y.default_config with Y.warner = new warner} in
+ Y.parse_document_entity config
+(*PXP (Y.ExtID (Pxp_types.System filename,
+ new Pxp_reader.resolve_as_file ~url_of_id ()))
+*) (PxpUriResolver.from_file filename)
+ CicParser3.domspec
+ in
+ let ids_to_targets = !CicParser3.ids_to_targets in
+ let res = (CicParser2.get_term d#root, ids_to_targets) in
+ CicParser3.ids_to_targets := None ; (* let's help the GC *)
+ res
+ with
+ e ->
+ print_endline (Pxp_types.string_of_exn e) ;
+ raise e
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 22/03/2000 *)
+(* *)
+(* This is the main (top level) module of a parser for cic objects from xml *)
+(* files to the internal representation. It uses the modules cicParser2 *)
+(* (objects level) and cicParser3 (terms level) *)
+(* *)
+(******************************************************************************)
+
+(* given the filename of an xml file of a cic object and it's uri, it returns *)
+(* its internal annotated representation. The boolean is set to true if the *)
+(* annotations do really matter *)
+val term_of_xml :
+ string -> UriManager.uri -> bool ->
+ Cic.annobj * (Cic.id, Cic.anntarget) Hashtbl.t option
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module is the objects level of a parser for cic objects from xml *)
+(* files to the internal representation. It uses the module cicParser3 *)
+(* cicParser3 (terms level) and it is used only through cicParser2 (top *)
+(* level). *)
+(* *)
+(******************************************************************************)
+
+exception IllFormedXml of int;;
+exception NotImplemented;;
+
+(* Utility functions that transform a Pxp attribute into something useful *)
+
+(* mk_absolute_uris "n1: v1 ... vn n2 : u1 ... un ...." *)
+(* returns [(n1,[absolute_uri_for_v1 ; ... ; absolute_uri_for_vn]) ; (n2,...) *)
+let mk_absolute_uris s =
+ let l = (Str.split (Str.regexp ":") s) in
+ let absolute_of_relative n v =
+ let module P3 = CicParser3 in
+ let rec mkburi =
+ function
+ (0,_) -> "/"
+ | (n,he::tl) when n > 0 ->
+ "/" ^ he ^ mkburi (n - 1, tl)
+ | _ -> raise (IllFormedXml 12)
+ in
+ let m = List.length !P3.current_sp - (int_of_string n) in
+ let buri = mkburi (m, !P3.current_sp) in
+ UriManager.uri_of_string ("cic:" ^ buri ^ v ^ ".var")
+ in
+ let rec absolutize =
+ function
+ [] -> []
+ | [no ; vs] ->
+ let vars = (Str.split (Str.regexp " ") vs) in
+ [(int_of_string no, List.map (absolute_of_relative no) vars)]
+ | no::vs::tl ->
+ let vars = (Str.split (Str.regexp " ") vs) in
+ let rec add_prefix =
+ function
+ [no2] -> ([], no2)
+ | he::tl ->
+ let (pvars, no2) = add_prefix tl in
+ ((absolute_of_relative no he)::pvars, no2)
+ | _ -> raise (IllFormedXml 11)
+ in
+ let (pvars, no2) = add_prefix vars in
+ (int_of_string no, pvars)::(absolutize (no2::tl))
+ | _ -> raise (IllFormedXml 10)
+ in
+ (* last parameter must be applied first *)
+ absolutize l
+;;
+
+let option_uri_list_of_attr a1 a2 =
+ let module T = Pxp_types in
+ let parameters =
+ match a1 with
+ T.Value s -> mk_absolute_uris s
+ | _ -> raise (IllFormedXml 0)
+ in
+ match a2 with
+ T.Value "POSSIBLE" -> Cic.Possible parameters
+ | T.Implied_value -> Cic.Actual parameters
+ | _ -> raise (IllFormedXml 0)
+;;
+
+let uri_list_of_attr a =
+ let module T = Pxp_types in
+ match a with
+ T.Value s -> mk_absolute_uris s
+ | _ -> raise (IllFormedXml 0)
+;;
+
+let string_of_attr a =
+ let module T = Pxp_types in
+ match a with
+ T.Value s -> s
+ | _ -> raise (IllFormedXml 0)
+;;
+
+let int_of_attr a =
+ int_of_string (string_of_attr a)
+;;
+
+let bool_of_attr a =
+ bool_of_string (string_of_attr a)
+;;
+
+(* Other utility functions *)
+
+let get_content n =
+ match n#sub_nodes with
+ [ t ] -> t
+ | _ -> raise (IllFormedXml 1)
+;;
+
+let register_id id node =
+ if !CicParser3.process_annotations then
+ match !CicParser3.ids_to_targets with
+ None -> assert false
+ | Some ids_to_targets ->
+ Hashtbl.add ids_to_targets id (Cic.Object node)
+;;
+
+(* Functions that, given the list of sons of a node of the cic dom (objects *)
+(* level), retrieve the internal representation associated to the node. *)
+(* Everytime a cic term subtree is found, it is translated to the internal *)
+(* representation using the method to_cic_term defined in cicParser3. *)
+(* Each function raise IllFormedXml if something goes wrong, but this should *)
+(* be impossible due to the presence of the dtd *)
+(* The functions should really be obvious looking at their name and the cic *)
+(* dtd *)
+
+(* called when a CurrentProof is found *)
+let get_conjs_value_type l =
+ let rec rget (c, v, t) l =
+ let module D = Pxp_document in
+ match l with
+ [] -> (c, v, t)
+ | conj::tl when conj#node_type = D.T_element "Conjecture" ->
+ let no = int_of_attr (conj#attribute "no")
+ and typ = (get_content conj)#extension#to_cic_term in
+ rget ((no, typ)::c, v, t) tl
+ | value::tl when value#node_type = D.T_element "body" ->
+ let v' = (get_content value)#extension#to_cic_term in
+ (match v with
+ None -> rget (c, Some v', t) tl
+ | _ -> raise (IllFormedXml 2)
+ )
+ | typ::tl when typ#node_type = D.T_element "type" ->
+ let t' = (get_content typ)#extension#to_cic_term in
+ (match t with
+ None -> rget (c, v, Some t') tl
+ | _ -> raise (IllFormedXml 3)
+ )
+ | _ -> raise (IllFormedXml 4)
+ in
+ match rget ([], None, None) l with
+ (c, Some v, Some t) -> (c, v, t)
+ | _ -> raise (IllFormedXml 5)
+;;
+
+(* used only by get_inductive_types; called one time for each inductive *)
+(* definitions in a block of inductive definitions *)
+let get_names_arity_constructors l =
+ let rec rget (a,c) l =
+ let module D = Pxp_document in
+ match l with
+ [] -> (a, c)
+ | arity::tl when arity#node_type = D.T_element "arity" ->
+ let a' = (get_content arity)#extension#to_cic_term in
+ rget (Some a',c) tl
+ | con::tl when con#node_type = D.T_element "Constructor" ->
+ let id = string_of_attr (con#attribute "name")
+ and ty = (get_content con)#extension#to_cic_term in
+ rget (a,(id,ty,ref None)::c) tl
+ | _ -> raise (IllFormedXml 9)
+ in
+ match rget (None,[]) l with
+ (Some a, c) -> (a, List.rev c)
+ | _ -> raise (IllFormedXml 8)
+;;
+
+(* called when an InductiveDefinition is found *)
+let rec get_inductive_types =
+ function
+ [] -> []
+ | he::tl ->
+ let tyname = string_of_attr (he#attribute "name")
+ and inductive = bool_of_attr (he#attribute "inductive")
+ and (arity,cons) =
+ get_names_arity_constructors (he#sub_nodes)
+ in
+ (tyname,inductive,arity,cons)::(get_inductive_types tl) (*CSC 0 a caso *)
+;;
+
+(* This is the main function and also the only one used directly from *)
+(* cicParser. Given the root of the dom tree, it returns the internal *)
+(* representation of the cic object described in the tree *)
+(* It uses the previous functions and the to_cic_term method defined *)
+(* in cicParser3 (used for subtrees that encode cic terms) *)
+let rec get_term n =
+ let module D = Pxp_document in
+ let module C = Cic in
+ let ntype = n # node_type in
+ match ntype with
+ D.T_element "Definition" ->
+ let id = string_of_attr (n # attribute "name")
+ and params =
+ option_uri_list_of_attr (n#attribute "params") (n#attribute "paramMode")
+ and (value, typ) =
+ let sons = n#sub_nodes in
+ match sons with
+ [v ; t] when
+ v#node_type = D.T_element "body" &&
+ t#node_type = D.T_element "type" ->
+ let v' = get_content v
+ and t' = get_content t in
+ (v'#extension#to_cic_term, t'#extension#to_cic_term)
+ | _ -> raise (IllFormedXml 6)
+ and xid = string_of_attr (n#attribute "id") in
+ let res = C.ADefinition (xid, ref None, id, value, typ, params) in
+ register_id xid res ;
+ res
+ | D.T_element "Axiom" ->
+ let id = string_of_attr (n # attribute "name")
+ and params = uri_list_of_attr (n # attribute "params")
+ and typ =
+ (get_content (get_content n))#extension#to_cic_term
+ and xid = string_of_attr (n#attribute "id") in
+ let res = C.AAxiom (xid, ref None, id, typ, params) in
+ register_id xid res ;
+ res
+ | D.T_element "CurrentProof" ->
+ let name = string_of_attr (n#attribute "name")
+ and xid = string_of_attr (n#attribute "id") in
+ let sons = n#sub_nodes in
+ let (conjs, value, typ) = get_conjs_value_type sons in
+ let res = C.ACurrentProof (xid, ref None, name, conjs, value, typ) in
+ register_id xid res ;
+ res
+ | D.T_element "InductiveDefinition" ->
+ let sons = n#sub_nodes
+ and xid = string_of_attr (n#attribute "id") in
+ let inductiveTypes = get_inductive_types sons
+ and params = uri_list_of_attr (n#attribute "params")
+ and nparams = int_of_attr (n#attribute "noParams") in
+ let res =
+ C.AInductiveDefinition (xid, ref None, inductiveTypes, params, nparams)
+ in
+ register_id xid res ;
+ res
+ | D.T_element "Variable" ->
+ let name = string_of_attr (n#attribute "name")
+ and xid = string_of_attr (n#attribute "id") in
+ let typ = (get_content (get_content n))#extension#to_cic_term in
+ let res = C.AVariable (xid,ref None,name,typ) in
+ register_id xid res ;
+ res
+ | D.T_element _
+ | D.T_data ->
+ raise (IllFormedXml 7)
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module is the objects level of a parser for cic objects from xml *)
+(* files to the internal representation. It uses the module cicParser3 *)
+(* cicParser3 (terms level) and it is used only through cicParser2 (top *)
+(* level). *)
+(* *)
+(******************************************************************************)
+
+exception IllFormedXml of int
+exception NotImplemented
+
+(* This is the main function and also the only one used directly from *)
+(* cicParser. Given the root of the dom tree, it returns the internal *)
+(* representation of the cic object described in the tree *)
+(* It uses the previous functions and the to_cic_term method defined *)
+(* in cicParser3 (used for subtrees that encode cic terms) *)
+val get_term :
+ < attribute : string -> Pxp_types.att_value;
+ node_type : Pxp_document.node_type;
+ sub_nodes : < attribute : string -> Pxp_types.att_value;
+ node_type : Pxp_document.node_type;
+ sub_nodes : CicParser3.cic_term Pxp_document.node list;
+ .. >
+ list;
+ .. > ->
+ Cic.annobj
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module is the terms level of a parser for cic objects from xml *)
+(* files to the internal representation. It is used by the module cicParser2 *)
+(* (objects level). It defines an extension of the standard dom using the *)
+(* object-oriented extension machinery of markup: an object with a method *)
+(* to_cic_term that returns the internal representation of the subtree is *)
+(* added to each node of the dom tree *)
+(* *)
+(******************************************************************************)
+
+exception IllFormedXml of int;;
+
+(* The hashtable from the current identifiers to the object or the terms *)
+let ids_to_targets = ref None;;
+
+(* The list of tokens of the current section path. *)
+(* Used to resolve relative URIs *)
+let current_sp = ref [];;
+
+(* The uri of the object been parsed *)
+let current_uri = ref (UriManager.uri_of_string "cic:/.xml");;
+
+(* True if annotation really matter *)
+let process_annotations = ref false;;
+
+(* Utility functions to map a markup attribute to something useful *)
+
+let cic_attr_of_xml_attr =
+ function
+ Pxp_types.Value s -> Cic.Name s
+ | Pxp_types.Implied_value -> Cic.Anonimous
+ | _ -> raise (IllFormedXml 1)
+
+let cic_sort_of_xml_attr =
+ function
+ Pxp_types.Value "Prop" -> Cic.Prop
+ | Pxp_types.Value "Set" -> Cic.Set
+ | Pxp_types.Value "Type" -> Cic.Type
+ | _ -> raise (IllFormedXml 2)
+
+let int_of_xml_attr =
+ function
+ Pxp_types.Value n -> int_of_string n
+ | _ -> raise (IllFormedXml 3)
+
+let uri_of_xml_attr =
+ function
+ Pxp_types.Value s -> UriManager.uri_of_string s
+ | _ -> raise (IllFormedXml 4)
+
+let string_of_xml_attr =
+ function
+ Pxp_types.Value s -> s
+ | _ -> raise (IllFormedXml 5)
+
+let binder_of_xml_attr =
+ function
+ Pxp_types.Value s -> if !process_annotations then Some s else None
+ | _ -> raise (IllFormedXml 17)
+;;
+
+let register_id id node =
+ if !process_annotations then
+ match !ids_to_targets with
+ None -> assert false
+ | Some ids_to_targets ->
+ Hashtbl.add ids_to_targets id (Cic.Term node)
+;;
+
+(* the "interface" of the class linked to each node of the dom tree *)
+
+class virtual cic_term =
+ object (self)
+
+ (* fields and methods ever required by markup *)
+ val mutable node = (None : cic_term Pxp_document.node option)
+
+ method clone = {< >}
+ method node =
+ match node with
+ None ->
+ assert false
+ | Some n -> n
+ method set_node n =
+ node <- Some n
+
+ (* a method that returns the internal representation of the tree (term) *)
+ (* rooted in this node *)
+ method virtual to_cic_term : Cic.annterm
+ end
+;;
+
+(* the class of the objects linked to nodes that are not roots of cic terms *)
+class eltype_not_of_cic =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term = raise (IllFormedXml 6)
+ end
+;;
+
+(* the class of the objects linked to nodes whose content is a cic term *)
+(* (syntactic sugar xml entities) e.g. <type> ... </type> *)
+class eltype_transparent =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ match n#sub_nodes with
+ [ t ] -> t#extension#to_cic_term
+ | _ -> raise (IllFormedXml 7)
+ end
+;;
+
+(* A class for each cic node type *)
+
+class eltype_fix =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let nofun = int_of_xml_attr (n#attribute "noFun")
+ and id = string_of_xml_attr (n#attribute "id")
+ and functions =
+ let sons = n#sub_nodes in
+ List.map
+ (function
+ f when f#node_type = Pxp_document.T_element "FixFunction" ->
+ let name = string_of_xml_attr (f#attribute "name")
+ and recindex = int_of_xml_attr (f#attribute "recIndex")
+ and (ty, body) =
+ match f#sub_nodes with
+ [t ; b] when
+ t#node_type = Pxp_document.T_element "type" &&
+ b#node_type = Pxp_document.T_element "body" ->
+ (t#extension#to_cic_term, b#extension#to_cic_term)
+ | _ -> raise (IllFormedXml 14)
+ in
+ (name, recindex, ty, body)
+ | _ -> raise (IllFormedXml 13)
+ ) sons
+ in
+ let res = Cic.AFix (id, ref None, nofun, functions) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_cofix =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let nofun = int_of_xml_attr (n#attribute "noFun")
+ and id = string_of_xml_attr (n#attribute "id")
+ and functions =
+ let sons = n#sub_nodes in
+ List.map
+ (function
+ f when f#node_type = Pxp_document.T_element "CofixFunction" ->
+ let name = string_of_xml_attr (f#attribute "name")
+ and (ty, body) =
+ match f#sub_nodes with
+ [t ; b] when
+ t#node_type = Pxp_document.T_element "type" &&
+ b#node_type = Pxp_document.T_element "body" ->
+ (t#extension#to_cic_term, b#extension#to_cic_term)
+ | _ -> raise (IllFormedXml 16)
+ in
+ (name, ty, body)
+ | _ -> raise (IllFormedXml 15)
+ ) sons
+ in
+ let res = Cic.ACoFix (id, ref None, nofun, functions) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_implicit =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let id = string_of_xml_attr (n#attribute "id") in
+ let res = Cic.AImplicit (id, ref None) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_rel =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let value = int_of_xml_attr (n#attribute "value")
+ and binder = binder_of_xml_attr (n#attribute "binder")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res = Cic.ARel (id,ref None,value,binder) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_meta =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let value = int_of_xml_attr (n#attribute "no")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res = Cic.AMeta (id,ref None,value) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_var =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let name = string_of_xml_attr (n#attribute "relUri")
+ and xid = string_of_xml_attr (n#attribute "id") in
+ match Str.split (Str.regexp ",") name with
+ [index; id] ->
+ let get_prefix n =
+ let rec aux =
+ function
+ (0,_) -> "/"
+ | (n,he::tl) when n > 0 -> "/" ^ he ^ aux (n - 1, tl)
+ | _ -> raise (IllFormedXml 19)
+ in
+ aux (List.length !current_sp - n,!current_sp)
+ in
+ let res =
+ Cic.AVar
+ (xid,ref None,
+ (UriManager.uri_of_string
+ ("cic:" ^ get_prefix (int_of_string index) ^ id ^ ".var"))
+ )
+ in
+ register_id id res ;
+ res
+ | _ -> raise (IllFormedXml 18)
+ end
+;;
+
+class eltype_apply =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let children = n#sub_nodes
+ and id = string_of_xml_attr (n#attribute "id") in
+ if List.length children < 2 then raise (IllFormedXml 8)
+ else
+ let res =
+ Cic.AAppl
+ (id,ref None,List.map (fun x -> x#extension#to_cic_term) children)
+ in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_cast =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let sons = n#sub_nodes
+ and id = string_of_xml_attr (n#attribute "id") in
+ match sons with
+ [te ; ty] when
+ te#node_type = Pxp_document.T_element "term" &&
+ ty#node_type = Pxp_document.T_element "type" ->
+ let term = te#extension#to_cic_term
+ and typ = ty#extension#to_cic_term in
+ let res = Cic.ACast (id,ref None,term,typ) in
+ register_id id res ;
+ res
+ | _ -> raise (IllFormedXml 9)
+ end
+;;
+
+class eltype_sort =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let sort = cic_sort_of_xml_attr (n#attribute "value")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res = Cic.ASort (id,ref None,sort) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_abst =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let value = uri_of_xml_attr (n#attribute "uri")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res = Cic.AAbst (id,ref None,value) in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_const =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let module U = UriManager in
+ let n = self#node in
+ let value = uri_of_xml_attr (n#attribute "uri")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res =
+ Cic.AConst (id,ref None,value, U.relative_depth !current_uri value 0)
+ in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_mutind =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let module U = UriManager in
+ let n = self#node in
+ let name = uri_of_xml_attr (n#attribute "uri")
+ and noType = int_of_xml_attr (n#attribute "noType")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res =
+ Cic.AMutInd
+ (id,ref None,name, U.relative_depth !current_uri name 0, noType)
+ in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_mutconstruct =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let module U = UriManager in
+ let n = self#node in
+ let name = uri_of_xml_attr (n#attribute "uri")
+ and noType = int_of_xml_attr (n#attribute "noType")
+ and noConstr = int_of_xml_attr (n#attribute "noConstr")
+ and id = string_of_xml_attr (n#attribute "id") in
+ let res =
+ Cic.AMutConstruct
+ (id, ref None, name, U.relative_depth !current_uri name 0,
+ noType, noConstr)
+ in
+ register_id id res ;
+ res
+ end
+;;
+
+class eltype_prod =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let sons = n#sub_nodes
+ and id = string_of_xml_attr (n#attribute "id") in
+ match sons with
+ [s ; t] when
+ s#node_type = Pxp_document.T_element "source" &&
+ t#node_type = Pxp_document.T_element "target" ->
+ let name = cic_attr_of_xml_attr (t#attribute "binder")
+ and source = s#extension#to_cic_term
+ and target = t#extension#to_cic_term in
+ let res = Cic.AProd (id,ref None,name,source,target) in
+ register_id id res ;
+ res
+ | _ -> raise (IllFormedXml 10)
+ end
+;;
+
+class eltype_mutcase =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let module U = UriManager in
+ let n = self#node in
+ let sons = n#sub_nodes
+ and id = string_of_xml_attr (n#attribute "id") in
+ match sons with
+ ty::te::patterns when
+ ty#node_type = Pxp_document.T_element "patternsType" &&
+ te#node_type = Pxp_document.T_element "inductiveTerm" ->
+ let ci = uri_of_xml_attr (n#attribute "uriType")
+ and typeno = int_of_xml_attr (n#attribute "noType")
+ and inductiveType = ty#extension#to_cic_term
+ and inductiveTerm = te#extension#to_cic_term
+ and lpattern= List.map (fun x -> x#extension#to_cic_term) patterns
+ in
+ let res =
+ Cic.AMutCase (id,ref None,ci,U.relative_depth !current_uri ci 0,
+ typeno,inductiveType,inductiveTerm,lpattern)
+ in
+ register_id id res ;
+ res
+ | _ -> raise (IllFormedXml 11)
+ end
+;;
+
+class eltype_lambda =
+ object (self)
+
+ inherit cic_term
+
+ method to_cic_term =
+ let n = self#node in
+ let sons = n#sub_nodes
+ and id = string_of_xml_attr (n#attribute "id") in
+ match sons with
+ [s ; t] when
+ s#node_type = Pxp_document.T_element "source" &&
+ t#node_type = Pxp_document.T_element "target" ->
+ let name = cic_attr_of_xml_attr (t#attribute "binder")
+ and source = s#extension#to_cic_term
+ and target = t#extension#to_cic_term in
+ let res = Cic.ALambda (id,ref None,name,source,target) in
+ register_id id res ;
+ res
+ | _ -> raise (IllFormedXml 12)
+ end
+;;
+
+(* The definition of domspec, an hashtable that maps each node type to the *)
+(* object that must be linked to it. Used by markup. *)
+
+let domspec =
+ let module D = Pxp_document in
+ D.make_spec_from_alist
+ ~data_exemplar: (new D.data_impl (new eltype_not_of_cic))
+ ~default_element_exemplar: (new D.element_impl (new eltype_not_of_cic))
+ ~element_alist:
+ [ "REL", (new D.element_impl (new eltype_rel)) ;
+ "VAR", (new D.element_impl (new eltype_var)) ;
+ "META", (new D.element_impl (new eltype_meta)) ;
+ "SORT", (new D.element_impl (new eltype_sort)) ;
+ "IMPLICIT", (new D.element_impl (new eltype_implicit)) ;
+ "CAST", (new D.element_impl (new eltype_cast)) ;
+ "PROD", (new D.element_impl (new eltype_prod)) ;
+ "LAMBDA", (new D.element_impl (new eltype_lambda)) ;
+ "APPLY", (new D.element_impl (new eltype_apply)) ;
+ "CONST", (new D.element_impl (new eltype_const)) ;
+ "ABST", (new D.element_impl (new eltype_abst)) ;
+ "MUTIND", (new D.element_impl (new eltype_mutind)) ;
+ "MUTCONSTRUCT", (new D.element_impl (new eltype_mutconstruct)) ;
+ "MUTCASE", (new D.element_impl (new eltype_mutcase)) ;
+ "FIX", (new D.element_impl (new eltype_fix)) ;
+ "COFIX", (new D.element_impl (new eltype_cofix)) ;
+ "arity", (new D.element_impl (new eltype_transparent)) ;
+ "term", (new D.element_impl (new eltype_transparent)) ;
+ "type", (new D.element_impl (new eltype_transparent)) ;
+ "body", (new D.element_impl (new eltype_transparent)) ;
+ "source", (new D.element_impl (new eltype_transparent)) ;
+ "target", (new D.element_impl (new eltype_transparent)) ;
+ "patternsType", (new D.element_impl (new eltype_transparent)) ;
+ "inductiveTerm", (new D.element_impl (new eltype_transparent)) ;
+ "pattern", (new D.element_impl (new eltype_transparent))
+ ]
+ ()
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module is the terms level of a parser for cic objects from xml *)
+(* files to the internal representation. It is used by the module cicParser2 *)
+(* (objects level). It defines an extension of the standard dom using the *)
+(* object-oriented extension machinery of markup: an object with a method *)
+(* to_cic_term that returns the internal representation of the subtree is *)
+(* added to each node of the dom tree *)
+(* *)
+(******************************************************************************)
+
+exception IllFormedXml of int
+
+val ids_to_targets : (Cic.id, Cic.anntarget) Hashtbl.t option ref
+val current_sp : string list ref
+val current_uri : UriManager.uri ref
+val process_annotations : bool ref
+
+(* the "interface" of the class linked to each node of the dom tree *)
+class virtual cic_term :
+ object ('a)
+
+ (* fields and methods ever required by markup *)
+ val mutable node : cic_term Pxp_document.node option
+ method clone : 'a
+ method node : cic_term Pxp_document.node
+ method set_node : cic_term Pxp_document.node -> unit
+
+ (* a method that returns the internal representation of the tree (term) *)
+ (* rooted in this node *)
+ method virtual to_cic_term : Cic.annterm
+
+ end
+
+(* The definition of domspec, an hashtable that maps each node type to the *)
+(* object that must be linked to it. Used by markup. *)
+val domspec : cic_term Pxp_document.spec
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module implements a very simple Coq-like pretty printer that, given *)
+(* an object of cic (internal representation) returns a string describing the *)
+(* object in a syntax similar to that of coq *)
+(* *)
+(******************************************************************************)
+
+exception CicPpInternalError;;
+
+(* Utility functions *)
+
+let string_of_name =
+ function
+ Cic.Name s -> s
+ | Cic.Anonimous -> "_"
+;;
+
+(* get_nth l n returns the nth element of the list l if it exists or raise *)
+(* a CicPpInternalError if l has less than n elements or n < 1 *)
+let rec get_nth l n =
+ match (n,l) with
+ (1, he::_) -> he
+ | (n, he::tail) when n > 1 -> get_nth tail (n-1)
+ | (_,_) -> raise CicPpInternalError
+;;
+
+(* pp t l *)
+(* pretty-prints a term t of cic in an environment l where l is a list of *)
+(* identifier names used to resolve DeBrujin indexes. The head of l is the *)
+(* name associated to the greatest DeBrujin index in t *)
+let rec pp t l =
+ let module C = Cic in
+ match t with
+ C.Rel n ->
+ (match get_nth l n with
+ C.Name s -> s
+ | _ -> raise CicPpInternalError
+ )
+ | C.Var uri -> UriManager.name_of_uri uri
+ | C.Meta n -> "?" ^ (string_of_int n)
+ | C.Sort s ->
+ (match s with
+ C.Prop -> "Prop"
+ | C.Set -> "Set"
+ | C.Type -> "Type"
+ )
+ | C.Implicit -> "?"
+ | C.Prod (b,s,t) ->
+ (match b with
+ C.Name n -> "(" ^ n ^ ":" ^ pp s l ^ ")" ^ pp t (b::l)
+ | C.Anonimous -> "(" ^ pp s l ^ "->" ^ pp t (b::l) ^ ")"
+ )
+ | C.Cast (v,t) -> pp v l
+ | C.Lambda (b,s,t) ->
+ "[" ^ string_of_name b ^ ":" ^ pp s l ^ "]" ^ pp t (b::l)
+ | C.Appl li ->
+ "(" ^
+ (List.fold_right
+ (fun x i -> pp x l ^ (match i with "" -> "" | _ -> " ") ^ i)
+ li ""
+ ) ^ ")"
+ | C.Const (uri,_) -> UriManager.name_of_uri uri
+ | C.Abst uri -> UriManager.name_of_uri uri
+ | C.MutInd (uri,_,n) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (dl,_,_) ->
+ let (name,_,_,_) = get_nth dl (n+1) in
+ name
+ | _ -> raise CicPpInternalError
+ )
+ | C.MutConstruct (uri,_,n1,n2) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (dl,_,_) ->
+ let (_,_,_,cons) = get_nth dl (n1+1) in
+ let (id,_,_) = get_nth cons n2 in
+ id
+ | _ -> raise CicPpInternalError
+ )
+ | C.MutCase (uri,_,n1,ty,te,patterns) ->
+ let connames =
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (dl,_,_) ->
+ let (_,_,_,cons) = get_nth dl (n1+1) in
+ List.map (fun (id,_,_) -> id) cons
+ | _ -> raise CicPpInternalError
+ )
+ in
+ "\n<" ^ pp ty l ^ ">Cases " ^ pp te l ^ " of " ^
+ List.fold_right (fun (x,y) i -> "\n " ^ x ^ " => " ^ pp y l ^ i)
+ (List.combine connames patterns) "" ^
+ "\nend"
+ | C.Fix (no, funs) ->
+ let snames = List.map (fun (name,_,_,_) -> name) funs in
+ let names = List.rev (List.map (function name -> C.Name name) snames) in
+ "\nFix " ^ get_nth snames (no + 1) ^ " {" ^
+ List.fold_right
+ (fun (name,ind,ty,bo) i -> "\n" ^ name ^ " / " ^ string_of_int ind ^
+ " : " ^ pp ty l ^ " := \n" ^
+ pp bo (names@l) ^ i)
+ funs "" ^
+ "}\n"
+ | C.CoFix (no,funs) ->
+ let snames = List.map (fun (name,_,_) -> name) funs in
+ let names = List.rev (List.map (function name -> C.Name name) snames) in
+ "\nCoFix " ^ get_nth snames (no + 1) ^ " {" ^
+ List.fold_right
+ (fun (name,ty,bo) i -> "\n" ^ name ^
+ " : " ^ pp ty l ^ " := \n" ^
+ pp bo (names@l) ^ i)
+ funs "" ^
+ "}\n"
+;;
+
+(* ppinductiveType (typename, inductive, arity, cons) names *)
+(* pretty-prints a single inductive definition (typename, inductive, arity, *)
+(* cons) where the cic terms in the inductive definition need to be *)
+(* evaluated in the environment names that is the list of typenames of the *)
+(* mutual inductive definitions defined in the block of mutual inductive *)
+(* definitions to which this one belongs to *)
+let ppinductiveType (typename, inductive, arity, cons) names =
+ (if inductive then "\nInductive " else "\nCoInductive ") ^ typename ^ ": " ^
+ (*CSC: bug found: was pp arity names ^ " =\n " ^*)
+ pp arity [] ^ " =\n " ^
+ List.fold_right
+ (fun (id,ty,_) i -> id ^ " : " ^ pp ty names ^
+ (if i = "" then "\n" else "\n | ") ^ i)
+ cons ""
+;;
+
+(* ppobj obj returns a string with describing the cic object obj in a syntax *)
+(* similar to the one used by Coq *)
+let ppobj obj =
+ let module C = Cic in
+ let module U = UriManager in
+ match obj with
+ C.Definition (id, t1, t2, params) ->
+ "Definition of " ^ id ^
+ "(" ^
+ List.fold_right
+ (fun (_,x) i ->
+ List.fold_right
+ (fun x i ->
+ U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
+ ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
+ ) params "" ^ ")" ^
+ ":\n" ^ pp t1 [] ^ " : " ^ pp t2 []
+ | C.Axiom (id, ty, params) ->
+ "Axiom " ^ id ^ "(" ^
+ List.fold_right
+ (fun (_,x) i ->
+ List.fold_right
+ (fun x i ->
+ U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
+ ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
+ ) params "" ^
+ "):\n" ^ pp ty []
+ | C.Variable (name, ty) ->
+ "Variable " ^ name ^ ":\n" ^ pp ty []
+ | C.CurrentProof (name, conjectures, value, ty) ->
+ "Current Proof:\n" ^
+ List.fold_right
+ (fun (n, t) i -> "?" ^ (string_of_int n) ^ ": " ^ pp t [] ^ "\n" ^ i)
+ conjectures "" ^
+ "\n" ^ pp value [] ^ " : " ^ pp ty []
+ | C.InductiveDefinition (l, params, nparams) ->
+ "Parameters = " ^
+ List.fold_right
+ (fun (_,x) i ->
+ List.fold_right
+ (fun x i ->
+ U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
+ ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
+ ) params "" ^ "\n" ^
+ "NParams = " ^ string_of_int nparams ^ "\n" ^
+ let names = List.rev (List.map (fun (n,_,_,_) -> C.Name n) l) in
+ List.fold_right (fun x i -> ppinductiveType x names ^ i) l ""
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This module implements a very simple Coq-like pretty printer that, given *)
+(* an object of cic (internal representation) returns a string describing the *)
+(* object in a syntax similar to that of coq *)
+(* *)
+(******************************************************************************)
+
+(* ppobj obj returns a string with describing the cic object obj in a syntax *)
+(* similar to the one used by Coq *)
+val ppobj : Cic.obj -> string
--- /dev/null
+exception CicReductionInternalError;;
+exception WrongUriToInductiveDefinition;;
+
+let fdebug = ref 1;;
+let debug t env s =
+ let rec debug_aux t i =
+ let module C = Cic in
+ let module U = UriManager in
+ CicPp.ppobj (C.Variable ("DEBUG",
+ C.Prod (C.Name "-9", C.Const (U.uri_of_string "cic:/dummy-9",0),
+ C.Prod (C.Name "-8", C.Const (U.uri_of_string "cic:/dummy-8",0),
+ C.Prod (C.Name "-7", C.Const (U.uri_of_string "cic:/dummy-7",0),
+ C.Prod (C.Name "-6", C.Const (U.uri_of_string "cic:/dummy-6",0),
+ C.Prod (C.Name "-5", C.Const (U.uri_of_string "cic:/dummy-5",0),
+ C.Prod (C.Name "-4", C.Const (U.uri_of_string "cic:/dummy-4",0),
+ C.Prod (C.Name "-3", C.Const (U.uri_of_string "cic:/dummy-3",0),
+ C.Prod (C.Name "-2", C.Const (U.uri_of_string "cic:/dummy-2",0),
+ C.Prod (C.Name "-1", C.Const (U.uri_of_string "cic:/dummy-1",0),
+ t
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ )) ^ "\n" ^ i
+ in
+ if !fdebug = 0 then
+ begin
+ print_endline (s ^ "\n" ^ List.fold_right debug_aux (t::env) "") ;
+ flush stdout
+ end
+;;
+
+exception Impossible of int;;
+exception ReferenceToDefinition;;
+exception ReferenceToAxiom;;
+exception ReferenceToVariable;;
+exception ReferenceToCurrentProof;;
+exception ReferenceToInductiveDefinition;;
+
+(* takes a well-typed term *)
+let whd =
+ let rec whdaux l =
+ let module C = Cic in
+ let module S = CicSubstitution in
+ function
+ C.Rel _ as t -> if l = [] then t else C.Appl (t::l)
+ | C.Var _ as t -> if l = [] then t else C.Appl (t::l)
+ | C.Meta _ as t -> if l = [] then t else C.Appl (t::l)
+ | C.Sort _ as t -> t (* l should be empty *)
+ | C.Implicit as t -> t
+ | C.Cast (te,ty) -> whdaux l te (*CSC E' GIUSTO BUTTARE IL CAST? *)
+ | C.Prod _ as t -> t (* l should be empty *)
+ | C.Lambda (name,s,t) as t' ->
+ (match l with
+ [] -> t'
+ | he::tl -> whdaux tl (S.subst he t)
+ (* when name is Anonimous the substitution should be superfluous *)
+ )
+ | C.Appl (he::tl) -> whdaux (tl@l) he
+ | C.Appl [] -> raise (Impossible 1)
+ | C.Const (uri,cookingsno) as t ->
+ (match CicCache.get_cooked_obj uri cookingsno with
+ C.Definition (_,body,_,_) -> whdaux l body
+ | C.Axiom _ -> if l = [] then t else C.Appl (t::l)
+ (*CSC: Prossima riga sbagliata: Var punta alle variabili, non Const *)
+ | C.Variable _ -> if l = [] then t else C.Appl (t::l)
+ | C.CurrentProof (_,_,body,_) -> whdaux l body
+ | C.InductiveDefinition _ -> raise ReferenceToInductiveDefinition
+ )
+ | C.Abst _ as t -> t (*CSC l should be empty ????? *)
+ | C.MutInd (uri,_,_) as t -> if l = [] then t else C.Appl (t::l)
+ | C.MutConstruct (uri,_,_,_) as t -> if l = [] then t else C.Appl (t::l)
+ | C.MutCase (mutind,cookingsno,i,_,term,pl) as t ->
+ let decofix =
+ function
+ C.CoFix (i,fl) as t ->
+ let (_,_,body) = List.nth fl i in
+ let body' =
+ let counter = ref (List.length fl) in
+ List.fold_right
+ (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
+ fl
+ body
+ in
+ whdaux [] body'
+ | C.Appl (C.CoFix (i,fl) :: tl) ->
+ let (_,_,body) = List.nth fl i in
+ let body' =
+ let counter = ref (List.length fl) in
+ List.fold_right
+ (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
+ fl
+ body
+ in
+ whdaux tl body'
+ | t -> t
+ in
+ (match decofix (whdaux [] term) with
+ C.MutConstruct (_,_,_,j) -> whdaux l (List.nth pl (j-1))
+ | C.Appl (C.MutConstruct (_,_,_,j) :: tl) ->
+ let (arity, r, num_ingredients) =
+ match CicCache.get_obj mutind with
+ C.InductiveDefinition (tl,ingredients,r) ->
+ let (_,_,arity,_) = List.nth tl i
+ and num_ingredients =
+ List.fold_right
+ (fun (k,l) i ->
+ if k < cookingsno then i + List.length l else i
+ ) ingredients 0
+ in
+ (arity,r,num_ingredients)
+ | _ -> raise WrongUriToInductiveDefinition
+ in
+ let ts =
+ let num_to_eat = r + num_ingredients in
+ let rec eat_first =
+ function
+ (0,l) -> l
+ | (n,he::tl) when n > 0 -> eat_first (n - 1, tl)
+ | _ -> raise (Impossible 5)
+ in
+ eat_first (num_to_eat,tl)
+ in
+ whdaux (ts@l) (List.nth pl (j-1))
+ | C.Abst _| C.Cast _ | C.Implicit ->
+ raise (Impossible 2) (* we don't trust our whd ;-) *)
+ | _ -> t
+ )
+ | C.Fix (i,fl) as t ->
+ let (_,recindex,_,body) = List.nth fl i in
+ let recparam =
+ try
+ Some (List.nth l recindex)
+ with
+ _ -> None
+ in
+ (match recparam with
+ Some recparam ->
+ (match whdaux [] recparam with
+ C.MutConstruct _
+ | C.Appl ((C.MutConstruct _)::_) ->
+ let body' =
+ let counter = ref (List.length fl) in
+ List.fold_right
+ (fun _ -> decr counter ; S.subst (C.Fix (!counter,fl)))
+ fl
+ body
+ in
+ (* Possible optimization: substituting whd recparam in l *)
+ whdaux l body'
+ | _ -> if l = [] then t else C.Appl (t::l)
+ )
+ | None -> if l = [] then t else C.Appl (t::l)
+ )
+ | C.CoFix (i,fl) as t ->
+ (*CSC vecchio codice
+ let (_,_,body) = List.nth fl i in
+ let body' =
+ let counter = ref (List.length fl) in
+ List.fold_right
+ (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
+ fl
+ body
+ in
+ whdaux l body'
+ *)
+ if l = [] then t else C.Appl (t::l)
+ in
+ whdaux []
+;;
+
+(* t1, t2 must be well-typed *)
+let are_convertible t1 t2 =
+ let module U = UriManager in
+ let rec aux t1 t2 =
+ debug t1 [t2] "PREWHD";
+ (* this trivial euristic cuts down the total time of about five times ;-) *)
+ (* this because most of the time t1 and t2 are "sintactically" the same *)
+ if t1 = t2 then
+ true
+ else
+ begin
+ let module C = Cic in
+ let t1' = whd t1
+ and t2' = whd t2 in
+ debug t1' [t2'] "POSTWHD";
+ (*if !fdebug = 0 then ignore(Unix.system "read" );*)
+ match (t1',t2') with
+ (C.Rel n1, C.Rel n2) -> n1 = n2
+ | (C.Var uri1, C.Var uri2) -> U.eq uri1 uri2
+ | (C.Meta n1, C.Meta n2) -> n1 = n2
+ | (C.Sort s1, C.Sort s2) -> true (*CSC da finire con gli universi *)
+ | (C.Prod (_,s1,t1), C.Prod(_,s2,t2)) ->
+ aux s1 s2 && aux t1 t2
+ | (C.Lambda (_,s1,t1), C.Lambda(_,s2,t2)) ->
+ aux s1 s2 && aux t1 t2
+ | (C.Appl l1, C.Appl l2) ->
+ (try
+ List.fold_right2 (fun x y b -> aux x y && b) l1 l2 true
+ with
+ Invalid_argument _ -> false
+ )
+ | (C.Const (uri1,_), C.Const (uri2,_)) ->
+ (*CSC: questo commento e' chiaro o delirante? Io lo sto scrivendo *)
+ (*CSC: mentre sono delirante, quindi ... *)
+ (* WARNING: it is really important that the two cookingsno are not *)
+ (* checked for equality. This allows not to cook an object with no *)
+ (* ingredients only to update the cookingsno. E.g: if a term t has *)
+ (* a reference to a term t1 which does not depend on any variable *)
+ (* and t1 depends on a term t2 (that can't depend on any variable *)
+ (* because of t1), then t1 cooked at every level could be the same *)
+ (* as t1 cooked at level 0. Doing so, t2 will be extended in t *)
+ (* with cookingsno 0 and not 2. But this will not cause any trouble*)
+ (* if here we don't check that the two cookingsno are equal. *)
+ U.eq uri1 uri2
+ | (C.MutInd (uri1,k1,i1), C.MutInd (uri2,k2,i2)) ->
+ (* WARNIG: see the previous warning *)
+ U.eq uri1 uri2 && i1 = i2
+ | (C.MutConstruct (uri1,_,i1,j1), C.MutConstruct (uri2,_,i2,j2)) ->
+ (* WARNIG: see the previous warning *)
+ U.eq uri1 uri2 && i1 = i2 && j1 = j2
+ | (C.MutCase (uri1,_,i1,outtype1,term1,pl1),
+ C.MutCase (uri2,_,i2,outtype2,term2,pl2)) ->
+ (* WARNIG: see the previous warning *)
+ (* aux outtype1 outtype2 should be true if aux pl1 pl2 *)
+ U.eq uri1 uri2 && i1 = i2 && aux outtype1 outtype2 &&
+ aux term1 term2 &&
+ List.fold_right2 (fun x y b -> b && aux x y) pl1 pl2 true
+ | (C.Fix (i1,fl1), C.Fix (i2,fl2)) ->
+ i1 = i2 &&
+ List.fold_right2
+ (fun (_,recindex1,ty1,bo1) (_,recindex2,ty2,bo2) b ->
+ b && recindex1 = recindex2 && aux ty1 ty2 && aux bo1 bo2)
+ fl1 fl2 true
+ | (C.CoFix (i1,fl1), C.CoFix (i2,fl2)) ->
+ i1 = i2 &&
+ List.fold_right2
+ (fun (_,ty1,bo1) (_,ty2,bo2) b ->
+ b && aux ty1 ty2 && aux bo1 bo2)
+ fl1 fl2 true
+ | (C.Abst _, _) | (_, C.Abst _) | (C.Cast _, _) | (_, C.Cast _)
+ | (C.Implicit, _) | (_, C.Implicit) ->
+ raise (Impossible 3) (* we don't trust our whd ;-) *)
+ | (_,_) -> false
+ end
+ in
+ aux t1 t2
+;;
--- /dev/null
+exception WrongUriToInductiveDefinition
+exception ReferenceToDefinition
+exception ReferenceToAxiom
+exception ReferenceToVariable
+exception ReferenceToCurrentProof
+exception ReferenceToInductiveDefinition
+val fdebug : int ref
+val whd : Cic.term -> Cic.term
+val are_convertible : Cic.term -> Cic.term -> bool
--- /dev/null
+let lift n =
+ let rec liftaux k =
+ let module C = Cic in
+ function
+ C.Rel m ->
+ if m < k then
+ C.Rel m
+ else
+ C.Rel (m + n)
+ | C.Var _ as t -> t
+ | C.Meta _ as t -> t
+ | C.Sort _ as t -> t
+ | C.Implicit as t -> t
+ | C.Cast (te,ty) -> C.Cast (liftaux k te, liftaux k ty)
+ | C.Prod (n,s,t) -> C.Prod (n, liftaux k s, liftaux (k+1) t)
+ | C.Lambda (n,s,t) -> C.Lambda (n, liftaux k s, liftaux (k+1) t)
+ | C.Appl l -> C.Appl (List.map (liftaux k) l)
+ | C.Const _ as t -> t
+ | C.Abst _ as t -> t
+ | C.MutInd _ as t -> t
+ | C.MutConstruct _ as t -> t
+ | C.MutCase (sp,cookingsno,i,outty,t,pl) ->
+ C.MutCase (sp, cookingsno, i, liftaux k outty, liftaux k t,
+ List.map (liftaux k) pl)
+ | C.Fix (i, fl) ->
+ let len = List.length fl in
+ let liftedfl =
+ List.map
+ (fun (name, i, ty, bo) -> (name, i, liftaux k ty, liftaux (k+len) bo))
+ fl
+ in
+ C.Fix (i, liftedfl)
+ | C.CoFix (i, fl) ->
+ let len = List.length fl in
+ let liftedfl =
+ List.map
+ (fun (name, ty, bo) -> (name, liftaux k ty, liftaux (k+len) bo))
+ fl
+ in
+ C.CoFix (i, liftedfl)
+ in
+ liftaux 1
+;;
+
+let subst arg =
+ let rec substaux k =
+ let module C = Cic in
+ function
+ C.Rel n as t ->
+ (match n with
+ n when n = k -> lift (k - 1) arg
+ | n when n < k -> t
+ | _ -> C.Rel (n - 1)
+ )
+ | C.Var _ as t -> t
+ | C.Meta _ as t -> t
+ | C.Sort _ as t -> t
+ | C.Implicit as t -> t
+ | C.Cast (te,ty) -> C.Cast (substaux k te, substaux k ty) (*CSC ??? *)
+ | C.Prod (n,s,t) -> C.Prod (n, substaux k s, substaux (k + 1) t)
+ | C.Lambda (n,s,t) -> C.Lambda (n, substaux k s, substaux (k + 1) t)
+ | C.Appl l -> C.Appl (List.map (substaux k) l)
+ | C.Const _ as t -> t
+ | C.Abst _ as t -> t
+ | C.MutInd _ as t -> t
+ | C.MutConstruct _ as t -> t
+ | C.MutCase (sp,cookingsno,i,outt,t,pl) ->
+ C.MutCase (sp,cookingsno,i,substaux k outt, substaux k t,
+ List.map (substaux k) pl)
+ | C.Fix (i,fl) ->
+ let len = List.length fl in
+ let substitutedfl =
+ List.map
+ (fun (name,i,ty,bo) -> (name, i, substaux k ty, substaux (k+len) bo))
+ fl
+ in
+ C.Fix (i, substitutedfl)
+ | C.CoFix (i,fl) ->
+ let len = List.length fl in
+ let substitutedfl =
+ List.map
+ (fun (name,ty,bo) -> (name, substaux k ty, substaux (k+len) bo))
+ fl
+ in
+ C.CoFix (i, substitutedfl)
+ in
+ substaux 1
+;;
+
+let undebrujin_inductive_def uri =
+ function
+ Cic.InductiveDefinition (dl,params,n_ind_params) ->
+ let dl' =
+ List.map
+ (fun (name,inductive,arity,constructors) ->
+ let constructors' =
+ List.map
+ (fun (name,ty,r) ->
+ let ty' =
+ let counter = ref (List.length dl) in
+ List.fold_right
+ (fun _ ->
+ decr counter ;
+ subst (Cic.MutInd (uri,0,!counter))
+ ) dl ty
+ in
+ (name,ty',r)
+ ) constructors
+ in
+ (name,inductive,arity,constructors')
+ ) dl
+ in
+ Cic.InductiveDefinition (dl', params, n_ind_params)
+ | obj -> obj
+;;
--- /dev/null
+val lift : int -> Cic.term -> Cic.term
+val subst : Cic.term -> Cic.term -> Cic.term
+val undebrujin_inductive_def : UriManager.uri -> Cic.obj -> Cic.obj
--- /dev/null
+exception NotImplemented;;
+exception Impossible;;
+exception NotWellTyped of string;;
+exception WrongUriToConstant of string;;
+exception WrongUriToVariable of string;;
+exception WrongUriToMutualInductiveDefinitions of string;;
+exception ListTooShort;;
+exception NotPositiveOccurrences of string;;
+exception NotWellFormedTypeOfInductiveConstructor of string;;
+exception WrongRequiredArgument of string;;
+
+let fdebug = ref 0;;
+let debug t env =
+ let rec debug_aux t i =
+ let module C = Cic in
+ let module U = UriManager in
+ CicPp.ppobj (C.Variable ("DEBUG",
+ C.Prod (C.Name "-15", C.Const (U.uri_of_string "cic:/dummy-15",0),
+ C.Prod (C.Name "-14", C.Const (U.uri_of_string "cic:/dummy-14",0),
+ C.Prod (C.Name "-13", C.Const (U.uri_of_string "cic:/dummy-13",0),
+ C.Prod (C.Name "-12", C.Const (U.uri_of_string "cic:/dummy-12",0),
+ C.Prod (C.Name "-11", C.Const (U.uri_of_string "cic:/dummy-11",0),
+ C.Prod (C.Name "-10", C.Const (U.uri_of_string "cic:/dummy-10",0),
+ C.Prod (C.Name "-9", C.Const (U.uri_of_string "cic:/dummy-9",0),
+ C.Prod (C.Name "-8", C.Const (U.uri_of_string "cic:/dummy-8",0),
+ C.Prod (C.Name "-7", C.Const (U.uri_of_string "cic:/dummy-7",0),
+ C.Prod (C.Name "-6", C.Const (U.uri_of_string "cic:/dummy-6",0),
+ C.Prod (C.Name "-5", C.Const (U.uri_of_string "cic:/dummy-5",0),
+ C.Prod (C.Name "-4", C.Const (U.uri_of_string "cic:/dummy-4",0),
+ C.Prod (C.Name "-3", C.Const (U.uri_of_string "cic:/dummy-3",0),
+ C.Prod (C.Name "-2", C.Const (U.uri_of_string "cic:/dummy-2",0),
+ C.Prod (C.Name "-1", C.Const (U.uri_of_string "cic:/dummy-1",0),
+ t
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ )
+ )))))))
+ )) ^ "\n" ^ i
+ in
+ if !fdebug = 0 then
+ raise (NotWellTyped ("\n" ^ List.fold_right debug_aux (t::env) ""))
+ (*print_endline ("\n" ^ List.fold_right debug_aux (t::env) "") ; flush stdout*)
+;;
+
+let rec split l n =
+ match (l,n) with
+ (l,0) -> ([], l)
+ | (he::tl, n) -> let (l1,l2) = split tl (n-1) in (he::l1,l2)
+ | (_,_) -> raise ListTooShort
+;;
+
+exception CicCacheError;;
+
+let rec cooked_type_of_constant uri cookingsno =
+ let module C = Cic in
+ let module R = CicReduction in
+ let module U = UriManager in
+ let cobj =
+ match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj uobj ->
+ (* let's typecheck the uncooked obj *)
+ (match uobj with
+ C.Definition (_,te,ty,_) ->
+ let _ = type_of ty in
+ if not (R.are_convertible (type_of te) ty) then
+ raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
+ | C.Axiom (_,ty,_) ->
+ (* only to check that ty is well-typed *)
+ let _ = type_of ty in ()
+ | C.CurrentProof (_,_,te,ty) ->
+ let _ = type_of ty in
+ if not (R.are_convertible (type_of te) ty) then
+ raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
+ | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
+ ) ;
+ CicCache.set_type_checking_info uri ;
+ match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj _ -> raise CicCacheError
+ in
+ match cobj with
+ C.Definition (_,_,ty,_) -> ty
+ | C.Axiom (_,ty,_) -> ty
+ | C.CurrentProof (_,_,_,ty) -> ty
+ | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
+
+and type_of_variable uri =
+ let module C = Cic in
+ let module R = CicReduction in
+ (* 0 because a variable is never cooked => no partial cooking at one level *)
+ match CicCache.is_type_checked uri 0 with
+ CicCache.CheckedObj (C.Variable (_,ty)) -> ty
+ | CicCache.UncheckedObj (C.Variable (_,ty)) ->
+ (* only to check that ty is well-typed *)
+ let _ = type_of ty in
+ CicCache.set_type_checking_info uri ;
+ ty
+ | _ -> raise (WrongUriToVariable (UriManager.string_of_uri uri))
+
+and does_not_occur n nn te =
+ let module C = Cic in
+ (*CSC: whd sembra essere superflua perche' un caso in cui l'occorrenza *)
+ (*CSC: venga mangiata durante la whd sembra presentare problemi di *)
+ (*CSC: universi *)
+ match CicReduction.whd te with
+ C.Rel m when m > n && m <= nn -> false
+ | C.Rel _
+ | C.Var _
+ | C.Meta _
+ | C.Sort _
+ | C.Implicit -> true
+ | C.Cast (te,ty) -> does_not_occur n nn te && does_not_occur n nn ty
+ | C.Prod (_,so,dest) ->
+ does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
+ | C.Lambda (_,so,dest) ->
+ does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
+ | C.Appl l ->
+ List.fold_right (fun x i -> i && does_not_occur n nn x) l true
+ | C.Const _
+ | C.Abst _
+ | C.MutInd _
+ | C.MutConstruct _ -> true
+ | C.MutCase (_,_,_,out,te,pl) ->
+ does_not_occur n nn out && does_not_occur n nn te &&
+ List.fold_right (fun x i -> i && does_not_occur n nn x) pl true
+ | C.Fix (_,fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len in
+ let nn_plus_len = nn + len in
+ List.fold_right
+ (fun (_,_,ty,bo) i ->
+ i && does_not_occur n_plus_len nn_plus_len ty &&
+ does_not_occur n_plus_len nn_plus_len bo
+ ) fl true
+ | C.CoFix (_,fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len in
+ let nn_plus_len = nn + len in
+ List.fold_right
+ (fun (_,ty,bo) i ->
+ i && does_not_occur n_plus_len nn_plus_len ty &&
+ does_not_occur n_plus_len nn_plus_len bo
+ ) fl true
+
+(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
+(*CSC questa funzione e' simile alla are_all_occurrences_positive, ma fa *)
+(*CSC dei controlli leggermente diversi. Viene invocata solamente dalla *)
+(*CSC strictly_positive *)
+(*CSC definizione (giusta???) tratta dalla mail di Hugo ;-) *)
+and weakly_positive n nn uri te =
+ let module C = Cic in
+ (*CSC mettere in cicSubstitution *)
+ let rec subst_inductive_type_with_dummy_rel =
+ function
+ C.MutInd (uri',_,0) when UriManager.eq uri' uri ->
+ C.Rel 0 (* dummy rel *)
+ | C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri ->
+ C.Rel 0 (* dummy rel *)
+ | C.Cast (te,ty) -> subst_inductive_type_with_dummy_rel te
+ | C.Prod (name,so,ta) ->
+ C.Prod (name, subst_inductive_type_with_dummy_rel so,
+ subst_inductive_type_with_dummy_rel ta)
+ | C.Lambda (name,so,ta) ->
+ C.Lambda (name, subst_inductive_type_with_dummy_rel so,
+ subst_inductive_type_with_dummy_rel ta)
+ | C.Appl tl ->
+ C.Appl (List.map subst_inductive_type_with_dummy_rel tl)
+ | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
+ C.MutCase (uri,cookingsno,i,
+ subst_inductive_type_with_dummy_rel outtype,
+ subst_inductive_type_with_dummy_rel term,
+ List.map subst_inductive_type_with_dummy_rel pl)
+ | C.Fix (i,fl) ->
+ C.Fix (i,List.map (fun (name,i,ty,bo) -> (name,i,
+ subst_inductive_type_with_dummy_rel ty,
+ subst_inductive_type_with_dummy_rel bo)) fl)
+ | C.CoFix (i,fl) ->
+ C.CoFix (i,List.map (fun (name,ty,bo) -> (name,
+ subst_inductive_type_with_dummy_rel ty,
+ subst_inductive_type_with_dummy_rel bo)) fl)
+ | t -> t
+ in
+ match CicReduction.whd te with
+ C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri -> true
+ | C.MutInd (uri',_,0) when UriManager.eq uri' uri -> true
+ | C.Prod (C.Anonimous,source,dest) ->
+ strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
+ weakly_positive (n + 1) (nn + 1) uri dest
+ | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
+ (* dummy abstraction, so we behave as in the anonimous case *)
+ strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
+ weakly_positive (n + 1) (nn + 1) uri dest
+ | C.Prod (_,source,dest) ->
+ does_not_occur n nn (subst_inductive_type_with_dummy_rel source) &&
+ weakly_positive (n + 1) (nn + 1) uri dest
+ | _ -> raise (NotWellFormedTypeOfInductiveConstructor ("Guess where the error is ;-)"))
+
+(* instantiate_parameters ps (x1:T1)...(xn:Tn)C *)
+(* returns ((x_|ps|:T_|ps|)...(xn:Tn)C){ps_1 / x1 ; ... ; ps_|ps| / x_|ps|} *)
+and instantiate_parameters params c =
+ let module C = Cic in
+ match (c,params) with
+ (c,[]) -> c
+ | (C.Prod (_,_,ta), he::tl) ->
+ instantiate_parameters tl
+ (CicSubstitution.subst he ta)
+ | (C.Cast (te,_), _) -> instantiate_parameters params te
+ | (t,l) -> raise Impossible
+
+and strictly_positive n nn te =
+ let module C = Cic in
+ let module U = UriManager in
+ match CicReduction.whd te with
+ C.Rel _ -> true
+ | C.Cast (te,ty) ->
+ (*CSC: bisogna controllare ty????*)
+ strictly_positive n nn te
+ | C.Prod (_,so,ta) ->
+ does_not_occur n nn so &&
+ strictly_positive (n+1) (nn+1) ta
+ | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
+ List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
+ | C.Appl ((C.MutInd (uri,_,i))::tl) ->
+ let (ok,paramsno,cl) =
+ match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,paramsno) ->
+ let (_,_,_,cl) = List.nth tl i in
+ (List.length tl = 1, paramsno, cl)
+ | _ -> raise(WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ in
+ let (params,arguments) = split tl paramsno in
+ let lifted_params = List.map (CicSubstitution.lift 1) params in
+ let cl' =
+ List.map (fun (_,te,_) -> instantiate_parameters lifted_params te) cl
+ in
+ ok &&
+ List.fold_right
+ (fun x i -> i && does_not_occur n nn x)
+ arguments true &&
+ (*CSC: MEGAPATCH3 (sara' quella giusta?)*)
+ List.fold_right
+ (fun x i ->
+ i &&
+ weakly_positive (n+1) (nn+1) uri x
+ ) cl' true
+ | C.MutInd (uri,_,i) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,_) ->
+ List.length tl = 1
+ | _ -> raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ )
+ | t -> does_not_occur n nn t
+
+(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
+and are_all_occurrences_positive uri indparamsno i n nn te =
+ let module C = Cic in
+ match CicReduction.whd te with
+ C.Appl ((C.Rel m)::tl) when m = i ->
+ (*CSC: riscrivere fermandosi a 0 *)
+ (* let's check if the inductive type is applied at least to *)
+ (* indparamsno parameters *)
+ let last =
+ List.fold_left
+ (fun k x ->
+ if k = 0 then 0
+ else
+ match CicReduction.whd x with
+ C.Rel m when m = n - (indparamsno - k) -> k - 1
+ | _ -> raise (WrongRequiredArgument (UriManager.string_of_uri uri))
+ ) indparamsno tl
+ in
+ if last = 0 then
+ List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
+ else
+ raise (WrongRequiredArgument (UriManager.string_of_uri uri))
+ | C.Rel m when m = i ->
+ if indparamsno = 0 then
+ true
+ else
+ raise (WrongRequiredArgument (UriManager.string_of_uri uri))
+ | C.Prod (C.Anonimous,source,dest) ->
+ strictly_positive n nn source &&
+ are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
+ | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
+ (* dummy abstraction, so we behave as in the anonimous case *)
+ strictly_positive n nn source &&
+ are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
+ | C.Prod (_,source,dest) ->
+ does_not_occur n nn source &&
+ are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
+ | _ -> raise (NotWellFormedTypeOfInductiveConstructor (UriManager.string_of_uri uri))
+
+(*CSC: cambiare il nome, torna unit! *)
+and cooked_mutual_inductive_defs uri =
+ let module U = UriManager in
+ function
+ Cic.InductiveDefinition (itl, _, indparamsno) ->
+ (* let's check if the arity of the inductive types are well *)
+ (* formed *)
+ List.iter (fun (_,_,x,_) -> let _ = type_of x in ()) itl ;
+
+ (* let's check if the types of the inductive constructors *)
+ (* are well formed. *)
+ (* In order not to use type_of_aux we put the types of the *)
+ (* mutual inductive types at the head of the types of the *)
+ (* constructors using Prods *)
+ (*CSC: piccola??? inefficienza *)
+ let len = List.length itl in
+ let _ =
+ List.fold_right
+ (fun (_,_,_,cl) i ->
+ List.iter
+ (fun (name,te,r) ->
+ let augmented_term =
+ List.fold_right
+ (fun (name,_,ty,_) i -> Cic.Prod (Cic.Name name, ty, i))
+ itl te
+ in
+ let _ = type_of augmented_term in
+ (* let's check also the positivity conditions *)
+ if not (are_all_occurrences_positive uri indparamsno i 0 len te)
+ then
+ raise (NotPositiveOccurrences (U.string_of_uri uri))
+ else
+ match !r with
+ Some _ -> raise Impossible
+ | None -> r := Some (recursive_args 0 len te)
+ ) cl ;
+ (i + 1)
+ ) itl 1
+ in
+ ()
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+
+and cooked_type_of_mutual_inductive_defs uri cookingsno i =
+ let module C = Cic in
+ let module R = CicReduction in
+ let module U = UriManager in
+ let cobj =
+ match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj uobj ->
+ cooked_mutual_inductive_defs uri uobj ;
+ CicCache.set_type_checking_info uri ;
+ (match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj _ -> raise CicCacheError
+ )
+ in
+ match cobj with
+ C.InductiveDefinition (dl,_,_) ->
+ let (_,_,arity,_) = List.nth dl i in
+ arity
+ | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+
+and cooked_type_of_mutual_inductive_constr uri cookingsno i j =
+ let module C = Cic in
+ let module R = CicReduction in
+ let module U = UriManager in
+ let cobj =
+ match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj uobj ->
+ cooked_mutual_inductive_defs uri uobj ;
+ CicCache.set_type_checking_info uri ;
+ (match CicCache.is_type_checked uri cookingsno with
+ CicCache.CheckedObj cobj -> cobj
+ | CicCache.UncheckedObj _ -> raise CicCacheError
+ )
+ in
+ match cobj with
+ C.InductiveDefinition (dl,_,_) ->
+ let (_,_,_,cl) = List.nth dl i in
+ let (_,ty,_) = List.nth cl (j-1) in
+ ty
+ | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+
+and recursive_args n nn te =
+ let module C = Cic in
+ match CicReduction.whd te with
+ C.Rel _ -> []
+ | C.Var _
+ | C.Meta _
+ | C.Sort _
+ | C.Implicit
+ | C.Cast _ (*CSC ??? *) -> raise Impossible (* due to type-checking *)
+ | C.Prod (_,so,de) ->
+ (not (does_not_occur n nn so))::(recursive_args (n+1) (nn + 1) de)
+ | C.Lambda _ -> raise Impossible (* due to type-checking *)
+ | C.Appl _ -> []
+ | C.Const _
+ | C.Abst _ -> raise Impossible
+ | C.MutInd _
+ | C.MutConstruct _
+ | C.MutCase _
+ | C.Fix _
+ | C.CoFix _ -> raise Impossible (* due to type-checking *)
+
+and get_new_safes p c rl safes n nn x =
+ let module C = Cic in
+ let module U = UriManager in
+ let module R = CicReduction in
+ match (R.whd c, R.whd p, rl) with
+ (C.Prod (_,_,ta1), C.Lambda (_,_,ta2), b::tl) ->
+ (* we are sure that the two sources are convertible because we *)
+ (* have just checked this. So let's go along ... *)
+ let safes' =
+ List.map (fun x -> x + 1) safes
+ in
+ let safes'' =
+ if b then 1::safes' else safes'
+ in
+ get_new_safes ta2 ta1 tl safes'' (n+1) (nn+1) (x+1)
+ | (C.MutInd _, e, []) -> (e,safes,n,nn,x)
+ | (C.Appl _, e, []) -> (e,safes,n,nn,x)
+ | (_,_,_) -> raise Impossible
+
+and eat_prods n te =
+ let module C = Cic in
+ let module R = CicReduction in
+ match (n, R.whd te) with
+ (0, _) -> te
+ | (n, C.Prod (_,_,ta)) when n > 0 -> eat_prods (n - 1) ta
+ | (_, _) -> raise Impossible
+
+and eat_lambdas n te =
+ let module C = Cic in
+ let module R = CicReduction in
+ match (n, R.whd te) with
+ (0, _) -> (te, 0)
+ | (n, C.Lambda (_,_,ta)) when n > 0 ->
+ let (te, k) = eat_lambdas (n - 1) ta in
+ (te, k + 1)
+ | (_, _) -> raise Impossible
+
+(*CSC: Tutto quello che segue e' l'intuzione di luca ;-) *)
+and check_is_really_smaller_arg n nn kl x safes te =
+ (*CSC: forse la whd si puo' fare solo quando serve veramente. *)
+ (*CSC: cfr guarded_by_destructors *)
+ let module C = Cic in
+ let module U = UriManager in
+ match CicReduction.whd te with
+ C.Rel m when List.mem m safes -> true
+ | C.Rel _ -> false
+ | C.Var _
+ | C.Meta _
+ | C.Sort _
+ | C.Implicit
+ | C.Cast _
+(* | C.Cast (te,ty) ->
+ check_is_really_smaller_arg n nn kl x safes te &&
+ check_is_really_smaller_arg n nn kl x safes ty*)
+(* | C.Prod (_,so,ta) ->
+ check_is_really_smaller_arg n nn kl x safes so &&
+ check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
+ (List.map (fun x -> x + 1) safes) ta*)
+ | C.Prod _ -> raise Impossible
+ | C.Lambda (_,so,ta) ->
+ check_is_really_smaller_arg n nn kl x safes so &&
+ check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
+ (List.map (fun x -> x + 1) safes) ta
+ | C.Appl (he::_) ->
+ (*CSC: sulla coda ci vogliono dei controlli? secondo noi no, ma *)
+ (*CSC: solo perche' non abbiamo trovato controesempi *)
+ check_is_really_smaller_arg n nn kl x safes he
+ | C.Appl [] -> raise Impossible
+ | C.Const _
+ | C.Abst _
+ | C.MutInd _ -> raise Impossible
+ | C.MutConstruct _ -> false
+ | C.MutCase (uri,_,i,outtype,term,pl) ->
+ (match term with
+ C.Rel m when List.mem m safes || m = x ->
+ let (isinductive,paramsno,cl) =
+ match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,paramsno) ->
+ let (_,isinductive,_,cl) = List.nth tl i in
+ let cl' =
+ List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
+ in
+ (isinductive,paramsno,cl')
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ in
+ if not isinductive then
+ List.fold_right
+ (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
+ pl true
+ else
+ List.fold_right
+ (fun (p,(_,c,rl)) i ->
+ let rl' =
+ match !rl with
+ Some rl' ->
+ let (_,rl'') = split rl' paramsno in
+ rl''
+ | None -> raise Impossible
+ in
+ let (e,safes',n',nn',x') =
+ get_new_safes p c rl' safes n nn x
+ in
+ i &&
+ check_is_really_smaller_arg n' nn' kl x' safes' e
+ ) (List.combine pl cl) true
+ | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
+ let (isinductive,paramsno,cl) =
+ match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,paramsno) ->
+ let (_,isinductive,_,cl) = List.nth tl i in
+ let cl' =
+ List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
+ in
+ (isinductive,paramsno,cl')
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ in
+ if not isinductive then
+ List.fold_right
+ (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
+ pl true
+ else
+ (*CSC: supponiamo come prima che nessun controllo sia necessario*)
+ (*CSC: sugli argomenti di una applicazione *)
+ List.fold_right
+ (fun (p,(_,c,rl)) i ->
+ let rl' =
+ match !rl with
+ Some rl' ->
+ let (_,rl'') = split rl' paramsno in
+ rl''
+ | None -> raise Impossible
+ in
+ let (e, safes',n',nn',x') =
+ get_new_safes p c rl' safes n nn x
+ in
+ i &&
+ check_is_really_smaller_arg n' nn' kl x' safes' e
+ ) (List.combine pl cl) true
+ | _ ->
+ List.fold_right
+ (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
+ pl true
+ )
+ | C.Fix (_, fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len
+ and x_plus_len = x + len
+ and safes' = List.map (fun x -> x + len) safes in
+ List.fold_right
+ (fun (_,_,ty,bo) i ->
+ i &&
+ check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
+ safes' bo
+ ) fl true
+ | C.CoFix (_, fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len
+ and x_plus_len = x + len
+ and safes' = List.map (fun x -> x + len) safes in
+ List.fold_right
+ (fun (_,ty,bo) i ->
+ i &&
+ check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
+ safes' bo
+ ) fl true
+
+and guarded_by_destructors n nn kl x safes =
+ let module C = Cic in
+ let module U = UriManager in
+ function
+ C.Rel m when m > n && m <= nn -> false
+ | C.Rel _
+ | C.Var _
+ | C.Meta _
+ | C.Sort _
+ | C.Implicit -> true
+ | C.Cast (te,ty) ->
+ guarded_by_destructors n nn kl x safes te &&
+ guarded_by_destructors n nn kl x safes ty
+ | C.Prod (_,so,ta) ->
+ guarded_by_destructors n nn kl x safes so &&
+ guarded_by_destructors (n+1) (nn+1) kl (x+1)
+ (List.map (fun x -> x + 1) safes) ta
+ | C.Lambda (_,so,ta) ->
+ guarded_by_destructors n nn kl x safes so &&
+ guarded_by_destructors (n+1) (nn+1) kl (x+1)
+ (List.map (fun x -> x + 1) safes) ta
+ | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
+ let k = List.nth kl (m - n - 1) in
+ if not (List.length tl > k) then false
+ else
+ List.fold_right
+ (fun param i ->
+ i && guarded_by_destructors n nn kl x safes param
+ ) tl true &&
+ check_is_really_smaller_arg n nn kl x safes (List.nth tl k)
+ | C.Appl tl ->
+ List.fold_right (fun t i -> i && guarded_by_destructors n nn kl x safes t)
+ tl true
+ | C.Const _
+ | C.Abst _
+ | C.MutInd _
+ | C.MutConstruct _ -> true
+ | C.MutCase (uri,_,i,outtype,term,pl) ->
+ (match term with
+ C.Rel m when List.mem m safes || m = x ->
+ let (isinductive,paramsno,cl) =
+ match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,paramsno) ->
+ let (_,isinductive,_,cl) = List.nth tl i in
+ let cl' =
+ List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
+ in
+ (isinductive,paramsno,cl')
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ in
+ if not isinductive then
+ guarded_by_destructors n nn kl x safes outtype &&
+ guarded_by_destructors n nn kl x safes term &&
+ (*CSC: manca ??? il controllo sul tipo di term? *)
+ List.fold_right
+ (fun p i -> i && guarded_by_destructors n nn kl x safes p)
+ pl true
+ else
+ guarded_by_destructors n nn kl x safes outtype &&
+ (*CSC: manca ??? il controllo sul tipo di term? *)
+ List.fold_right
+ (fun (p,(_,c,rl)) i ->
+ let rl' =
+ match !rl with
+ Some rl' ->
+ let (_,rl'') = split rl' paramsno in
+ rl''
+ | None -> raise Impossible
+ in
+ let (e,safes',n',nn',x') =
+ get_new_safes p c rl' safes n nn x
+ in
+ i &&
+ guarded_by_destructors n' nn' kl x' safes' e
+ ) (List.combine pl cl) true
+ | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
+ let (isinductive,paramsno,cl) =
+ match CicCache.get_obj uri with
+ C.InductiveDefinition (tl,_,paramsno) ->
+ let (_,isinductive,_,cl) = List.nth tl i in
+ let cl' =
+ List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
+ in
+ (isinductive,paramsno,cl')
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
+ in
+ if not isinductive then
+ guarded_by_destructors n nn kl x safes outtype &&
+ guarded_by_destructors n nn kl x safes term &&
+ (*CSC: manca ??? il controllo sul tipo di term? *)
+ List.fold_right
+ (fun p i -> i && guarded_by_destructors n nn kl x safes p)
+ pl true
+ else
+ guarded_by_destructors n nn kl x safes outtype &&
+ (*CSC: manca ??? il controllo sul tipo di term? *)
+ List.fold_right
+ (fun t i -> i && guarded_by_destructors n nn kl x safes t)
+ tl true &&
+ List.fold_right
+ (fun (p,(_,c,rl)) i ->
+ let rl' =
+ match !rl with
+ Some rl' ->
+ let (_,rl'') = split rl' paramsno in
+ rl''
+ | None -> raise Impossible
+ in
+ let (e, safes',n',nn',x') =
+ get_new_safes p c rl' safes n nn x
+ in
+ i &&
+ guarded_by_destructors n' nn' kl x' safes' e
+ ) (List.combine pl cl) true
+ | _ ->
+ guarded_by_destructors n nn kl x safes outtype &&
+ guarded_by_destructors n nn kl x safes term &&
+ (*CSC: manca ??? il controllo sul tipo di term? *)
+ List.fold_right
+ (fun p i -> i && guarded_by_destructors n nn kl x safes p)
+ pl true
+ )
+ | C.Fix (_, fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len
+ and x_plus_len = x + len
+ and safes' = List.map (fun x -> x + len) safes in
+ List.fold_right
+ (fun (_,_,ty,bo) i ->
+ i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
+ safes' ty &&
+ guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
+ safes' bo
+ ) fl true
+ | C.CoFix (_, fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len
+ and x_plus_len = x + len
+ and safes' = List.map (fun x -> x + len) safes in
+ List.fold_right
+ (fun (_,ty,bo) i ->
+ i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
+ safes' ty &&
+ guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len safes'
+ bo
+ ) fl true
+
+(*CSC h = 0 significa non ancora protetto *)
+and guarded_by_constructors n nn h =
+ let module C = Cic in
+ function
+ C.Rel m when m > n && m <= nn -> h = 1
+ | C.Rel _
+ | C.Var _
+ | C.Meta _
+ | C.Sort _
+ | C.Implicit -> true (*CSC: ma alcuni sono impossibili!!!! vedi Prod *)
+ | C.Cast (te,ty) ->
+ guarded_by_constructors n nn h te &&
+ guarded_by_constructors n nn h ty
+ | C.Prod (_,so,de) ->
+ raise Impossible (* the term has just been type-checked *)
+ | C.Lambda (_,so,de) ->
+ does_not_occur n nn so &&
+ guarded_by_constructors (n + 1) (nn + 1) h de
+ | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
+ h = 1 &&
+ List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
+ | C.Appl ((C.MutConstruct (uri,cookingsno,i,j))::tl) ->
+ let (is_coinductive, rl) =
+ match CicCache.get_cooked_obj uri cookingsno with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,is_inductive,_,cl) = List.nth itl i in
+ let (_,cons,rrec_args) = List.nth cl (j - 1) in
+ (match !rrec_args with
+ None -> raise Impossible
+ | Some rec_args -> (not is_inductive, rec_args)
+ )
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions
+ (UriManager.string_of_uri uri))
+ in
+ is_coinductive &&
+ List.fold_right
+ (fun (x,r) i ->
+ i &&
+ if r then
+ guarded_by_constructors n nn 1 x
+ else
+ does_not_occur n nn x
+ ) (List.combine tl rl) true
+ | C.Appl l ->
+ List.fold_right (fun x i -> i && does_not_occur n nn x) l true
+ | C.Const _
+ | C.Abst _
+ | C.MutInd _
+ | C.MutConstruct _ -> true (*CSC: ma alcuni sono impossibili!!!! vedi Prod *)
+ | C.MutCase (_,_,_,out,te,pl) ->
+ let rec returns_a_coinductive =
+ function
+ (*CSC: per le regole di tipaggio, la chiamata ricorsiva verra' *)
+ (*CSC: effettata solo una volta, per mangiarsi l'astrazione *)
+ (*CSC: non dummy *)
+ C.Lambda (_,_,de) -> returns_a_coinductive de
+ | C.MutInd (uri,_,i) ->
+ (*CSC: definire una funzioncina per questo codice sempre replicato *)
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,is_inductive,_,_) = List.nth itl i in
+ not is_inductive
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions
+ (UriManager.string_of_uri uri))
+ )
+ (*CSC: bug nella prossima riga (manca la whd) *)
+ | C.Appl ((C.MutInd (uri,_,i))::_) ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,is_inductive,_,_) = List.nth itl i in
+ not is_inductive
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions
+ (UriManager.string_of_uri uri))
+ )
+ | _ -> false
+ in
+ does_not_occur n nn out &&
+ does_not_occur n nn te &&
+ if returns_a_coinductive out then
+ List.fold_right
+ (fun x i -> i && guarded_by_constructors n nn h x) pl true
+ else
+ List.fold_right (fun x i -> i && does_not_occur n nn x) pl true
+ | C.Fix (_,fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len in
+ List.fold_right
+ (fun (_,_,ty,bo) i ->
+ i && does_not_occur n_plus_len nn_plus_len ty &&
+ does_not_occur n_plus_len nn_plus_len bo
+ ) fl true
+ | C.CoFix (_,fl) ->
+ let len = List.length fl in
+ let n_plus_len = n + len
+ and nn_plus_len = nn + len in
+ List.fold_right
+ (fun (_,ty,bo) i ->
+ i && does_not_occur n_plus_len nn_plus_len ty &&
+ does_not_occur n_plus_len nn_plus_len bo
+ ) fl true
+
+and check_allowed_sort_elimination uri i need_dummy ind arity1 arity2 =
+ let module C = Cic in
+ let module U = UriManager in
+ match (CicReduction.whd arity1, CicReduction.whd arity2) with
+ (C.Prod (_,so1,de1), C.Prod (_,so2,de2))
+ when CicReduction.are_convertible so1 so2 ->
+ check_allowed_sort_elimination uri i need_dummy
+ (C.Appl [CicSubstitution.lift 1 ind ; C.Rel 1]) de1 de2
+ | (C.Sort C.Prop, C.Sort C.Prop) when need_dummy -> true
+ | (C.Sort C.Prop, C.Sort C.Set) when need_dummy ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,_,_,cl) = List.nth itl i in
+ (* is a singleton definition? *)
+ List.length cl = 1
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+ )
+ | (C.Sort C.Set, C.Sort C.Prop) when need_dummy -> true
+ | (C.Sort C.Set, C.Sort C.Set) when need_dummy -> true
+ | (C.Sort C.Set, C.Sort C.Type) when need_dummy ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,_,_,cl) = List.nth itl i in
+ (* is a small inductive type? *)
+ (*CSC: ottimizzare calcolando staticamente *)
+ let rec is_small =
+ function
+ C.Prod (_,so,de) ->
+ let s = type_of so in
+ (s = C.Sort C.Prop || s = C.Sort C.Set) &&
+ is_small de
+ | _ -> true (*CSC: we trust the type-checker *)
+ in
+ List.fold_right (fun (_,x,_) i -> i && is_small x) cl true
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+ )
+ | (C.Sort C.Type, C.Sort _) when need_dummy -> true
+ | (C.Sort C.Prop, C.Prod (_,so,ta)) when not need_dummy ->
+ let res = CicReduction.are_convertible so ind
+ in
+ res &&
+ (match CicReduction.whd ta with
+ C.Sort C.Prop -> true
+ | C.Sort C.Set ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,_,_,cl) = List.nth itl i in
+ (* is a singleton definition? *)
+ List.length cl = 1
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions
+ (U.string_of_uri uri))
+ )
+ | _ -> false
+ )
+ | (C.Sort C.Set, C.Prod (_,so,ta)) when not need_dummy ->
+ let res = CicReduction.are_convertible so ind
+ in
+ res &&
+ (match CicReduction.whd ta with
+ C.Sort C.Prop
+ | C.Sort C.Set -> true
+ | C.Sort C.Type ->
+ (match CicCache.get_obj uri with
+ C.InductiveDefinition (itl,_,_) ->
+ let (_,_,_,cl) = List.nth itl i in
+ (* is a small inductive type? *)
+ let rec is_small =
+ function
+ C.Prod (_,so,de) ->
+ let s = type_of so in
+ (s = C.Sort C.Prop || s = C.Sort C.Set) &&
+ is_small de
+ | _ -> true (*CSC: we trust the type-checker *)
+ in
+ List.fold_right (fun (_,x,_) i -> i && is_small x) cl true
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions
+ (U.string_of_uri uri))
+ )
+ | _ -> raise Impossible
+ )
+ | (C.Sort C.Type, C.Prod (_,so,_)) when not need_dummy ->
+ CicReduction.are_convertible so ind
+ | (_,_) -> false
+
+and type_of_branch argsno need_dummy outtype term constype =
+ let module C = Cic in
+ let module R = CicReduction in
+ match R.whd constype with
+ C.MutInd (_,_,_) ->
+ if need_dummy then
+ outtype
+ else
+ C.Appl [outtype ; term]
+ | C.Appl (C.MutInd (_,_,_)::tl) ->
+ let (_,arguments) = split tl argsno
+ in
+ if need_dummy && arguments = [] then
+ outtype
+ else
+ C.Appl (outtype::arguments@(if need_dummy then [] else [term]))
+ | C.Prod (name,so,de) ->
+ C.Prod (C.Name "pippo",so,type_of_branch argsno need_dummy
+ (CicSubstitution.lift 1 outtype)
+ (C.Appl [CicSubstitution.lift 1 term ; C.Rel 1]) de)
+ | _ -> raise Impossible
+
+
+and type_of t =
+ let rec type_of_aux env =
+ let module C = Cic in
+ let module R = CicReduction in
+ let module S = CicSubstitution in
+ let module U = UriManager in
+ function
+ C.Rel n -> S.lift n (List.nth env (n - 1))
+ | C.Var uri ->
+ incr fdebug ;
+ let ty = type_of_variable uri in
+ decr fdebug ;
+ ty
+ | C.Meta n -> raise NotImplemented
+ | C.Sort s -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
+ | C.Implicit -> raise Impossible
+ | C.Cast (te,ty) ->
+ let _ = type_of ty in
+ if R.are_convertible (type_of_aux env te) ty then ty
+ else raise (NotWellTyped "Cast")
+ | C.Prod (_,s,t) ->
+ let sort1 = type_of_aux env s
+ and sort2 = type_of_aux (s::env) t in
+ sort_of_prod (sort1,sort2)
+ | C.Lambda (n,s,t) ->
+ let sort1 = type_of_aux env s
+ and type2 = type_of_aux (s::env) t in
+ let sort2 = type_of_aux (s::env) type2 in
+ (* only to check if the product is well-typed *)
+ let _ = sort_of_prod (sort1,sort2) in
+ C.Prod (n,s,type2)
+ | C.Appl (he::tl) when List.length tl > 0 ->
+ let hetype = type_of_aux env he
+ and tlbody_and_type = List.map (fun x -> (x, type_of_aux env x)) tl in
+ (try
+ eat_prods hetype tlbody_and_type
+ with _ -> debug (C.Appl (he::tl)) env ; C.Implicit)
+ | C.Appl _ -> raise (NotWellTyped "Appl: no arguments")
+ | C.Const (uri,cookingsno) ->
+ incr fdebug ;
+ let cty = cooked_type_of_constant uri cookingsno in
+ decr fdebug ;
+ cty
+ | C.Abst _ -> raise Impossible
+ | C.MutInd (uri,cookingsno,i) ->
+ incr fdebug ;
+ let cty = cooked_type_of_mutual_inductive_defs uri cookingsno i in
+ decr fdebug ;
+ cty
+ | C.MutConstruct (uri,cookingsno,i,j) ->
+ let cty = cooked_type_of_mutual_inductive_constr uri cookingsno i j
+ in
+ cty
+ | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
+ let outsort = type_of_aux env outtype in
+ let (need_dummy, k) =
+ let rec guess_args t =
+ match decast t with
+ C.Sort _ -> (true, 0)
+ | C.Prod (_, s, t) ->
+ let (b, n) = guess_args t in
+ if n = 0 then
+ (* last prod before sort *)
+ match CicReduction.whd s with
+ (*CSC vedi nota delirante su cookingsno in cicReduction.ml *)
+ C.MutInd (uri',_,i') when U.eq uri' uri && i' = i -> (false, 1)
+ | C.Appl ((C.MutInd (uri',_,i')) :: _)
+ when U.eq uri' uri && i' = i -> (false, 1)
+ | _ -> (true, 1)
+ else
+ (b, n + 1)
+ | _ -> raise (NotWellTyped "MutCase: outtype ill-formed")
+ in
+ (*CSC whd non serve dopo type_of_aux ? *)
+ let (b, k) = guess_args outsort in
+ if not b then (b, k - 1) else (b, k)
+ in
+ let (parameters, arguments) =
+ match R.whd (type_of_aux env term) with
+ (*CSC manca il caso dei CAST *)
+ C.MutInd (uri',_,i') ->
+ (*CSC vedi nota delirante sui cookingsno in cicReduction.ml*)
+ if U.eq uri uri' && i = i' then ([],[])
+ else raise (NotWellTyped ("MutCase: the term is of type " ^
+ (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
+ " instead of type " ^ (U.string_of_uri uri') ^ "," ^
+ string_of_int i))
+ | C.Appl (C.MutInd (uri',_,i') :: tl) ->
+ if U.eq uri uri' && i = i' then split tl (List.length tl - k)
+ else raise (NotWellTyped ("MutCase: the term is of type " ^
+ (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
+ " instead of type " ^ (U.string_of_uri uri) ^ "," ^
+ string_of_int i))
+ | _ -> raise (NotWellTyped "MutCase: the term is not an inductive one")
+ in
+ (* let's control if the sort elimination is allowed: [(I q1 ... qr)|B] *)
+ let sort_of_ind_type =
+ if parameters = [] then
+ C.MutInd (uri,cookingsno,i)
+ else
+ C.Appl ((C.MutInd (uri,cookingsno,i))::parameters)
+ in
+ if not (check_allowed_sort_elimination uri i need_dummy
+ sort_of_ind_type (type_of_aux env sort_of_ind_type) outsort)
+ then
+ raise (NotWellTyped "MutCase: not allowed sort elimination") ;
+
+ (* let's check if the type of branches are right *)
+ let (cl,parsno) =
+ match CicCache.get_cooked_obj uri cookingsno with
+ C.InductiveDefinition (tl,_,parsno) ->
+ let (_,_,_,cl) = List.nth tl i in (cl,parsno)
+ | _ ->
+ raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
+ in
+ let (_,branches_ok) =
+ List.fold_left
+ (fun (j,b) (p,(_,c,_)) ->
+ let cons =
+ if parameters = [] then
+ (C.MutConstruct (uri,cookingsno,i,j))
+ else
+ (C.Appl (C.MutConstruct (uri,cookingsno,i,j)::parameters))
+ in
+ (j + 1, b &&
+ R.are_convertible (type_of_aux env p)
+ (type_of_branch parsno need_dummy outtype cons
+ (type_of_aux env cons))
+ )
+ ) (1,true) (List.combine pl cl)
+ in
+ if not branches_ok then
+ raise (NotWellTyped "MutCase: wrong type of a branch") ;
+
+ if not need_dummy then
+ C.Appl ((outtype::arguments)@[term])
+ else if arguments = [] then
+ outtype
+ else
+ C.Appl (outtype::arguments)
+ | C.Fix (i,fl) ->
+ let types_times_kl =
+ List.rev
+ (List.map (fun (_,k,ty,_) -> let _ = type_of_aux env ty in (ty,k)) fl)
+ in
+ let (types,kl) = List.split types_times_kl in
+ let len = List.length types in
+ List.iter
+ (fun (name,x,ty,bo) ->
+ if (R.are_convertible (type_of_aux (types @ env) bo)
+ (CicSubstitution.lift len ty))
+ then
+ begin
+ let (m, eaten) = eat_lambdas (x + 1) bo in
+ (*let's control the guarded by destructors conditions D{f,k,x,M}*)
+ if not (guarded_by_destructors eaten (len + eaten) kl 1 [] m) then
+ raise (NotWellTyped "Fix: not guarded by destructors")
+ end
+ else
+ raise (NotWellTyped "Fix: ill-typed bodies")
+ ) fl ;
+
+ (*CSC: controlli mancanti solo su D{f,k,x,M} *)
+ let (_,_,ty,_) = List.nth fl i in
+ ty
+ | C.CoFix (i,fl) ->
+ let types =
+ List.rev (List.map (fun (_,ty,_) -> let _ = type_of_aux env ty in ty) fl)
+ in
+ let len = List.length types in
+ List.iter
+ (fun (_,ty,bo) ->
+ if (R.are_convertible (type_of_aux (types @ env) bo)
+ (CicSubstitution.lift len ty))
+ then
+ begin
+ (* let's control the guarded by constructors conditions C{f,M} *)
+ if not (guarded_by_constructors 0 len 0 bo) then
+ raise (NotWellTyped "CoFix: not guarded by constructors")
+ end
+ else
+ raise (NotWellTyped "CoFix: ill-typed bodies")
+ ) fl ;
+
+ let (_,ty,_) = List.nth fl i in
+ ty
+
+ and decast =
+ let module C = Cic in
+ function
+ C.Cast (t,_) -> t
+ | t -> t
+
+ and sort_of_prod (t1, t2) =
+ let module C = Cic in
+ match (decast t1, decast t2) with
+ (C.Sort s1, C.Sort s2)
+ when (s2 = C.Prop or s2 = C.Set) -> (* different from Coq manual!!! *)
+ C.Sort s2
+ | (C.Sort s1, C.Sort s2) -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
+ | (_,_) -> raise (NotWellTyped "Prod")
+
+ and eat_prods hetype =
+ (*CSC: siamo sicuri che le are_convertible non lavorino con termini non *)
+ (*CSC: cucinati *)
+ function
+ [] -> hetype
+ | (hete, hety)::tl ->
+ (match (CicReduction.whd hetype) with
+ Cic.Prod (n,s,t) ->
+ if CicReduction.are_convertible s hety then
+ (CicReduction.fdebug := -1 ;
+ eat_prods (CicSubstitution.subst hete t) tl
+ )
+ else
+ (
+ CicReduction.fdebug := 0 ;
+ let _ = CicReduction.are_convertible s hety in
+ debug hete [hety ; s] ;
+ raise (NotWellTyped "Appl: wrong parameter-type")
+)
+ | _ -> raise (NotWellTyped "Appl: wrong Prod-type")
+ )
+ in
+ type_of_aux [] t
+;;
+
+let typecheck uri =
+ let module C = Cic in
+ let module R = CicReduction in
+ let module U = UriManager in
+ match CicCache.is_type_checked uri 0 with
+ CicCache.CheckedObj _ -> ()
+ | CicCache.UncheckedObj uobj ->
+ (* let's typecheck the uncooked object *)
+ (match uobj with
+ C.Definition (_,te,ty,_) ->
+ let _ = type_of ty in
+ if not (R.are_convertible (type_of te ) ty) then
+ raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
+ | C.Axiom (_,ty,_) ->
+ (* only to check that ty is well-typed *)
+ let _ = type_of ty in ()
+ | C.CurrentProof (_,_,te,ty) ->
+ (*CSC [] wrong *)
+ let _ = type_of ty in
+ debug (type_of te) [] ;
+ if not (R.are_convertible (type_of te) ty) then
+ raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
+ | C.Variable (_,ty) ->
+ (* only to check that ty is well-typed *)
+ (*CSC [] wrong *)
+ let _ = type_of ty in ()
+ | C.InductiveDefinition _ ->
+ cooked_mutual_inductive_defs uri uobj
+ ) ;
+ CicCache.set_type_checking_info uri
+;;
--- /dev/null
+exception NotWellTyped of string
+exception WrongUriToConstant of string
+exception WrongUriToVariable of string
+exception WrongUriToMutualInductiveDefinitions of string
+exception ListTooShort
+exception NotPositiveOccurrences of string
+exception NotWellFormedTypeOfInductiveConstructor of string
+exception WrongRequiredArgument of string
+val typecheck : UriManager.uri -> unit
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 14/06/2000 *)
+(* *)
+(* *)
+(******************************************************************************)
+
+let get_annotation_from_term annterm =
+ let module C = Cic in
+ match annterm with
+ C.ARel (_,ann,_,_) -> ann
+ | C.AVar (_,ann,_) -> ann
+ | C.AMeta (_,ann,_) -> ann
+ | C.ASort (_,ann,_) -> ann
+ | C.AImplicit (_,ann) -> ann
+ | C.ACast (_,ann,_,_) -> ann
+ | C.AProd (_,ann,_,_,_) -> ann
+ | C.ALambda (_,ann,_,_,_) -> ann
+ | C.AAppl (_,ann,_) -> ann
+ | C.AConst (_,ann,_,_) -> ann
+ | C.AAbst (_,ann,_) -> ann
+ | C.AMutInd (_,ann,_,_,_) -> ann
+ | C.AMutConstruct (_,ann,_,_,_,_)-> ann
+ | C.AMutCase (_,ann,_,_,_,_,_,_) -> ann
+ | C.AFix (_,ann,_,_) -> ann
+ | C.ACoFix (_,ann,_,_) -> ann
+;;
+
+let get_annotation_from_obj annobj =
+ let module C = Cic in
+ match annobj with
+ C.ADefinition (_,ann,_,_,_,_) -> ann
+ | C.AAxiom (_,ann,_,_,_) -> ann
+ | C.AVariable (_,ann,_,_) -> ann
+ | C.ACurrentProof (_,ann,_,_,_,_) -> ann
+ | C.AInductiveDefinition (_,ann,_,_,_) -> ann
+;;
+
+exception IdUnknown of string;;
+
+let get_annotation (annobj,ids_to_targets) xpath =
+ try
+ match Hashtbl.find ids_to_targets xpath with
+ Cic.Object annobj -> get_annotation_from_obj annobj
+ | Cic.Term annterm -> get_annotation_from_term annterm
+ with
+ Not_found -> raise (IdUnknown xpath)
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 11/04/2000 *)
+(* *)
+(* *)
+(******************************************************************************)
+
+(* functions to parse an XPath to retrieve the annotation *)
+
+exception WrongXPath of string;;
+
+let rec get_annotation_of_inductiveFun f xpath =
+ let module C = Cic in
+ match (xpath,f) with
+ 1::tl,(_,_,ty,_) -> get_annotation_of_term ty tl
+ | 2::tl,(_,_,_,te) -> get_annotation_of_term te tl
+ | l,_ ->
+ raise (WrongXPath (List.fold_right (fun n i -> string_of_int n ^ i) l ""))
+
+and get_annotation_of_coinductiveFun f xpath =
+ let module C = Cic in
+ match (xpath,f) with
+ 1::tl,(_,ty,_) -> get_annotation_of_term ty tl
+ | 2::tl,(_,_,te) -> get_annotation_of_term te tl
+ | l,_ ->
+ raise (WrongXPath (List.fold_right (fun n i -> string_of_int n ^ i) l ""))
+
+and get_annotation_of_inductiveType ty xpath =
+ let module C = Cic in
+ match (xpath,ty) with
+ 1::tl,(_,_,arity,_) -> get_annotation_of_term arity tl
+ | n::tl,(_,_,_,cons) when n <= List.length cons + 1 ->
+ let (_,ty,_) = List.nth cons (n-2) in
+ get_annotation_of_term ty tl
+ | l,_ ->
+ raise (WrongXPath (List.fold_right (fun n i -> string_of_int n ^ i) l ""))
+
+and get_annotation_of_term term xpath =
+ let module C = Cic in
+ match (xpath,term) with
+ [],C.ARel (_,ann,_,_) -> ann
+ | [],C.AVar (_,ann,_) -> ann
+ | [],C.AMeta (_,ann,_) -> ann
+ | [],C.ASort (_,ann,_) -> ann
+ | [],C.AImplicit (_,ann) -> ann
+ | [],C.ACast (_,ann,_,_) -> ann
+ | 1::tl,C.ACast (_,_,te,_) -> get_annotation_of_term te tl
+ | 2::tl,C.ACast (_,_,_,ty) -> get_annotation_of_term ty tl
+ | [],C.AProd (_,ann,_,_,_) -> ann
+ | 1::tl,C.AProd (_,_,_,so,_) -> get_annotation_of_term so tl
+ | 2::tl,C.AProd (_,_,_,_,ta) -> get_annotation_of_term ta tl
+ | [],C.ALambda (_,ann,_,_,_) -> ann
+ | 1::tl,C.ALambda (_,_,_,so,_) -> get_annotation_of_term so tl
+ | 2::tl,C.ALambda (_,_,_,_,ta) -> get_annotation_of_term ta tl
+ | [],C.AAppl (_,ann,_) -> ann
+ | n::tl,C.AAppl (_,_,l) when n <= List.length l ->
+ get_annotation_of_term (List.nth l (n-1)) tl
+ | [],C.AConst (_,ann,_,_) -> ann
+ | [],C.AAbst (_,ann,_) -> ann
+ | [],C.AMutInd (_,ann,_,_,_) -> ann
+ | [],C.AMutConstruct (_,ann,_,_,_,_) -> ann
+ | [],C.AMutCase (_,ann,_,_,_,_,_,_) -> ann
+ | 1::tl,C.AMutCase (_,_,_,_,_,outt,_,_) -> get_annotation_of_term outt tl
+ | 2::tl,C.AMutCase (_,_,_,_,_,_,te,_) -> get_annotation_of_term te tl
+ | n::tl,C.AMutCase (_,_,_,_,_,_,_,pl) when n <= List.length pl ->
+ get_annotation_of_term (List.nth pl (n-1)) tl
+ | [],C.AFix (_,ann,_,_) -> ann
+ | n::tl,C.AFix (_,_,_,fl) when n <= List.length fl ->
+ get_annotation_of_inductiveFun (List.nth fl (n-1)) tl
+ | [],C.ACoFix (_,ann,_,_) -> ann
+ | n::tl,C.ACoFix (_,_,_,fl) when n <= List.length fl ->
+ get_annotation_of_coinductiveFun (List.nth fl (n-1)) tl
+ | l,_ ->
+ raise (WrongXPath (List.fold_right (fun n i -> string_of_int n ^ i) l ""))
+;;
+
+let get_annotation (annobj,_) xpath =
+ let module C = Cic in
+ match (xpath,annobj) with
+ [],C.ADefinition (_,ann,_,_,_,_) -> ann
+ | 1::tl,C.ADefinition (_,_,_,bo,_,_) -> get_annotation_of_term bo tl
+ | 2::tl,C.ADefinition (_,_,_,_,ty,_) -> get_annotation_of_term ty tl
+ | [],C.AAxiom (_,ann,_,_,_) -> ann
+ | 1::tl,C.AAxiom (_,_,_,ty,_) -> get_annotation_of_term ty tl
+ | [],C.AVariable (_,ann,_,_) -> ann
+ | 1::tl,C.AVariable (_,_,_,ty) -> get_annotation_of_term ty tl
+ | [],C.ACurrentProof (_,ann,_,_,_,_) -> ann
+ | n::tl,C.ACurrentProof (_,ann,_,conjs,_,_) when n <= List.length conjs ->
+ get_annotation_of_term (snd (List.nth conjs (n-1))) tl
+ | n::tl,C.ACurrentProof (_,ann,_,conjs,bo,_) when n = List.length conjs + 1 ->
+ get_annotation_of_term bo tl
+ | n::tl,C.ACurrentProof (_,ann,_,conjs,_,ty) when n = List.length conjs + 2 ->
+ get_annotation_of_term ty tl
+ | [],C.AInductiveDefinition (_,ann,_,_,_) -> ann
+ | n::tl,C.AInductiveDefinition (_,_,tys,_,_) when n <= List.length tys ->
+ get_annotation_of_inductiveType (List.nth tys (n-1)) tl
+ | l,_ ->
+ raise (WrongXPath (List.fold_right (fun n i -> string_of_int n ^ i) l ""))
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 06/05/2000 *)
+(* *)
+(* This is the parser that reads the configuration file of helm *)
+(* *)
+(******************************************************************************)
+
+(* this should be the only hard coded constant *)
+let filename = "/home/cadet/sacerdot/local/etc/helm/configuration.xml";;
+
+exception Warnings;;
+
+class warner =
+ object
+ method warn w =
+ print_endline ("WARNING: " ^ w) ;
+ (raise Warnings : unit)
+ end
+;;
+
+let xml_document () =
+ let module Y = Pxp_yacc in
+ try
+ let config = {Y.default_config with Y.warner = new warner} in
+ Y.parse_document_entity config (Y.from_file filename) Y.default_spec
+ with
+ e ->
+ print_endline (Pxp_types.string_of_exn e) ;
+ raise e
+;;
+
+exception Impossible;;
+
+let vars = Hashtbl.create 14;;
+
+(* resolve <value-of> tags and returns the string values of the variable tags *)
+let rec resolve =
+ let module D = Pxp_document in
+ function
+ [] -> ""
+ | he::tl when he#node_type = D.T_element "value-of" ->
+ (match he#attribute "var" with
+ Pxp_types.Value var -> Hashtbl.find vars var
+ | _ -> raise Impossible
+ ) ^ resolve tl
+ | he::tl when he#node_type = D.T_data ->
+ he#data ^ resolve tl
+ | _ -> raise Impossible
+;;
+
+(* we trust the xml file to be valid because of the validating xml parser *)
+let _ =
+ List.iter
+ (function
+ n ->
+ match n#node_type with
+ Pxp_document.T_element var ->
+ Hashtbl.add vars var (resolve (n#sub_nodes))
+ | _ -> raise Impossible
+ )
+ ((xml_document ())#root#sub_nodes)
+;;
+
+let helm_dir = Hashtbl.find vars "helm_dir";;
+let dtd_dir = Hashtbl.find vars "dtd_dir";;
+let servers_file = Hashtbl.find vars "servers_file";;
+let uris_dbm = Hashtbl.find vars "uris_dbm";;
+let dest = Hashtbl.find vars "dest";;
+let indexname = Hashtbl.find vars "indexname";;
+let tmpdir = Hashtbl.find vars "tmpdir";;
+let helm_dir = Hashtbl.find vars "helm_dir";;
+let getter_url = Hashtbl.find vars "getter_url";;
+
+let _ = Hashtbl.clear vars;;
--- /dev/null
+let expect_possible_parameters = ref false;;
+
+exception NotExpectingPossibleParameters;;
+
+let rec deannotate_term =
+ let module C = Cic in
+ function
+ C.ARel (_,_,n,_) -> C.Rel n
+ | C.AVar (_,_,uri) -> C.Var uri
+ | C.AMeta (_,_,n) -> C.Meta n
+ | C.ASort (_,_,s) -> C.Sort s
+ | C.AImplicit _ -> C.Implicit
+ | C.ACast (_,_,va,ty) -> C.Cast (deannotate_term va, deannotate_term ty)
+ | C.AProd (_,_,name,so,ta) ->
+ C.Prod (name, deannotate_term so, deannotate_term ta)
+ | C.ALambda (_,_,name,so,ta) ->
+ C.Lambda (name, deannotate_term so, deannotate_term ta)
+ | C.AAppl (_,_,l) -> C.Appl (List.map deannotate_term l)
+ | C.AConst (_,_,uri, cookingsno) -> C.Const (uri, cookingsno)
+ | C.AAbst (_,_,uri) -> C.Abst uri
+ | C.AMutInd (_,_,uri,cookingsno,i) -> C.MutInd (uri,cookingsno,i)
+ | C.AMutConstruct (_,_,uri,cookingsno,i,j) ->
+ C.MutConstruct (uri,cookingsno,i,j)
+ | C.AMutCase (_,_,uri,cookingsno,i,outtype,te,pl) ->
+ C.MutCase (uri,cookingsno,i,deannotate_term outtype,
+ deannotate_term te, List.map deannotate_term pl)
+ | C.AFix (_,_,funno,ifl) ->
+ C.Fix (funno, List.map deannotate_inductiveFun ifl)
+ | C.ACoFix (_,_,funno,ifl) ->
+ C.CoFix (funno, List.map deannotate_coinductiveFun ifl)
+
+and deannotate_inductiveFun (name,index,ty,bo) =
+ (name, index, deannotate_term ty, deannotate_term bo)
+
+and deannotate_coinductiveFun (name,ty,bo) =
+ (name, deannotate_term ty, deannotate_term bo)
+;;
+
+let deannotate_inductiveType (name, isinductive, arity, cons) =
+ (name, isinductive, deannotate_term arity,
+ List.map (fun (id,ty,recs) -> (id,deannotate_term ty, recs)) cons)
+;;
+
+let deannotate_obj =
+ let module C = Cic in
+ function
+ C.ADefinition (_, _, id, bo, ty, params) ->
+ (match params with
+ C.Possible params ->
+ if !expect_possible_parameters then
+ C.Definition (id, deannotate_term bo, deannotate_term ty, params)
+ else
+ raise NotExpectingPossibleParameters
+ | C.Actual params ->
+ C.Definition (id, deannotate_term bo, deannotate_term ty, params)
+ )
+ | C.AAxiom (_, _, id, ty, params) ->
+ C.Axiom (id, deannotate_term ty, params)
+ | C.AVariable (_, _, name, ty) ->
+ C.Variable (name, deannotate_term ty)
+ | C.ACurrentProof (_, _, name, conjs, bo, ty) ->
+ C.CurrentProof (
+ name, List.map (fun (id,con) -> (id,deannotate_term con)) conjs,
+ deannotate_term bo, deannotate_term ty
+ )
+ | C.AInductiveDefinition (_, _, tys, params, parno) ->
+ C.InductiveDefinition ( List.map deannotate_inductiveType tys,
+ params, parno)
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This is a textual interface to the Coq-like pretty printer cicPp for cic *)
+(* terms exported in xml. It uses directly the modules cicPp and cache and *)
+(* indirectly all the other modules (cicParser, cicParser2, cicParser3, *)
+(* getter). The syntax is "experiment[.opt] filename1 ... filenamen" where *)
+(* filenamei is the path-name of an xml file describing a cic term. On stdout *)
+(* are pretty-printed all the n terms *)
+(* *)
+(******************************************************************************)
+
+let pretty_print = ref true;;
+let read_from_stdin = ref false;;
+let uris_in_input = ref false;;
+
+let parse uri =
+ if !pretty_print then
+ begin
+ print_endline ("^^^" ^ uri ^ "^^^") ;
+ print_string (CicPp.ppobj (CicCache.get_obj (UriManager.uri_of_string uri)));
+ print_endline ("\n$$$" ^ uri ^ "$$$\n")
+ end
+ else
+ begin
+ print_string uri ;
+ let _ = CicCache.get_obj (UriManager.uri_of_string uri) in
+ print_endline " OK!" ;
+ flush stdout
+ end
+;;
+
+let uri_of_filename fn =
+ if !uris_in_input then fn
+ else
+ let uri =
+ Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
+ in
+ let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
+ uri'
+;;
+
+let read_filenames_from_stdin () =
+ let files = ref [] in
+ try
+ while true do
+ let l = Str.split (Str.regexp " ") (read_line ()) in
+ List.iter (fun x -> files := (uri_of_filename x) :: !files) l
+ done
+ with
+ End_of_file ->
+ files := List.rev !files ;
+ List.iter parse !files
+;;
+
+(* filenames are read from command line and converted to uris via *)
+(* uri_of_filenames; then the cic terms are load in cache via *)
+(* CicCache.get_obj and then pretty printed via CicPp.ppobj *)
+
+let main() =
+ let files = ref [] in
+ Arg.parse
+ ["-nopp", Arg.Clear pretty_print, "Do not pretty print, parse only" ;
+ "-stdin", Arg.Set read_from_stdin, "Read from stdin" ;
+ "-uris", Arg.Set uris_in_input, "Read uris, not filenames" ;
+ "-update", Arg.Unit Getter.update, "Update the getter view of the world"]
+ (fun x -> files := (uri_of_filename x) :: !files)
+ "
+usage: experiment file ...
+
+List of options:";
+ if !read_from_stdin then read_filenames_from_stdin ()
+ else
+ begin
+ files := List.rev !files;
+ List.iter parse !files
+ end
+;;
+
+main();;
--- /dev/null
+let read_from_stdin = ref false;;
+
+let uri_of_filename fn =
+ let uri =
+ Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
+ in
+ let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
+ UriManager.uri_of_string uri'
+;;
+
+let main() =
+ Deannotate.expect_possible_parameters := true ;
+ let files = ref [] in
+ Arg.parse
+ ["-stdin", Arg.Set read_from_stdin, "Read from stdin"]
+ (fun x -> files := (x, uri_of_filename x) :: !files)
+ "
+usage: experiment file ...
+
+List of options:";
+ if !read_from_stdin then
+ begin
+ try
+ while true do
+ let l = Str.split (Str.regexp " ") (read_line ()) in
+ List.iter (fun x -> files := (x, uri_of_filename x) :: !files) l
+ done
+ with
+ End_of_file -> ()
+ end ;
+ files := List.rev !files;
+ Getter.update () ;
+ print_endline "ATTENTION: have you changed servers.txt so that you'll try \
+ to repair your own objs instead of others'?" ;
+ flush stdout ;
+ List.iter
+ (function (fn, uri) ->
+ print_string (UriManager.string_of_uri uri) ;
+ flush stdout ;
+ (try
+ CicFindParameters.fix_params uri (Some fn)
+ with
+ e -> print_newline () ; flush stdout ; raise e ) ;
+ print_endline " OK!" ;
+ flush stdout
+ ) !files
+;;
+
+main();;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(******************************************************************************)
+
+exception ErrorGetting of string;;
+
+module OrderedStrings =
+ struct
+ type t = string
+ let compare (s1 : t) (s2 : t) = compare s1 s2
+ end
+;;
+
+module MapOfStrings = Map.Make(OrderedStrings);;
+
+let read_index url =
+ let module C = Configuration in
+ if Sys.command ("wget -c -P " ^ C.tmpdir ^ " " ^ url ^ "/\"" ^
+ C.indexname ^ "\"") <> 0
+ then
+ raise (ErrorGetting url) ;
+ let tmpfilename = C.tmpdir ^ "/" ^ C.indexname in
+ let fd = open_in tmpfilename in
+ let uris = ref [] in
+ try
+ while true do
+ uris := (input_line fd) :: !uris
+ done ;
+ [] (* only to make the compiler happy *)
+ with
+ End_of_file ->
+ Sys.remove tmpfilename ;
+ !uris
+;;
+
+(* mk_urls_of_uris list_of_servers_base_urls *)
+let rec mk_urls_of_uris =
+ function
+ [] -> MapOfStrings.empty
+ | he::tl ->
+ let map = mk_urls_of_uris tl in
+ let uris = read_index he in
+ let url_of_uri uri =
+ let url = uri ^ ".xml" in
+ let url' = Str.replace_first (Str.regexp "cic:") he url in
+ let url'' = Str.replace_first (Str.regexp "theory:") he url' in
+ url''
+ in
+ List.fold_right
+ (fun uri m -> MapOfStrings.add uri (url_of_uri uri) m)
+ uris map
+;;
+
+let update () =
+ let module C = Configuration in
+ let fd = open_in C.servers_file in
+ let servers = ref [] in
+ try
+ while true do
+ servers := (input_line fd) :: !servers
+ done
+ with
+ End_of_file ->
+ let urls_of_uris = mk_urls_of_uris (List.rev !servers) in
+ (try Sys.remove (C.uris_dbm ^ ".db") with _ -> ()) ;
+ let dbm =
+ Dbm.opendbm C.uris_dbm [Dbm.Dbm_wronly ; Dbm.Dbm_create] 0o660
+ in
+ MapOfStrings.iter (fun uri url -> Dbm.add dbm uri url) urls_of_uris ;
+ Dbm.close dbm
+;;
+
+(* url_of_uri : uri -> url *)
+let url_of_uri uri =
+ let dbm = Dbm.opendbm Configuration.uris_dbm [Dbm.Dbm_rdonly] 0o660 in
+ let url = Dbm.find dbm (UriManager.string_of_uri uri) in
+ Dbm.close dbm ;
+ url
+;;
+
+let filedir_of_uri uri =
+ let fn = UriManager.buri_of_uri uri in
+ let fn' = Str.replace_first (Str.regexp ".*:") Configuration.dest fn in
+ fn'
+;;
+
+let name_and_ext_of_uri uri =
+ let str = UriManager.string_of_uri uri in
+ Str.replace_first (Str.regexp ".*/") "" str
+;;
+
+(* get_file : uri -> filename *)
+let get_file uri =
+ let dir = filedir_of_uri uri in
+ let fn = dir ^ "/" ^ name_and_ext_of_uri uri ^ ".xml" in
+ if not (Sys.file_exists fn) then
+ begin
+ let url = url_of_uri uri in
+ (*CSC: use -q for quiet mode *)
+ if Sys.command ("wget -c -P " ^ dir ^ " \"" ^ url ^"\"") <> 0
+ then
+ raise (ErrorGetting url) ;
+ end ;
+ fn
+;;
+
+(* get : uri -> filename *)
+(* If uri is the URI of an annotation, the annotated object is processed *)
+let get uri =
+ let module U = UriManager in
+ get_file
+ (U.uri_of_string
+ (Str.replace_first (Str.regexp "\.ann$") ""
+ (Str.replace_first (Str.regexp "\.types$") "" (U.string_of_uri uri))))
+;;
+
+(* get_ann : uri -> filename *)
+(* If uri is the URI of an annotation, the annotation file is processed *)
+let get_ann = get_file;;
+
+(* get_ann_file_name_and_uri : uri -> filename * annuri *)
+(* If given an URI, it returns the name of the corresponding *)
+(* annotation file and the annotation uri *)
+let get_ann_file_name_and_uri uri =
+ let module U = UriManager in
+ let uri = U.string_of_uri uri in
+ let annuri =
+ U.uri_of_string (
+ if Str.string_match (Str.regexp ".*\.ann$") uri 0 then
+ uri
+ else
+ uri ^ ".ann"
+ )
+ in
+ let dir = filedir_of_uri annuri in
+ let fn = dir ^ "/" ^ name_and_ext_of_uri annuri ^ ".xml" in
+ (fn, annuri)
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* *)
+(******************************************************************************)
+
+(* get : uri -> filename *)
+(* If uri is the URI of an annotation, the annotated object is processed *)
+val get : UriManager.uri -> string
+
+(* get_ann : uri -> filename *)
+(* If uri is the URI of an annotation, the annotation file is processed *)
+val get_ann : UriManager.uri -> string
+
+(* get_ann_file_name_and_uri : uri -> filename * annuri *)
+(* If given an URI, it returns the name of the corresponding *)
+(* annotation file and the annotation uri *)
+val get_ann_file_name_and_uri : UriManager.uri -> string * UriManager.uri
+
+(* synchronize with the servers *)
+val update : unit -> unit
--- /dev/null
+#!/usr/bin/perl
+
+# next require defines: $helm_dir, $html_link
+# LUCA - 12 sep 2000
+# require "/usr/lib/helm/configuration.pl";
+require "/home/cadet/sacerdot/local/lib/helm/configuration.pl";
+use HTTP::Daemon;
+use HTTP::Status;
+use HTTP::Request;
+use LWP::UserAgent;
+use DB_File;
+
+my $cont = "";
+my $d = new HTTP::Daemon LocalPort => 8081;
+tie(%map, 'DB_File', 'urls_of_uris.db', O_RDONLY, 0664);
+print "Please contact me at: <URL:", $d->url, ">\n";
+print "helm_dir: $helm_dir\n";
+$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
+while (my $c = $d->accept) {
+ if (fork() == 0) {
+ while (my $r = $c->get_request) {
+ #CSC: mancano i controlli di sicurezza
+
+ $cont = "";
+ my $cicuri = $r->url;
+ $cicuri =~ s/^[^?]*\?url=(.*)/$1/;
+ print "*".$r->url."\n";
+ my $http_method = $r->method;
+ my $http_path = $r->url->path;
+ if ($http_method eq 'GET' and $http_path eq "/get") {
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ $filename = $helm_dir.$filename.".xml";
+ my $resolved = $map{$cicuri};
+ print "$cicuri ==> $resolved ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "Downloading\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file\n";
+ open(FD, $filename);
+ print FD $cont;
+ close(FD);
+
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/annotate") {
+ my $do_annotate = ($cicuri =~ /\.ann$/);
+ my $target_to_annotate = $cicuri;
+ $target_to_annotate =~ s/(.*)\.ann$/$1/ if $do_annotate;
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ $filename_target =~ s/(.*)\.ann$/$1.xml/ if $do_annotate;
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } else {
+ print "$cicuri ==> $resolved ($filename)\n";
+ }
+
+ # Retrieves the annotation
+
+ if (stat($filename)) {
+ print "Using local copy for the annotation\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the annotation\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the annotation\n";
+ open(FD, $filename);
+ print FD $cont;
+ close(FD);
+ }
+ my $annotation = $cont;
+
+ # Retrieves the target to annotate
+
+ $cont = "";
+ if ($do_annotate) {
+ if (stat($filename_target)) {
+ print "Using local copy for the file to annotate\n";
+ open(FD, $filename_target);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the file to annotate\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved_target");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the file to annotate\n";
+ open(FD, $filename_target);
+ print FD $cont;
+ close(FD);
+ }
+ }
+ my $target = $cont;
+
+ # Merging the annotation and the target
+
+ $target =~ s/<\?xml [^?]*\?>//sg;
+ $target =~ s/<!DOCTYPE [^>]*>//sg;
+ $annotation =~ s/<\?xml [^?]*\?>//sg;
+ $annotation =~ s/<!DOCTYPE [^>]*>//sg;
+ my $merged = <<EOT;
+<?xml version="1.0" encoding="UTF-8"?>
+<cicxml uri="$target_to_annotate">
+$target
+$annotation
+</cicxml>
+EOT
+
+ # Answering the client
+
+ my $res = new HTTP::Response;
+ $res->content($merged);
+ $c->send_response($res);
+ } elsif ($http_method eq 'GET' and $http_path eq "/getwithtypes") {
+ my $do_annotate = ($cicuri =~ /\.types$/);
+ my $target_to_annotate = $cicuri;
+ $target_to_annotate =~ s/(.*)\.types$/$1/ if $do_annotate;
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ $filename_target =~ s/(.*)\.types$/$1.xml/ if $do_annotate;
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "GETWITHTYPES!!\n";
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } else {
+ print "$cicuri ==> $resolved ($filename)\n";
+ }
+
+ # Retrieves the annotation
+
+ if (stat($filename)) {
+ print "Using local copy for the types\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the types\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the types\n";
+ open(FD, $filename);
+ print FD $cont;
+ close(FD);
+ }
+ my $annotation = $cont;
+
+ # Retrieves the target to annotate
+
+ $cont = "";
+ my $target;
+ if ($do_annotate) {
+ if (stat($filename_target)) {
+ print "Using local copy for the file to type\n";
+ open(FD, $filename_target);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the file to type\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved_target");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the file to type\n";
+ open(FD, $filename_target);
+ print FD $cont;
+ close(FD);
+ }
+ $target = $cont;
+ } else {
+ $target = $annotation;
+ $annotation = "";
+ }
+
+ # Merging the annotation and the target
+
+ $target =~ s/<\?xml [^?]*\?>//sg;
+ $target =~ s/<!DOCTYPE [^>]*>//sg;
+ $annotation =~ s/<\?xml [^?]*\?>//sg;
+ $annotation =~ s/<!DOCTYPE [^>]*>//sg;
+ my $merged = <<EOT;
+<?xml version="1.0" encoding="UTF-8"?>
+<cicxml uri="$target_to_annotate">
+$target
+<ALLTYPES>
+$annotation
+</ALLTYPES>
+</cicxml>
+EOT
+
+ # Answering the client
+
+ my $res = new HTTP::Response;
+ $res->content($merged);
+ $c->send_response($res);
+ } elsif ($http_method eq 'GET' and $http_path eq "/getdtd") {
+ my $filename = $cicuri;
+ $filename = $helm_dir."/dtd/".$filename;
+ print "DTD: $cicuri ==> ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ die "Could not find DTD!";
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/conf") {
+ my $quoted_html_link = $html_link;
+ $quoted_html_link =~ s/&/&/g;
+ $quoted_html_link =~ s/</</g;
+ $quoted_html_link =~ s/>/>/g;
+ $quoted_html_link =~ s/'/'/g;
+ $quoted_html_link =~ s/"/"/g;
+ print "Configuration requested, returned #$quoted_html_link#\n";
+ $cont = "<?xml version=\"1.0\"?><html_link>$quoted_html_link</html_link>";
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "INVALID REQUEST!!!!!\n";
+ $c->send_error(RC_FORBIDDEN)
+ }
+ }
+ $c->close;
+ undef($c);
+ print "\nCONNECTION CLOSED\n\n";
+ exit;
+ } # fork
+}
+
+#================================
+
+sub callback
+{
+ my ($data) = @_;
+ $cont .= $data;
+}
--- /dev/null
+#!/usr/bin/perl
+
+# next require defines: $helm_dir, $html_link
+require "/usr/lib/helm/configuration.pl";
+use HTTP::Daemon;
+use HTTP::Status;
+use HTTP::Request;
+use LWP::UserAgent;
+use DB_File;
+
+my $cont = "";
+my $d = new HTTP::Daemon LocalPort => 8081;
+tie(%map, 'DB_File', 'urls_of_uris.db', O_RDONLY, 0664);
+print "Please contact me at: <URL:", $d->url, ">\n";
+print "helm_dir: $helm_dir\n";
+$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
+while (my $c = $d->accept) {
+ if (fork() == 0) {
+ while (my $r = $c->get_request) {
+ #CSC: mancano i controlli di sicurezza
+
+ $cont = "";
+ my $cicuri = $r->url;
+ $cicuri =~ s/^[^?]*\?url=(.*)/$1/;
+ print "*".$r->url."\n";
+ my $http_method = $r->method;
+ my $http_path = $r->url->path;
+ if ($http_method eq 'GET' and $http_path eq "/get") {
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ $filename = $helm_dir.$filename.".xml";
+ my $resolved = $map{$cicuri};
+ print "$cicuri ==> $resolved ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "Downloading\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file\n";
+ open(FD, $filename);
+ print FD $cont;
+ close(FD);
+
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/annotate") {
+ my $do_annotate = ($cicuri =~ /\.ann$/);
+ my $target_to_annotate = $cicuri;
+ $target_to_annotate =~ s/(.*)\.ann$/$1/ if $do_annotate;
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ $filename_target =~ s/(.*)\.ann$/$1.xml/ if $do_annotate;
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } elsif ($http_method eq 'GET' and $http_path eq "/getwithtypes") {
+ my $do_annotate = ($cicuri =~ /\.types$/);
+ my $target_to_annotate = $cicuri;
+ $target_to_annotate =~ s/(.*)\.types$/$1/ if $do_annotate;
+ my $filename = $cicuri;
+ $filename =~ s/cic:(.*)/$1/;
+ $filename =~ s/theory:(.*)/$1/;
+ my $filename_target = $helm_dir.$filename if $do_annotate;
+ $filename = $helm_dir.$filename.".xml";
+ $filename_target =~ s/(.*)\.types$/$1.xml/ if $do_annotate;
+ my $resolved = $map{$cicuri};
+ my $resolved_target = $map{$target_to_annotate} if $do_annotate;
+ if ($do_annotate) {
+ print "($cicuri, $target_to_annotate) ==> ($resolved + $resolved_target) ($filename)\n";
+ } else {
+ print "$cicuri ==> $resolved ($filename)\n";
+ }
+
+ # Retrieves the annotation
+
+ if (stat($filename)) {
+ print "Using local copy for the types\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the types\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the types\n";
+ open(FD, $filename);
+ print FD $cont;
+ close(FD);
+ }
+ my $annotation = $cont;
+
+ # Retrieves the target to annotate
+
+ $cont = "";
+ if ($do_annotate) {
+ if (stat($filename_target)) {
+ print "Using local copy for the file to type\n";
+ open(FD, $filename_target);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ } else {
+ print "Downloading the file to type\n";
+ $ua = LWP::UserAgent->new;
+ $request = HTTP::Request->new(GET => "$resolved_target");
+ $response = $ua->request($request, \&callback);
+
+ print "Storing file for the file to type\n";
+ open(FD, $filename_target);
+ print FD $cont;
+ close(FD);
+ }
+ }
+ my $target = $cont;
+
+ # Merging the annotation and the target
+
+ $target =~ s/<\?xml [^?]*\?>//sg;
+ $target =~ s/<!DOCTYPE [^>]*>//sg;
+ $annotation =~ s/<\?xml [^?]*\?>//sg;
+ $annotation =~ s/<!DOCTYPE [^>]*>//sg;
+ my $merged = <<EOT;
+<?xml version="1.0" encoding="UTF-8"?>
+<cicxml uri="$target_to_annotate">
+$target
+<ALLTYPES>
+$annotation
+</ALLTYPES>
+</cicxml>
+EOT
+
+ # Answering the client
+
+ my $res = new HTTP::Response;
+ $res->content($merged);
+ $c->send_response($res);
+ } elsif ($http_method eq 'GET' and $http_path eq "/getdtd") {
+ my $filename = $cicuri;
+ $filename = $helm_dir."/dtd/".$filename;
+ print "DTD: $cicuri ==> ($filename)\n";
+ if (stat($filename)) {
+ print "Using local copy\n";
+ open(FD, $filename);
+ while(<FD>) { $cont .= $_; }
+ close(FD);
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ die "Could not find DTD!";
+ }
+ } elsif ($http_method eq 'GET' and $http_path eq "/conf") {
+ my $quoted_html_link = $html_link;
+ $quoted_html_link =~ s/&/&/g;
+ $quoted_html_link =~ s/</</g;
+ $quoted_html_link =~ s/>/>/g;
+ $quoted_html_link =~ s/'/'/g;
+ $quoted_html_link =~ s/"/"/g;
+ print "Configuration requested, returned #$quoted_html_link#\n";
+ $cont = "<?xml version=\"1.0\"?><html_link>$quoted_html_link</html_link>";
+ my $res = new HTTP::Response;
+ $res->content($cont);
+ $c->send_response($res);
+ } else {
+ print "INVALID REQUEST!!!!!\n";
+ $c->send_error(RC_FORBIDDEN)
+ }
+ }
+ $c->close;
+ undef($c);
+ print "\nCONNECTION CLOSED\n\n";
+ exit;
+ } # fork
+}
+
+#================================
+
+sub callback
+{
+ my ($data) = @_;
+ $cont .= $data;
+}
--- /dev/null
+#! /bin/sh
+
+export PATH=$PATH:/opt/java/jdk118/bin/
+
+export CLASSPATH=.
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xalan.jar
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xerces.jar
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/saxon-5.3.2/saxon.jar
+
+# Per (my)Coq 6.3.0
+export LD_LIBRARY_PATH=/home/lpadovan/helm/usr/lib/:$LD_LIBRARY_PATH
+export LD_LIBRARY_PATH=/usr/local/lib/gtkmathview:$LD_LIBRARY_PATH
--- /dev/null
+SIGSEGV received at bfffeacc in /home/cadet/sacerdot/jdk118/lib/linux/native_threads/libjitc.so. Processing terminated
+java full version "JDK 1.1.8 IBM build l118-19991013 (JIT enabled: jitc)"
+args: /home/cadet/sacerdot/jdk118/bin/linux/native_threads/java xaland 12345 12346 examples/style/annotatedcont.xsl examples/style/annotatedpres.xsl examples/style/theory_content.xsl examples/style/theory_pres.xsl
+
+Operating Environment
+---------------------
+Host : cadet.
+OS Level : 2.2.14-5.0smp.#1 SMP Tue Mar 7 21:01:40 EST 2000
+glibc Version : 2.1.3
+No. of Procs : 1
+Memory Info:
+ total: used: free: shared: buffers: cached:
+Mem: 64503808 55078912 9424896 36126720 1527808 18075648
+Swap: 133885952 7442432 126443520
+MemTotal: 62992 kB
+MemFree: 9204 kB
+MemShared: 35280 kB
+Buffers: 1492 kB
+Cached: 17652 kB
+BigTotal: 0 kB
+BigFree: 0 kB
+SwapTotal: 130748 kB
+SwapFree: 123480 kB
+
+Application Environment
+-----------------------
+Signal Handlers -
+ SIGQUIT : ignored
+ SIGILL : sysThreadIDump (libjava.so)
+ SIGABRT : sysThreadIDump (libjava.so)
+ SIGFPE : sysThreadIDump (libjava.so)
+ SIGBUS : sysThreadIDump (libjava.so)
+ SIGSEGV : sysThreadIDump (libjava.so)
+ SIGPIPE : ignored
+ SIGUSR1 : doSuspendLoop (libjava.so)
+
+Environment Variables -
+ LESSOPEN=|/usr/bin/lesspipe.sh %s
+ SAL_DO_NOT_USE_INVERT50=true
+ HISTSIZE=1000
+ HOSTNAME=cadet
+ LOGNAME=sacerdot
+ VISUAL=/usr/bin/emacs
+ LD_LIBRARY_PATH=/home/cadet/sacerdot/jdk118/lib/linux/native_threads:/usr/local/lib/gtkmathview:/home/pauillac/coq3/sacerdot/rvplayer5.0
+ MAIL=/var/spool/mail/sacerdot
+ PAGER=less
+ CLASSPATH=.:/usr/share/java/bsf.jar:/usr/share/java/xalan.jar:/usr/share/java/xerces.jar:/home/cadet/sacerdot/jdk118/classes:/home/cadet/sacerdot/jdk118/lib/classes.jar:/home/cadet/sacerdot/jdk118/lib/rt.jar:/home/cadet/sacerdot/jdk118/lib/i18n.jar:/home/cadet/sacerdot/jdk118/lib/classes.zip
+ LESSCHARDEF=8bcccbcc18b95.33b.
+ ARCH=i586
+ PROMPT=cad:
+ TERM=xterm
+ HOSTTYPE=i386
+ PATH=/home/cadet/sacerdot/jdk118/bin:/home/pauillac/coq3/sacerdot/bin/i586:/home/pauillac/coq3/sacerdot/bin:/usr/bin/X11:/usr/bin:/usr/local/bin:/usr/ucb:/usr/bin:/bin:/usr/sbin:/sbin:/usr/games:.
+ PRINTER=hp11rv
+ HOME=/home/pauillac/coq3/sacerdot
+ SHELL=/bin/sh
+ ELANLIB=/home/pauillac/coq3/sacerdot/elan-dist.3.00/elanlib
+ PILOTPORT=/dev/ttyS1
+ TEXINPUTS=:.:/home/pauillac/coq3/sacerdot/lib/latex/inputs:/usr/local/lib/tex/inputs3
+ USER=sacerdot
+ ENSCRIPT=-Php11rvl -2 -r -B -L66 -k -h
+ MANPATH=/usr/man/preformat:/usr/man:/usr/X11/man:/usr/local/man:/home/pauillac/coq3/sacerdot/man
+ LESS=-m -e -q -d
+ JAVA_HOME=/home/cadet/sacerdot/jdk118
+ DISPLAY=:0.0
+ MAKEFLAGS=
+ HOST=cadet
+ OSTYPE=Linux
+ NNTPSERVER=news-rocq.inria.fr
+ WINDOWID=54525966
+ SHLVL=4
+ MAKELEVEL=1
+ LS_COLORS=no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:bd=40;33;01:cd=40;33;01:or=01;05;37;41:mi=01;05;37;41:ex=01;32:*.cmd=01;32:*.exe=01;32:*.com=01;32:*.btm=01;32:*.bat=01;32:*.sh=01;32:*.csh=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.bz=01;31:*.tz=01;31:*.rpm=01;31:*.cpio=01;31:*.jpg=01;35:*.gif=01;35:*.bmp=01;35:*.xbm=01;35:*.xpm=01;35:*.png=01;35:*.tif=01;35:
+ EDITOR=/usr/bin/emacs
+ MFLAGS=
+ CVSROOT=/net/pauillac/constr/ARCHIVE
+
+
+Current Thread Details
+----------------------
+ "main" (TID:0x402e62d8, sys_thread_t:0x804abe0)
+ Native Thread State: ThreadID: 00000400 Reuse: 1 USER PRIMORDIAL RUNNING
+ Native Stack Data : base: bffff47c pointer bffbf96c used(260880) free(-13072)
+ ----- Monitors held -----
+ ----- Native stack -----
+
+
+
+
+
+
+
+
+ ??
+ ??
+ ??
+
+ java_lang_Compiler_start
+
+ __irem_trap6
+ ------ Java stack ------ () prio=5 *current thread*
+ org.apache.xalan.xslt.XSLTEngineImpl.createStylesheetRoot(XSLTEngineImpl.java:715)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ xaland.main(Compiled Code)
+----------------------------------------------------------------------
+
+
+Total Thread Count: 3
+Active Thread Count: 3
+JNI Thread Count: 0
+
+Full thread dump:
+ "Async Garbage Collector" (TID:0x402e6238, sys_thread_t:0x8091f50)
+ Native Thread State: ThreadID: 00000803 Reuse: 1 DAEMON MONITOR WAIT
+ Native Stack Data : base: bf5ffd84 pointer bf5ffb78 used(524) free(247284)
+ ----- Monitors held -----
+ ----- Native stack -----
+ sysMonitorWait
+ sysThreadSleep
+ threadSleep
+ SetOrigArgs
+ sysThread_shell
+ pthread_detach
+ __clone
+ ------ Java stack ------ () prio=1
+----------------------------------------------------------------------
+
+ "Finalizer thread" (TID:0x402e6288, sys_thread_t:0x8091cd0)
+ Native Thread State: ThreadID: 00000402 Reuse: 1 DAEMON MONITOR WAIT
+ Native Stack Data : base: bf7ffd84 pointer bf7ffbec used(408) free(247400)
+ ----- Monitors held -----
+ ----- Native stack -----
+ sysMonitorWait - waiting on Finalize me queue lock
+ finalizeOnExit
+ sysThread_shell
+ pthread_detach
+ __clone
+ ------ Java stack ------ () prio=1
+----------------------------------------------------------------------
+
+ "main" (TID:0x402e62d8, sys_thread_t:0x804abe0)
+ Native Thread State: ThreadID: 00000400 Reuse: 1 USER PRIMORDIAL RUNNING
+ Native Stack Data : base: bffff47c pointer bffbf960 used(260892) free(-13084)
+ ----- Monitors held -----
+ ----- Native stack -----
+
+
+
+
+
+
+
+
+ ??
+ ??
+ ??
+
+ java_lang_Compiler_start
+
+ __irem_trap6
+ ------ Java stack ------ () prio=5 *current thread*
+ org.apache.xalan.xslt.XSLTEngineImpl.createStylesheetRoot(XSLTEngineImpl.java:715)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ xaland.main(Compiled Code)
+----------------------------------------------------------------------
+
+
+System Monitor Status
+---------------------
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ Thread queue lock: unowned.
+ Name and type hash table lock: unowned.
+ String intern lock: unowned.
+ JNI pinning lock: unowned.
+ JNI global reference lock: unowned.
+ Zip lock: unowned.
+ BinClass lock: unowned.
+ Class loading lock: unowned.
+ Java stack lock: unowned.
+ Code rewrite lock: unowned.
+ Heap Lock: unowned.
+ Has finalization queue lock: unowned.
+ Finalize me queue lock: unowned.
+ Integer lock access-lock: unowned.
+ Monitor cache lock: unowned.
+ Monitor registry: unowned.
+
+Object Monitor Status
+---------------------
--- /dev/null
+SIGSEGV received at bfffeacc in /home/cadet/sacerdot/jdk118/lib/linux/native_threads/libjitc.so. Processing terminated
+java full version "JDK 1.1.8 IBM build l118-19991013 (JIT enabled: jitc)"
+args: /home/cadet/sacerdot/jdk118/bin/linux/native_threads/java xaland 12345 12346 examples/style/annotatedcont.xsl examples/style/annotatedpres.xsl examples/style/theory_content.xsl examples/style/theory_pres.xsl
+
+Operating Environment
+---------------------
+Host : cadet.
+OS Level : 2.2.14-5.0smp.#1 SMP Tue Mar 7 21:01:40 EST 2000
+glibc Version : 2.1.3
+No. of Procs : 1
+Memory Info:
+ total: used: free: shared: buffers: cached:
+Mem: 64503808 55672832 8830976 36130816 1536000 18612224
+Swap: 133885952 7442432 126443520
+MemTotal: 62992 kB
+MemFree: 8624 kB
+MemShared: 35284 kB
+Buffers: 1500 kB
+Cached: 18176 kB
+BigTotal: 0 kB
+BigFree: 0 kB
+SwapTotal: 130748 kB
+SwapFree: 123480 kB
+
+Application Environment
+-----------------------
+Signal Handlers -
+ SIGQUIT : ignored
+ SIGILL : sysThreadIDump (libjava.so)
+ SIGABRT : sysThreadIDump (libjava.so)
+ SIGFPE : sysThreadIDump (libjava.so)
+ SIGBUS : sysThreadIDump (libjava.so)
+ SIGSEGV : sysThreadIDump (libjava.so)
+ SIGPIPE : ignored
+ SIGUSR1 : doSuspendLoop (libjava.so)
+
+Environment Variables -
+ LESSOPEN=|/usr/bin/lesspipe.sh %s
+ SAL_DO_NOT_USE_INVERT50=true
+ HISTSIZE=1000
+ HOSTNAME=cadet
+ LOGNAME=sacerdot
+ VISUAL=/usr/bin/emacs
+ LD_LIBRARY_PATH=/home/cadet/sacerdot/jdk118/lib/linux/native_threads:/usr/local/lib/gtkmathview:/home/pauillac/coq3/sacerdot/rvplayer5.0
+ MAIL=/var/spool/mail/sacerdot
+ PAGER=less
+ CLASSPATH=.:/usr/share/java/bsf.jar:/usr/share/java/xalan.jar:/usr/share/java/xerces.jar:/home/cadet/sacerdot/jdk118/classes:/home/cadet/sacerdot/jdk118/lib/classes.jar:/home/cadet/sacerdot/jdk118/lib/rt.jar:/home/cadet/sacerdot/jdk118/lib/i18n.jar:/home/cadet/sacerdot/jdk118/lib/classes.zip
+ LESSCHARDEF=8bcccbcc18b95.33b.
+ ARCH=i586
+ PROMPT=cad:
+ TERM=xterm
+ HOSTTYPE=i386
+ PATH=/home/cadet/sacerdot/jdk118/bin:/home/pauillac/coq3/sacerdot/bin/i586:/home/pauillac/coq3/sacerdot/bin:/usr/bin/X11:/usr/bin:/usr/local/bin:/usr/ucb:/usr/bin:/bin:/usr/sbin:/sbin:/usr/games:.
+ PRINTER=hp11rv
+ HOME=/home/pauillac/coq3/sacerdot
+ SHELL=/bin/sh
+ ELANLIB=/home/pauillac/coq3/sacerdot/elan-dist.3.00/elanlib
+ PILOTPORT=/dev/ttyS1
+ TEXINPUTS=:.:/home/pauillac/coq3/sacerdot/lib/latex/inputs:/usr/local/lib/tex/inputs3
+ USER=sacerdot
+ ENSCRIPT=-Php11rvl -2 -r -B -L66 -k -h
+ MANPATH=/usr/man/preformat:/usr/man:/usr/X11/man:/usr/local/man:/home/pauillac/coq3/sacerdot/man
+ LESS=-m -e -q -d
+ JAVA_HOME=/home/cadet/sacerdot/jdk118
+ DISPLAY=:0.0
+ MAKEFLAGS=
+ HOST=cadet
+ OSTYPE=Linux
+ NNTPSERVER=news-rocq.inria.fr
+ WINDOWID=54525966
+ SHLVL=4
+ MAKELEVEL=1
+ LS_COLORS=no=00:fi=00:di=01;34:ln=01;36:pi=40;33:so=01;35:bd=40;33;01:cd=40;33;01:or=01;05;37;41:mi=01;05;37;41:ex=01;32:*.cmd=01;32:*.exe=01;32:*.com=01;32:*.btm=01;32:*.bat=01;32:*.sh=01;32:*.csh=01;32:*.tar=01;31:*.tgz=01;31:*.arj=01;31:*.taz=01;31:*.lzh=01;31:*.zip=01;31:*.z=01;31:*.Z=01;31:*.gz=01;31:*.bz2=01;31:*.bz=01;31:*.tz=01;31:*.rpm=01;31:*.cpio=01;31:*.jpg=01;35:*.gif=01;35:*.bmp=01;35:*.xbm=01;35:*.xpm=01;35:*.png=01;35:*.tif=01;35:
+ EDITOR=/usr/bin/emacs
+ MFLAGS=
+ CVSROOT=/net/pauillac/constr/ARCHIVE
+
+
+Current Thread Details
+----------------------
+ "main" (TID:0x402e62d8, sys_thread_t:0x804abe0)
+ Native Thread State: ThreadID: 00000400 Reuse: 1 USER PRIMORDIAL RUNNING
+ Native Stack Data : base: bffff47c pointer bffbf96c used(260880) free(-13072)
+ ----- Monitors held -----
+ ----- Native stack -----
+
+
+
+
+
+
+
+
+ ??
+ ??
+ ??
+
+ java_lang_Compiler_start
+
+ __irem_trap6
+ ------ Java stack ------ () prio=5 *current thread*
+ org.apache.xalan.xslt.XSLTEngineImpl.createStylesheetRoot(XSLTEngineImpl.java:715)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ xaland.main(Compiled Code)
+----------------------------------------------------------------------
+
+
+Total Thread Count: 3
+Active Thread Count: 3
+JNI Thread Count: 0
+
+Full thread dump:
+ "Async Garbage Collector" (TID:0x402e6238, sys_thread_t:0x8091f50)
+ Native Thread State: ThreadID: 00000803 Reuse: 1 DAEMON MONITOR WAIT
+ Native Stack Data : base: bf5ffd84 pointer bf5ffb78 used(524) free(247284)
+ ----- Monitors held -----
+ ----- Native stack -----
+ sysMonitorWait
+ sysThreadSleep
+ threadSleep
+ SetOrigArgs
+ sysThread_shell
+ pthread_detach
+ __clone
+ ------ Java stack ------ () prio=1
+----------------------------------------------------------------------
+
+ "Finalizer thread" (TID:0x402e6288, sys_thread_t:0x8091cd0)
+ Native Thread State: ThreadID: 00000402 Reuse: 1 DAEMON MONITOR WAIT
+ Native Stack Data : base: bf7ffd84 pointer bf7ffbec used(408) free(247400)
+ ----- Monitors held -----
+ ----- Native stack -----
+ sysMonitorWait - waiting on Finalize me queue lock
+ finalizeOnExit
+ sysThread_shell
+ pthread_detach
+ __clone
+ ------ Java stack ------ () prio=1
+----------------------------------------------------------------------
+
+ "main" (TID:0x402e62d8, sys_thread_t:0x804abe0)
+ Native Thread State: ThreadID: 00000400 Reuse: 1 USER PRIMORDIAL RUNNING
+ Native Stack Data : base: bffff47c pointer bffbf960 used(260892) free(-13084)
+ ----- Monitors held -----
+ ----- Native stack -----
+
+
+
+
+
+
+
+
+ ??
+ ??
+ ??
+
+ java_lang_Compiler_start
+
+ __irem_trap6
+ ------ Java stack ------ () prio=5 *current thread*
+ org.apache.xalan.xslt.XSLTEngineImpl.createStylesheetRoot(XSLTEngineImpl.java:715)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ org.apache.xalan.xslt.XSLTEngineImpl.processStylesheet(Compiled Code)
+ xaland.main(Compiled Code)
+----------------------------------------------------------------------
+
+
+System Monitor Status
+---------------------
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ JIT monitor: unowned.
+ Thread queue lock: unowned.
+ Name and type hash table lock: unowned.
+ String intern lock: unowned.
+ JNI pinning lock: unowned.
+ JNI global reference lock: unowned.
+ Zip lock: unowned.
+ BinClass lock: unowned.
+ Class loading lock: unowned.
+ Java stack lock: unowned.
+ Code rewrite lock: unowned.
+ Heap Lock: unowned.
+ Has finalization queue lock: unowned.
+ Finalize me queue lock: unowned.
+ Integer lock access-lock: unowned.
+ Monitor cache lock: unowned.
+ Monitor registry: unowned.
+
+Object Monitor Status
+---------------------
--- /dev/null
+#!/usr/bin/perl
+
+while(<STDIN>)
+{
+ s/→/->/g;
+ s/⇒/=>/g;
+ s/λ/\\/g;
+ s/Π/||/g;
+ print;
+}
--- /dev/null
+#!/bin/bash
+
+echo `find . -name "*.xml"` | /really_very_local/helm/PARSER/coq_like_pretty_printer/uris_of_filenames.pl > index.txt
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!-- CSC: mio DTD semplificatissimo per la parte presentation di MML -->
+
+<!-- I seguenti presentation elements sono stati tralasciati ;-)
+mspace
+ms
+<mchar>
+<ms>
+mfrac
+msqrt
+mroot
+mstyle
+merror
+mpadded
+mphantom
+msub
+msup
+msubsup
+munder
+mover
+munderover
+mmultiscripts
+mtable
+mtr
+mtd
+maligngroup
+malignmark
+maction
+-->
+
+<!-- Dei seguenti elementi, invece, vengono tralasciati quasi tutti gli
+ attributi
+⁡
+-->
+
+<!ENTITY % Presentation '(mi|mo|mn|mtext|mrow|mfenced)*'>
+
+<!ELEMENT math %Presentation;>
+
+<!ELEMENT mi (#PCDATA)>
+
+<!ELEMENT mo (#PCDATA)>
+
+<!ELEMENT mn (#PCDATA)>
+
+<!ELEMENT mtext (#PCDATA)>
+
+<!ELEMENT mrow %Presentation;>
+
+<!ELEMENT mfenced %Presentation;>
+<!ATTLIST mfenced
+ open CDATA #IMPLIED
+ close CDATA #IMPLIED
+ separators CDATA #IMPLIED>
--- /dev/null
+type expr =
+ Null
+ | Mi of string
+ | Mo of string
+ | Mn of string
+ | Mtext of string
+ | Mrow of expr list
+ | Mfenced of string * string * string * expr list (* open, close, separators *)
+type fragment =
+ Math of expr list
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 24/01/2000 *)
+(* *)
+(* This is a simple gtk interface to the Coq-like pretty printer cicPp for *)
+(* cic terms exported in xml. It uses directly the modules cicPp and *)
+(* cicCcache and indirectly all the other modules (cicParser, cicParser2, *)
+(* cicParser3, getter). *)
+(* The syntax is "gtkInterface[.opt] filename1 ... filenamen" where *)
+(* filenamei is the path-name of an xml file describing a cic term. *)
+(* The terms are loaded in cache and then pretty-printed one at a time and *)
+(* only once, when the user wants to look at it: if the user wants to look at *)
+(* a term again, then the pretty-printed term is showed again, but not *)
+(* recomputed *)
+(* *)
+(******************************************************************************)
+
+(* DEFINITION OF THE URI TREE AND USEFUL FUNCTIONS ON IT *)
+
+type item =
+ Dir of string * item list ref
+ | File of string * UriManager.uri
+;;
+
+let uritree = ref []
+let theoryuritree = ref []
+
+let get_name =
+ function
+ Dir (name,_) -> name
+ | File (name,_) -> name
+;;
+
+let get_uri =
+ function
+ Dir _ -> None
+ | File (_,uri) -> Some uri
+;;
+
+(* STUFF TO BUILD THE URI TREE *)
+
+exception EmptyUri
+exception DuplicatedUri
+exception ConflictingUris
+
+let insert_in_uri_tree uri =
+ let rec aux l =
+ function
+ [name] ->
+ (try
+ let _ = List.find (fun item -> name = get_name item) !l in
+ raise DuplicatedUri
+ with
+ Not_found -> l := (File (name,uri))::!l
+ )
+ | name::tl ->
+ (try
+ match List.find (fun item -> name = get_name item) !l with
+ Dir (_,children) -> aux children tl
+ | File _ -> raise ConflictingUris
+ with
+ Not_found ->
+ let children = ref [] in
+ l := (Dir (name,children))::!l ;
+ aux children tl
+ )
+ | [] -> raise EmptyUri
+ in
+ aux
+;;
+
+(* Imperative procedure that builds the two uri trees *)
+let build_uri_tree () =
+ let dbh = Dbm.opendbm Configuration.uris_dbm [Dbm.Dbm_rdonly] 0 in
+ Dbm.iter
+ (fun uri _ ->
+ let cicregexp = Str.regexp "cic:"
+ and theoryregexp = Str.regexp "theory:" in
+ if Str.string_match cicregexp uri 0 then
+ let s = Str.replace_first cicregexp "" uri in
+ let l = Str.split (Str.regexp "/") s in
+ insert_in_uri_tree (UriManager.uri_of_string uri) uritree l
+ else if Str.string_match theoryregexp uri 0 then
+ let s = Str.replace_first theoryregexp "" uri in
+ let l = Str.split (Str.regexp "/") s in
+ insert_in_uri_tree (UriManager.uri_of_string uri) theoryuritree l
+ ) dbh ;
+ Dbm.close dbh
+;;
+
+(* GLOBAL REFERENCES (USED BY CALLBACKS) *)
+
+let annotated_obj = ref None;; (* reference to a couple option where *)
+ (* the first component is the current *)
+ (* annotated object and the second is *)
+ (* the map from ids to annotated targets *)
+let ann = ref (ref None);; (* current annotation *)
+let radio_some_status = ref false;; (* is the radio_some button selected? *)
+
+let theory_visited_uris = ref [];;
+let theory_to_visit_uris = ref [];;
+let visited_uris = ref [];;
+let to_visit_uris = ref [];;
+
+(* CALLBACKS *)
+
+exception NoCurrentUri;;
+exception NoNextOrPrevUri;;
+exception GtkInterfaceInternalError;;
+
+let theory_get_current_uri () =
+ match !theory_visited_uris with
+ [] -> raise NoCurrentUri
+ | uri::_ -> uri
+;;
+
+let get_current_uri () =
+ match !visited_uris with
+ [] -> raise NoCurrentUri
+ | uri::_ -> uri
+;;
+
+let get_annotated_obj () =
+ match !annotated_obj with
+ None ->
+ let (annobj, ids_to_targets,_) =
+ (CicCache.get_annobj (get_current_uri ()))
+ in
+ annotated_obj := Some (annobj, ids_to_targets) ;
+ (annobj, ids_to_targets)
+ | Some annobj -> annobj
+;;
+
+let filename_of_uri uri =
+ Getter.get uri
+;;
+
+let theory_update_output rendering_window uri =
+ rendering_window#label#set_text (UriManager.string_of_uri uri) ;
+ ignore (rendering_window#errors#delete_text 0 rendering_window#errors#length) ;
+ let mmlfile = XsltProcessor.process uri true "theory" in
+ rendering_window#output#load mmlfile
+;;
+
+let update_output rendering_window uri =
+ rendering_window#label#set_text (UriManager.string_of_uri uri) ;
+ ignore (rendering_window#errors#delete_text 0 rendering_window#errors#length) ;
+ let mmlfile = XsltProcessor.process uri true "cic" in
+ rendering_window#output#load mmlfile
+;;
+
+let theory_next rendering_window () =
+ match !theory_to_visit_uris with
+ [] -> raise NoNextOrPrevUri
+ | uri::tl ->
+ theory_to_visit_uris := tl ;
+ theory_visited_uris := uri::!theory_visited_uris ;
+ theory_update_output rendering_window uri ;
+ rendering_window#prevb#misc#set_sensitive true ;
+ if tl = [] then
+ rendering_window#nextb#misc#set_sensitive false
+;;
+
+let next rendering_window () =
+ match !to_visit_uris with
+ [] -> raise NoNextOrPrevUri
+ | uri::tl ->
+ to_visit_uris := tl ;
+ visited_uris := uri::!visited_uris ;
+ annotated_obj := None ;
+ update_output rendering_window uri ;
+ rendering_window#prevb#misc#set_sensitive true ;
+ if tl = [] then
+ rendering_window#nextb#misc#set_sensitive false
+;;
+
+let theory_prev rendering_window () =
+ match !theory_visited_uris with
+ [] -> raise NoCurrentUri
+ | [_] -> raise NoNextOrPrevUri
+ | uri::(uri'::tl as newvu) ->
+ theory_visited_uris := newvu ;
+ theory_to_visit_uris := uri::!theory_to_visit_uris ;
+ theory_update_output rendering_window uri' ;
+ rendering_window#nextb#misc#set_sensitive true ;
+ if tl = [] then
+ rendering_window#prevb#misc#set_sensitive false
+;;
+
+let prev rendering_window () =
+ match !visited_uris with
+ [] -> raise NoCurrentUri
+ | [_] -> raise NoNextOrPrevUri
+ | uri::(uri'::tl as newvu) ->
+ visited_uris := newvu ;
+ to_visit_uris := uri::!to_visit_uris ;
+ annotated_obj := None ;
+ update_output rendering_window uri' ;
+ rendering_window#nextb#misc#set_sensitive true ;
+ if tl = [] then
+ rendering_window#prevb#misc#set_sensitive false
+;;
+
+(* called when an hyperlink is clicked *)
+let jump rendering_window s =
+ let uri = UriManager.uri_of_string s in
+ rendering_window#show () ;
+ rendering_window#prevb#misc#set_sensitive true ;
+ rendering_window#nextb#misc#set_sensitive false ;
+ visited_uris := uri::!visited_uris ;
+ to_visit_uris := [] ;
+ annotated_obj := None ;
+ update_output rendering_window uri
+;;
+
+let changefont rendering_window () =
+ rendering_window#output#set_font_size rendering_window#spinb#value_as_int
+;;
+
+
+let theory_selection_changed rendering_window uri () =
+ match uri with
+ None -> ()
+ | Some uri' ->
+ if !theory_visited_uris <> [] then
+ rendering_window#prevb#misc#set_sensitive true ;
+ rendering_window#nextb#misc#set_sensitive false ;
+ theory_visited_uris := uri'::!theory_visited_uris ;
+ theory_to_visit_uris := [] ;
+ rendering_window#show () ;
+ theory_update_output rendering_window uri'
+;;
+
+let selection_changed rendering_window uri () =
+ match uri with
+ None -> ()
+ | Some uri' ->
+ if !visited_uris <> [] then
+ rendering_window#prevb#misc#set_sensitive true ;
+ rendering_window#nextb#misc#set_sensitive false ;
+ visited_uris := uri'::!visited_uris ;
+ to_visit_uris := [] ;
+ annotated_obj := None ;
+ rendering_window#show () ;
+ update_output rendering_window uri'
+;;
+
+(* CSC: unificare con la creazione la prima volta *)
+let rec updateb_pressed theory_rendering_window rendering_window
+ (sw1, sw ,(hbox : GPack.box)) mktree ()
+=
+ Getter.update () ;
+ (* let's empty the uri trees and rebuild them *)
+ uritree := [] ;
+ theoryuritree := [] ;
+ build_uri_tree () ;
+ hbox#remove !sw1#coerce ;
+ hbox#remove !sw#coerce ;
+
+ let sw3 =
+ GBin.scrolled_window ~width:250 ~height:600
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let tree1 =
+ GTree.tree ~selection_mode:`BROWSE ~packing:sw3#add_with_viewport () in
+ let tree_item1 = GTree.tree_item ~label:"theory:/" ~packing:tree1#append () in
+ sw1 := sw3 ;
+ ignore(tree_item1#connect#select
+ (theory_selection_changed theory_rendering_window None)) ;
+ mktree theory_selection_changed theory_rendering_window tree_item1
+ (Dir ("theory:/",theoryuritree)) ;
+
+ let sw2 =
+ GBin.scrolled_window ~width:250 ~height:600
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let tree =
+ GTree.tree ~selection_mode:`BROWSE ~packing:sw2#add_with_viewport () in
+ let tree_item = GTree.tree_item ~label:"cic:/" ~packing:tree#append () in
+ sw := sw2 ;
+ ignore(tree_item#connect#select (selection_changed rendering_window None)) ;
+ mktree selection_changed rendering_window tree_item (Dir ("cic:/",uritree))
+;;
+
+let theory_check rendering_window () =
+ let output =
+ try
+ TheoryTypeChecker.typecheck (theory_get_current_uri ());
+ "Type Checking was successful"
+ with
+ TheoryTypeChecker.NotWellTyped s ->
+ "Type Checking was NOT successful:\n\t" ^ s
+ in
+ (* next "cast" can't got rid of, but I don't know why *)
+ let errors = (rendering_window#errors : GEdit.text) in
+ let _ = errors#delete_text 0 errors#length in
+ errors#insert output
+;;
+
+let check rendering_window () =
+ let output =
+ try
+ CicTypeChecker.typecheck (get_current_uri ());
+ "Type Checking was successful"
+ with
+ CicTypeChecker.NotWellTyped s -> "Type Checking was NOT successful:\n\t" ^ s
+ in
+ (* next "cast" can't got rid of, but I don't know why *)
+ let errors = (rendering_window#errors : GEdit.text) in
+ let _ = errors#delete_text 0 errors#length in
+ errors#insert output
+;;
+
+let annotateb_pressed rendering_window annotation_window () =
+ let xpath = (rendering_window#output#get_selection : string option) in
+ match xpath with
+ None -> (rendering_window#errors : GEdit.text)#insert "\nNo selection!\n"
+ | Some xpath ->
+ try
+ let annobj = get_annotated_obj ()
+ (* next "cast" can't got rid of, but I don't know why *)
+ and annotation = (annotation_window#annotation : GEdit.text) in
+ ann := CicXPath.get_annotation annobj xpath ;
+ CicAnnotationHinter.create_hints annotation_window annobj xpath ;
+ annotation#delete_text 0 annotation#length ;
+ begin
+ match !(!ann) with
+ None ->
+ annotation#misc#set_sensitive false ;
+ annotation_window#radio_none#set_active true ;
+ radio_some_status := false
+ | Some ann' ->
+ annotation#insert ann' ;
+ annotation#misc#set_sensitive true ;
+ annotation_window#radio_some#set_active true ;
+ radio_some_status := true
+ end ;
+ GMain.Grab.add (annotation_window#window_to_annotate#coerce) ;
+ annotation_window#show () ;
+ with
+ e ->
+ (* next "cast" can't got rid of, but I don't know why *)
+ let errors = (rendering_window#errors : GEdit.text) in
+ errors#insert ("\n" ^ Printexc.to_string e ^ "\n")
+;;
+
+(* called when the annotation is confirmed *)
+let save_annotation annotation =
+ if !radio_some_status then
+ !ann := Some (annotation#get_chars 0 annotation#length)
+ else
+ !ann := None ;
+ match !annotated_obj with
+ None -> raise GtkInterfaceInternalError
+ | Some (annobj,_) ->
+ let uri = get_current_uri () in
+ let annxml = Annotation2Xml.pp_annotation annobj uri in
+ Xml.pp annxml (Some (fst (Getter.get_ann_file_name_and_uri uri)))
+;;
+
+let parse_no_cache uri =
+ let module U = UriManager in
+ XsltProcessor.process uri false "cic"
+;;
+
+
+(* STUFF TO BUILD THE GTK INTERFACE *)
+
+(* Stuff to build the tree window *)
+
+(* selection_changed is actually selection_changed or theory_selection_changed*)
+let mktree selection_changed rendering_window =
+ let rec aux treeitem =
+ function
+ Dir (dirname, content) ->
+ let subtree = GTree.tree () in
+ treeitem#set_subtree subtree ;
+ List.iter
+ (fun ti ->
+ let label = get_name ti
+ and uri = get_uri ti in
+ let treeitem2 = GTree.tree_item ~label:label () in
+ subtree#append treeitem2 ;
+ ignore(treeitem2#connect#select
+ (selection_changed rendering_window uri)) ;
+ aux treeitem2 ti
+ ) !content
+ | _ -> ()
+ in
+ aux
+;;
+
+class annotation_window output label =
+ let window_to_annotate =
+ GWindow.window ~title:"Annotating environment" ~border_width:2 () in
+ let hbox1 =
+ GPack.hbox ~packing:window_to_annotate#add () in
+ let vbox1 =
+ GPack.vbox ~packing:(hbox1#pack ~padding:5) () in
+ let hbox2 =
+ GPack.hbox ~packing:(vbox1#pack ~expand:false ~fill:false ~padding:5) () in
+ let radio_some = GButton.radio_button ~label:"Annotation below"
+ ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5) () in
+ let radio_none = GButton.radio_button ~label:"No annotation"
+ ~group:radio_some#group
+ ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5)
+ ~active:true () in
+ let annotation = GEdit.text ~editable:true ~width:400 ~height:180
+ ~packing:(vbox1#pack ~padding:5) () in
+ let table =
+ GPack.table ~rows:3 ~columns:3 ~packing:(vbox1#pack ~padding:5) () in
+ let annotation_hints =
+ Array.init 9
+ (function i ->
+ GButton.button ~label:("Hint " ^ string_of_int i)
+ ~packing:(table#attach ~left:(i mod 3) ~top:(i / 3)) ()
+ ) in
+ let vbox2 =
+ GPack.vbox ~packing:(hbox1#pack ~expand:false ~fill:false ~padding:5) () in
+ let confirmb =
+ GButton.button ~label:"O.K."
+ ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
+ let abortb =
+ GButton.button ~label:"Abort"
+ ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
+object (self)
+ method window_to_annotate = window_to_annotate
+ method annotation = annotation
+ method radio_some = radio_some
+ method radio_none = radio_none
+ method annotation_hints = annotation_hints
+ method output = (output : GMathView.math_view)
+ method show () = window_to_annotate#show ()
+ initializer
+ (* signal handlers here *)
+ ignore (window_to_annotate#event#connect#delete
+ (fun _ ->
+ window_to_annotate#misc#hide () ;
+ GMain.Grab.remove (window_to_annotate#coerce) ;
+ true
+ )) ;
+ ignore (confirmb#connect#clicked
+ (fun () ->
+ window_to_annotate#misc#hide () ;
+ save_annotation annotation ;
+ GMain.Grab.remove (window_to_annotate#coerce) ;
+ let new_current_uri =
+ (snd (Getter.get_ann_file_name_and_uri (get_current_uri ())))
+ in
+ visited_uris := new_current_uri::(List.tl !visited_uris) ;
+ label#set_text (UriManager.string_of_uri new_current_uri) ;
+ output#load (parse_no_cache new_current_uri)
+ )) ;
+ ignore (abortb#connect#clicked
+ (fun () ->
+ window_to_annotate#misc#hide () ;
+ GMain.Grab.remove (window_to_annotate#coerce)
+ ));
+ ignore (radio_some#connect#clicked
+ (fun () -> annotation#misc#set_sensitive true ; radio_some_status := true)) ;
+ ignore (radio_none #connect#clicked
+ (fun () ->
+ annotation#misc#set_sensitive false;
+ radio_some_status := false)
+ )
+end;;
+
+class rendering_window annotation_window output (label : GMisc.label) =
+ let window =
+ GWindow.window ~title:"MathML viewer" ~border_width:2 () in
+ let vbox =
+ GPack.vbox ~packing:window#add () in
+ let _ = vbox#pack ~expand:false ~fill:false ~padding:5 label#coerce in
+ let paned =
+ GPack.paned `HORIZONTAL ~packing:(vbox#pack ~padding:5) () in
+ let scrolled_window0 =
+ GBin.scrolled_window ~border_width:10 ~packing:paned#add1 () in
+ let _ = scrolled_window0#add output#coerce in
+ let scrolled_window =
+ GBin.scrolled_window
+ ~border_width:10 ~packing:paned#add2 ~width:240 ~height:100 () in
+ let errors = GEdit.text ~packing:scrolled_window#add_with_viewport () in
+ let hbox =
+ GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let prevb =
+ GButton.button ~label:"Prev"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let nextb =
+ GButton.button ~label:"Next"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let checkb =
+ GButton.button ~label:"Check"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let annotateb =
+ GButton.button ~label:"Annotate"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let spinb =
+ let sadj =
+ GData.adjustment ~value:14.0 ~lower:5.0 ~upper:50.0 ~step_incr:1.0 ()
+ in
+ GEdit.spin_button
+ ~adjustment:sadj ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5)
+ () in
+ let closeb =
+ GButton.button ~label:"Close"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+object(self)
+ method nextb = nextb
+ method prevb = prevb
+ method label = label
+ method spinb = spinb
+ method output = (output : GMathView.math_view)
+ method errors = errors
+ method show () = window#show ()
+ initializer
+ nextb#misc#set_sensitive false ;
+ prevb#misc#set_sensitive false ;
+
+ (* signal handlers here *)
+ ignore(output#connect#jump (jump self)) ;
+ ignore(nextb#connect#clicked (next self)) ;
+ ignore(prevb#connect#clicked (prev self)) ;
+ ignore(checkb#connect#clicked (check self)) ;
+ ignore(spinb#connect#changed (changefont self)) ;
+ ignore(closeb#connect#clicked window#misc#hide) ;
+ ignore(annotateb#connect#clicked (annotateb_pressed self annotation_window)) ;
+ ignore(window#event#connect#delete (fun _ -> window#misc#hide () ; true ))
+end;;
+
+class theory_rendering_window rendering_window =
+ let window =
+ GWindow.window ~title:"MathML theory viewer" ~border_width:2 () in
+ let vbox =
+ GPack.vbox ~packing:window#add () in
+ let label =
+ GMisc.label ~text:"???"
+ ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let paned =
+ GPack.paned `HORIZONTAL ~packing:(vbox#pack ~padding:5) () in
+ let scrolled_window0 =
+ GBin.scrolled_window ~border_width:10 ~packing:paned#add1 () in
+ let output =
+ GMathView.math_view ~width:400 ~height:380 ~packing:scrolled_window0#add () in
+ let scrolled_window =
+ GBin.scrolled_window
+ ~border_width:10 ~packing:paned#add2 ~width:240 ~height:100 () in
+ let errors = GEdit.text ~packing:scrolled_window#add_with_viewport () in
+ let hbox =
+ GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let prevb =
+ GButton.button ~label:"Prev"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let nextb =
+ GButton.button ~label:"Next"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let checkb =
+ GButton.button ~label:"Check"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let spinb =
+ let sadj =
+ GData.adjustment ~value:14.0 ~lower:5.0 ~upper:50.0 ~step_incr:1.0 ()
+ in
+ GEdit.spin_button
+ ~adjustment:sadj ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5)
+ () in
+ let closeb =
+ GButton.button ~label:"Close"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+object(self)
+ method nextb = nextb
+ method prevb = prevb
+ method label = label
+ method output = (output : GMathView.math_view)
+ method errors = errors
+ method spinb = spinb
+ method show () = window#show ()
+ initializer
+ nextb#misc#set_sensitive false ;
+ prevb#misc#set_sensitive false ;
+
+ (* signal handlers here *)
+ ignore(output#connect#jump (jump rendering_window)) ;
+ ignore(nextb#connect#clicked (theory_next self)) ;
+ ignore(prevb#connect#clicked (theory_prev self)) ;
+ ignore(checkb#connect#clicked (theory_check self)) ;
+ ignore(spinb#connect#changed (changefont self)) ;
+ ignore(closeb#connect#clicked window#misc#hide) ;
+ ignore(window#event#connect#delete (fun _ -> window#misc#hide () ; true ))
+end;;
+
+(* CSC: fare in modo che i due alberi vengano svuotati invece che distrutti *)
+class selection_window theory_rendering_window rendering_window =
+ let label = "cic:/" in
+ let theorylabel = "theory:/" in
+ let win = GWindow.window ~title:"Known uris" ~border_width:2 () in
+ let vbox = GPack.vbox ~packing:win#add () in
+ let hbox1 = GPack.hbox ~packing:(vbox#pack ~padding:5) () in
+ let sw1 = GBin.scrolled_window ~width:250 ~height:600
+ ~packing:(hbox1#pack ~padding:5) () in
+ let tree1 =
+ GTree.tree ~selection_mode:`BROWSE ~packing:sw1#add_with_viewport () in
+ let tree_item1 =
+ GTree.tree_item ~label:theorylabel ~packing:tree1#append () in
+ let sw = GBin.scrolled_window ~width:250 ~height:600
+ ~packing:(hbox1#pack ~padding:5) () in
+ let tree =
+ GTree.tree ~selection_mode:`BROWSE ~packing:sw#add_with_viewport () in
+ let tree_item =
+ GTree.tree_item ~label:label ~packing:tree#append () in
+ let hbox =
+ GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let updateb =
+ GButton.button ~label:"Update"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+ let quitb =
+ GButton.button ~label:"Quit"
+ ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
+object (self)
+ method show () = win#show ()
+ initializer
+ mktree theory_selection_changed theory_rendering_window tree_item1
+ (Dir ("theory:/",theoryuritree));
+ mktree selection_changed rendering_window tree_item
+ (Dir ("cic:/",uritree));
+
+ (* signal handlers here *)
+ ignore (tree_item1#connect#select
+ ~callback:(theory_selection_changed theory_rendering_window None)) ;
+ ignore (tree_item#connect#select
+ ~callback:(selection_changed rendering_window None)) ;
+ ignore (win#connect#destroy ~callback:GMain.Main.quit) ;
+ ignore (quitb#connect#clicked GMain.Main.quit) ;
+ ignore(updateb#connect#clicked (updateb_pressed
+ theory_rendering_window rendering_window (ref sw1, ref sw, hbox1) mktree))
+end;;
+
+
+(* MAIN *)
+
+let _ =
+ build_uri_tree () ;
+ let output = GMathView.math_view ~width:400 ~height:380 ()
+ and label = GMisc.label ~text:"???" () in
+ let annotation_window = new annotation_window output label in
+ let rendering_window = new rendering_window annotation_window output label in
+ let theory_rendering_window = new theory_rendering_window rendering_window in
+ let selection_window =
+ new selection_window theory_rendering_window rendering_window
+ in
+ selection_window#show () ;
+ GMain.Main.main ()
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 11/10/2000 *)
+(* *)
+(* *)
+(******************************************************************************)
+
+let resolve =
+ function
+ "http://localhost:8081/getdtd?url=cic.dtd" ->
+ "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/cic.dtd"
+ | "http://localhost:8081/getdtd?url=maththeory.dtd" ->
+ "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/maththeory.dtd"
+ | "http://localhost:8081/getdtd?url=annotations.dtd" ->
+ "/home/pauillac/coq3/sacerdot/HELM/INTERFACE/examples/dtd/annotations.dtd"
+ | s -> s
+;;
+
+let url_syntax =
+ let enable_if =
+ function
+ `Not_recognized -> Neturl.Url_part_not_recognized
+ | `Allowed -> Neturl.Url_part_allowed
+ | `Required -> Neturl.Url_part_required
+ in
+ { Neturl.null_url_syntax with
+ Neturl.url_enable_scheme = enable_if `Allowed;
+ Neturl.url_enable_host = enable_if `Allowed;
+ Neturl.url_enable_path = Neturl.Url_part_required;
+ Neturl.url_accepts_8bits = true;
+ }
+;;
+
+let file_url_of_id xid =
+ let file_url_of_sysname sysname =
+ (* By convention, we can assume that sysname is a URL conforming
+ * to RFC 1738 with the exception that it may contain non-ASCII
+ * UTF-8 characters.
+ *)
+ try
+ Neturl.url_of_string url_syntax sysname
+ (* may raise Malformed_URL *)
+ with
+ Neturl.Malformed_URL -> raise Pxp_reader.Not_competent
+ in
+ let url =
+ match xid with
+ Pxp_types.Anonymous -> raise Pxp_reader.Not_competent
+ | Pxp_types.Public (_,sysname) ->
+ let sysname = resolve sysname in
+ if sysname <> "" then file_url_of_sysname sysname
+ else raise Pxp_reader.Not_competent
+ | Pxp_types.System sysname ->
+ let sysname = resolve sysname in
+ file_url_of_sysname sysname
+ in
+ let scheme =
+ try Neturl.url_scheme url with Not_found -> "file" in
+ let host =
+ try Neturl.url_host url with Not_found -> "" in
+
+ if scheme <> "file" then raise Pxp_reader.Not_competent;
+ if host <> "" && host <> "localhost" then raise Pxp_reader.Not_competent;
+
+ url
+;;
+
+let from_file ?system_encoding utf8_filename =
+
+ let r =
+ new Pxp_reader.resolve_as_file
+ ?system_encoding:system_encoding
+ ~url_of_id:file_url_of_id
+ ()
+ in
+
+ let utf8_abs_filename =
+ if utf8_filename <> "" && utf8_filename.[0] = '/' then
+ utf8_filename
+ else
+ Sys.getcwd() ^ "/" ^ utf8_filename
+ in
+
+ let syntax = { Neturl.ip_url_syntax with Neturl.url_accepts_8bits = true } in
+ let url = Neturl.make_url
+ ~scheme:"file"
+ ~host:"localhost"
+ ~path:(Neturl.split_path utf8_abs_filename)
+ syntax
+ in
+
+ let xid = Pxp_types.System (Neturl.string_of_url url) in
+
+
+ Pxp_yacc.ExtID(xid, r)
+;;
+
+
--- /dev/null
+let read_from_stdin = ref false;;
+let uris_in_input = ref false;;
+let reduction_only = ref false;;
+
+let parse uri =
+ print_endline ("^^^" ^ uri ^ "^^^") ;
+ print_string (CicPp.ppobj (CicCache.get_obj (UriManager.uri_of_string uri))) ;
+ print_endline ("\n$$$" ^ uri ^ "$$$\n")
+;;
+
+let uri_of_filename fn =
+ if !uris_in_input then fn
+ else
+ let uri =
+ Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
+ in
+ let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
+ uri'
+;;
+
+(* filenames are read from command line and converted to uris via *)
+(* uri_of_filenames; then the cic terms are load in cache via *)
+(* CicCache.get_obj and then pretty printed via CicPp.ppobj *)
+
+exception NotADefinition;;
+
+let main () =
+ let files = ref [] in
+ Arg.parse
+ ["-stdin", Arg.Set read_from_stdin, "Read from stdin" ;
+ "-uris", Arg.Set uris_in_input, "Read uris, not filenames" ;
+ "-update", Arg.Unit Getter.update, "Update the getter view of the world" ;
+ "-reduction", Arg.Set reduction_only, "Do reduction instead of tyepchecking"]
+ (fun x -> files := (uri_of_filename x) :: !files)
+ "
+usage: experiment file ...
+
+List of options:";
+ if !read_from_stdin then
+ begin
+ try
+ while true do
+ let l = Str.split (Str.regexp " ") (read_line ()) in
+ List.iter (fun x -> files := (uri_of_filename x) :: !files) l
+ done
+ with
+ End_of_file -> ()
+ end ;
+ files := List.rev !files;
+ List.iter
+ (function x ->
+ print_string x ;
+ flush stdout ;
+ (try
+ if !reduction_only then
+ match CicCache.get_obj (UriManager.uri_of_string x) with
+ Cic.Definition (_,bo,_,_) ->
+ CicTypeChecker.typecheck (UriManager.uri_of_string x) ;
+ ignore (CicReduction.whd bo)
+ | _ -> raise NotADefinition
+ else
+ CicTypeChecker.typecheck (UriManager.uri_of_string x)
+ with
+ e -> print_newline () ; flush stdout ; raise e ) ;
+ print_endline " OK!" ;
+ flush stdout
+ ) !files
+;;
+
+main ();;
--- /dev/null
+http://caristudenti.students.cs.unibo.it/~sacerdot/helm
+http://pagadebit.students.cs.unibo.it/really_very_local/helm/PARSER/examples
--- /dev/null
+http://rigoletto.casamia.csc/helm1/coq
+http://rigoletto.casamia.csc/helm2/coq
--- /dev/null
+http://phd.cs.unibo.it/helm/PARSER/examples
+http://caristudenti.students.cs.unibo.it/~sacerdot/helm
--- /dev/null
+type theory_elem =
+ Theorem of string (* uri *)
+ | Definition of string (* uri *)
+ | Axiom of string (* uri *)
+ | Variable of string (* uri *)
+ | Section of string * theory_elem list (* uri, subtheory *)
+and theory =
+ string * theory_elem list (* uri, subtheory *)
+;;
--- /dev/null
+type check_status = Checked | Unchecked;;
+
+let hashtable = Hashtbl.create 17;;
+
+let get_term_and_type_checking_info uri =
+ try
+ Hashtbl.find hashtable uri
+ with
+ Not_found ->
+ let filename = Getter.get uri in
+ let term = TheoryParser.theory_of_xml filename in
+ Hashtbl.add hashtable uri (term, Unchecked) ;
+ (term, Unchecked)
+;;
+
+
+let get_theory uri =
+ fst (get_term_and_type_checking_info uri)
+;;
+
+let is_type_checked uri =
+ match snd (get_term_and_type_checking_info uri) with
+ Checked -> true
+ | Unchecked -> false
+;;
+
+let set_type_checking_info uri =
+ match Hashtbl.find hashtable uri with
+ (term, _) ->
+ Hashtbl.remove hashtable uri ;
+ Hashtbl.add hashtable uri (term, Checked)
+;;
--- /dev/null
+exception Warnings;;
+
+class warner =
+ object
+ method warn w =
+ print_endline ("WARNING: " ^ w) ;
+ (raise Warnings : unit)
+ end
+;;
+
+exception EmptyUri;;
+
+let theory_of_xml filename =
+ let module Y = Pxp_yacc in
+ try
+ let d =
+ let config = {Y.default_config with Y.warner = new warner} in
+ Y.parse_document_entity config
+(*PXP (Y.ExtID (Pxp_types.System filename,
+ new Pxp_reader.resolve_as_file ~url_of_id ()))
+*) (PxpUriResolver.from_file filename)
+ Y.default_spec
+ in
+ TheoryParser2.get_theory d#root
+ with
+ e ->
+ print_endline (Pxp_types.string_of_exn e) ;
+ raise e
+;;
--- /dev/null
+exception IllFormedXml of int;;
+
+(* Utility functions that transform a Pxp attribute into something useful *)
+
+let string_of_attr a =
+ let module T = Pxp_types in
+ match a with
+ T.Value s -> s
+ | _ -> raise (IllFormedXml 0)
+
+let get_theory n =
+ let module D = Pxp_document in
+ let module T = Theory in
+ let rec get_theory_elem n =
+ let ntype = n # node_type in
+ match ntype with
+ D.T_element "THEOREM" ->
+ let uri = string_of_attr (n # attribute "uri") in
+ T.Theorem uri
+ | D.T_element "DEFINITION" ->
+ let uri = string_of_attr (n # attribute "uri") in
+ T.Definition uri
+ | D.T_element "AXIOM" ->
+ let uri = string_of_attr (n # attribute "uri") in
+ T.Axiom uri
+ | D.T_element "VARIABLE" ->
+ let uri = string_of_attr (n # attribute "uri") in
+ T.Variable uri
+ | D.T_element "SECTION" ->
+ let uri = string_of_attr (n # attribute "uri")
+ and subtheory = List.map get_theory_elem (n # sub_nodes) in
+ T.Section (uri, subtheory)
+ | D.T_element _ | D.T_data | _ ->
+ raise (IllFormedXml 1)
+ in
+ match n # node_type with
+ D.T_element "Theory" ->
+ let uri = string_of_attr (n # attribute "uri") in
+ (uri, List.map get_theory_elem (n # sub_nodes))
+ | _ -> raise (IllFormedXml 2)
+;;
--- /dev/null
+exception NotWellTyped of string;;
+
+let typecheck uri =
+ let rec typecheck_term curi t =
+ let module T = Theory in
+ let module P = CicTypeChecker in
+ let module C = CicCache in
+ let module U = UriManager in
+ let obj_typecheck uri =
+ try
+ P.typecheck (U.uri_of_string uri)
+ with
+ P.NotWellTyped s ->
+ raise (NotWellTyped
+ ("Type Checking was NOT successfull due to an error during " ^
+ "type-checking of term " ^ uri ^ ":\n\n" ^ s))
+ in
+ match t with
+ T.Theorem uri -> obj_typecheck (curi ^ "/" ^ uri)
+ | T.Definition uri -> obj_typecheck (curi ^ "/" ^ uri)
+ | T.Axiom uri -> obj_typecheck (curi ^ "/" ^ uri)
+ | T.Variable uri -> obj_typecheck (curi ^ "/" ^ uri)
+ | T.Section (uri,l) -> typecheck_theory l (curi ^ "/" ^ uri)
+ and typecheck_theory l curi =
+ List.iter (typecheck_term curi) l
+ in
+ let (uri, l) = TheoryCache.get_theory uri in
+ typecheck_theory l uri
+;;
--- /dev/null
+#!/usr/bin/perl
+
+while(<STDIN>)
+{
+ s/helm:xref="[^"]*"//g;
+ s/helm:xref='[^']*'//g;
+ print;
+}
--- /dev/null
+#!/bin/bash
+
+echo "****" $1
+cp $1 /tmp/pippo
+cat /tmp/pippo | ./toglie_helm_xref.pl > $1
--- /dev/null
+(* "cic:/a/b/c.con" => [| "cic:/a" ; "cic:/a/b" ; "cic:/a/b/c.con" ; "c" |] *)
+type uri = string array;;
+
+let eq uri1 uri2 =
+ uri1 == uri2
+;;
+
+let string_of_uri uri = uri.(Array.length uri - 2);;
+let name_of_uri uri = uri.(Array.length uri - 1);;
+let buri_of_uri uri = uri.(Array.length uri - 3);;
+let depth_of_uri uri = Array.length uri - 2;;
+
+(*CSC: ora e' diventato poco efficiente, migliorare *)
+let relative_depth curi uri cookingsno =
+ let rec length_of_current_prefix l1 l2 =
+ match (l1, l2) with
+ (he1::tl1, he2::tl2) when he1 == he2 ->
+ 1 + length_of_current_prefix tl1 tl2
+ | (_,_) -> 0
+ in
+ depth_of_uri uri -
+ length_of_current_prefix
+ (Array.to_list (Array.sub curi 0 (Array.length curi - (2 + cookingsno))))
+ (Array.to_list (Array.sub uri 0 (Array.length uri - 2)))
+ (*CSC: vecchio codice da eliminare
+ if eq curi uri then 0
+ else
+ depth_of_uri uri -
+ length_of_current_prefix (Array.to_list curi) (Array.to_list uri)
+ *)
+;;
+
+module OrderedStrings =
+ struct
+ type t = string
+ let compare (s1 : t) (s2 : t) = compare s1 s2
+ end
+;;
+
+module SetOfStrings = Map.Make(OrderedStrings);;
+
+(*CSC: commento obsoleto ed errato *)
+(* Invariant: the map is the identity function, *)
+(* i.e. (SetOfStrings.find str !set_of_uri) == str *)
+let set_of_uri = ref SetOfStrings.empty;;
+let set_of_prefixes = ref SetOfStrings.empty;;
+
+(* similar to uri_of_string, but used for prefixes of uris *)
+let normalize prefix =
+ try
+ SetOfStrings.find prefix !set_of_prefixes
+ with
+ Not_found ->
+ set_of_prefixes := SetOfStrings.add prefix prefix !set_of_prefixes ;
+ prefix
+;;
+
+exception IllFormedUri of string;;
+
+let mk_prefixes str =
+ let rec aux curi =
+ function
+ [he] ->
+ let prefix_uri = curi ^ "/" ^ he
+ and name = List.hd (Str.split (Str.regexp "\.") he) in
+ [ normalize prefix_uri ; name ]
+ | he::tl ->
+ let prefix_uri = curi ^ "/" ^ he in
+ (normalize prefix_uri)::(aux prefix_uri tl)
+ | _ -> raise (IllFormedUri str)
+ in
+ let tokens = (Str.split (Str.regexp "/") str) in
+ (* ty = "cic:" *)
+ let (ty, sp) = (List.hd tokens, List.tl tokens) in
+ aux ty sp
+;;
+
+let uri_of_string str =
+ try
+ SetOfStrings.find str !set_of_uri
+ with
+ Not_found ->
+ let uri = Array.of_list (mk_prefixes str) in
+ set_of_uri := SetOfStrings.add str uri !set_of_uri ;
+ uri
+;;
--- /dev/null
+type uri = string;;
+
+let eq uri1 uri2 =
+ uri1 = uri2
+;;
+
+let string_of_uri uri = uri;;
+let uri_of_string str = str;;
+
+let name_of_uri uri =
+ let l = Str.split (Str.regexp "/") uri in
+ let name_suf = List.nth l (List.length l - 1) in
+ List.hd (Str.split (Str.regexp "\.") name_suf)
+;;
+
+let depth_of_uri uri =
+ List.length (Str.split (Str.regexp "/") uri) - 2
+;;
--- /dev/null
+(* "cic:/a/b/c.con" => [| "cic:/a" ; "cic:/a/b" ; "cic:/a/b/c.con" ; "c" |] *)
+type uri = string array;;
+
+let eq uri1 uri2 =
+ uri1 == uri2
+;;
+
+let string_of_uri uri = uri.(Array.length uri - 2);;
+let name_of_uri uri = uri.(Array.length uri - 1);;
+let buri_of_uri uri = uri.(Array.length uri - 3);;
+let depth_of_uri uri = Array.length uri - 2;;
+
+(*CSC: ora e' diventato poco efficiente, migliorare *)
+let relative_depth curi uri cookingsno =
+ let rec length_of_current_prefix l1 l2 =
+ match (l1, l2) with
+ (he1::tl1, he2::tl2) when he1 == he2 ->
+ 1 + length_of_current_prefix tl1 tl2
+ | (_,_) -> 0
+ in
+ depth_of_uri uri -
+ length_of_current_prefix
+ (Array.to_list (Array.sub curi 0 (Array.length curi - (2 + cookingsno))))
+ (Array.to_list (Array.sub uri 0 (Array.length uri - 2)))
+ (*CSC: vecchio codice da eliminare
+ if eq curi uri then 0
+ else
+ depth_of_uri uri -
+ length_of_current_prefix (Array.to_list curi) (Array.to_list uri)
+ *)
+;;
+
+module OrderedStrings =
+ struct
+ type t = string
+ let compare (s1 : t) (s2 : t) = compare s1 s2
+ end
+;;
+
+module SetOfStrings = Map.Make(OrderedStrings);;
+
+(*CSC: commento obsoleto ed errato *)
+(* Invariant: the map is the identity function, *)
+(* i.e. (SetOfStrings.find str !set_of_uri) == str *)
+let set_of_uri = ref SetOfStrings.empty;;
+let set_of_prefixes = ref SetOfStrings.empty;;
+
+(* similar to uri_of_string, but used for prefixes of uris *)
+let normalize prefix =
+ try
+ SetOfStrings.find prefix !set_of_prefixes
+ with
+ Not_found ->
+ set_of_prefixes := SetOfStrings.add prefix prefix !set_of_prefixes ;
+ prefix
+;;
+
+exception IllFormedUri of string;;
+
+let mk_prefixes str =
+ let rec aux curi =
+ function
+ [he] ->
+ let prefix_uri = curi ^ "/" ^ he
+ and name = List.hd (Str.split (Str.regexp "\.") he) in
+ [ normalize prefix_uri ; name ]
+ | he::tl ->
+ let prefix_uri = curi ^ "/" ^ he in
+ (normalize prefix_uri)::(aux prefix_uri tl)
+ | _ -> raise (IllFormedUri str)
+ in
+ let tokens = (Str.split (Str.regexp "/") str) in
+ (* ty = "cic:" *)
+ let (ty, sp) = (List.hd tokens, List.tl tokens) in
+ aux ty sp
+;;
+
+let uri_of_string str =
+ try
+ SetOfStrings.find str !set_of_uri
+ with
+ Not_found ->
+ let uri = Array.of_list (mk_prefixes str) in
+ set_of_uri := SetOfStrings.add str uri !set_of_uri ;
+ uri
+;;
--- /dev/null
+type uri = string;;
+
+let eq uri1 uri2 =
+ uri1 == uri2
+;;
+
+let string_of_uri uri = uri;;
+
+let name_of_uri uri =
+ let l = Str.split (Str.regexp "/") uri in
+ let name_suf = List.nth l (List.length l - 1) in
+ List.hd (Str.split (Str.regexp "\.") name_suf)
+;;
+
+let depth_of_uri uri =
+ List.length (Str.split (Str.regexp "/") uri) - 2
+;;
+
+module OrderedStrings =
+ struct
+ type t = string
+ let compare (s1 : t) (s2 : t) = compare s1 s2
+ end
+;;
+
+module SetOfStrings = Map.Make(OrderedStrings);;
+
+(* Invariant: the map is the identity function, *)
+(* i.e. (SetOfStrings.find str !set_of_uri) == str *)
+let set_of_uri = ref SetOfStrings.empty;;
+
+let uri_of_string str =
+ try
+ SetOfStrings.find str !set_of_uri
+ with
+ Not_found ->
+ set_of_uri := SetOfStrings.add str str !set_of_uri ;
+ str
+;;
--- /dev/null
+type uri
+
+val eq : uri -> uri -> bool
+
+val uri_of_string : string -> uri
+
+val string_of_uri : uri -> string (* complete uri *)
+val name_of_uri : uri -> string (* name only (without extension)*)
+val buri_of_uri : uri -> string (* base uri only *)
+val depth_of_uri : uri -> int (* length of the path *)
+
+(* relative_depth curi uri cookingsno *)
+(* is the number of times to cook uri to use it when the current uri is curi *)
+(* cooked cookingsno times *)
+val relative_depth : uri -> uri -> int -> int
--- /dev/null
+#!/usr/bin/perl
+
+while(<STDIN>) {
+ chomp;
+ split / /;
+ for (@_) {
+ if (/.*\.(con|var|ind)\.xml/)
+ { s/\./cic:/; }
+ elsif (/.*\.theory\.xml/)
+ { s/\./theory:/; }
+ s/\.xml//;
+ print;
+ print "\n";
+ }
+}
--- /dev/null
+// Base header file. Must be first.
+#include <Include/PlatformDefinitions.hpp>
+
+#include <iostream>
+#include <fstream>
+
+#include <util/PlatformUtils.hpp>
+
+#include <PlatformSupport/DOMStringHelper.hpp>
+
+#include <DOMSupport/DOMSupportDefault.hpp>
+
+#include <XPath/XObjectFactoryDefault.hpp>
+#include <XPath/XPathSupportDefault.hpp>
+#include <XPath/XPathFactoryDefault.hpp>
+
+#include <XSLT/StylesheetConstructionContextDefault.hpp>
+#include <XSLT/StylesheetExecutionContextDefault.hpp>
+#include <XSLT/XSLTEngineImpl.hpp>
+#include <XSLT/XSLTInit.hpp>
+#include <XSLT/XSLTInputSource.hpp>
+#include <XSLT/XSLTProcessorEnvSupportDefault.hpp>
+#include <XSLT/XSLTResultTarget.hpp>
+
+#include <XercesParserLiaison/XercesDOMSupport.hpp>
+#include <XercesParserLiaison/XercesParserLiaison.hpp>
+
+int main(int argc, const char* [])
+{
+#if !defined(XALAN_NO_NAMESPACES)
+ using std::cerr;
+ using std::endl;
+ using std::ofstream;
+#endif
+
+ if (argc != 1) {
+ cerr << "Usage: SimpleTransform"
+ << endl
+ << endl;
+ } else {
+ try {
+ // Call the static initializer for Xerces...
+ XMLPlatformUtils::Initialize();
+
+ {
+ // Initialize the Xalan XSLT subsystem...
+ XSLTInit theInit;
+
+ // Create the support objects that are necessary for
+ // running the processor...
+ XercesDOMSupport theDOMSupport;
+ XercesParserLiaison theParserLiaison(theDOMSupport);
+ XPathSupportDefault theXPathSupport(theDOMSupport);
+ XSLTProcessorEnvSupportDefault theXSLTProcessorEnvSupport;
+ XObjectFactoryDefault theXObjectFactory;
+ XPathFactoryDefault theXPathFactory;
+
+ // Create a processor...
+ XSLTEngineImpl theProcessor(
+ theParserLiaison,
+ theXPathSupport,
+ theXSLTProcessorEnvSupport,
+ theDOMSupport,
+ theXObjectFactory,
+ theXPathFactory);
+
+ // Connect the processor to the support object...
+ theXSLTProcessorEnvSupport.setProcessor(&theProcessor);
+
+ // Create a stylesheet construction context, and a stylesheet
+ // execution context...
+ StylesheetConstructionContextDefault theConstructionContext(
+ theProcessor,
+ theXSLTProcessorEnvSupport,
+ theXPathFactory);
+
+ StylesheetExecutionContextDefault theExecutionContext(
+ theProcessor,
+ theXSLTProcessorEnvSupport,
+ theXPathSupport,
+ theXObjectFactory);
+
+ // Our input files...The assumption is that the executable will be
+ // run from same directory as the input files.
+ const XalanDOMString theXMLFileName("foo.xml");
+ const XalanDOMString theXSLFileName("foo.xsl");
+
+ // Our input sources...
+ XSLTInputSource theInputSource(c_wstr(theXMLFileName));
+ XSLTInputSource theStylesheetSource(c_wstr(theXSLFileName));
+
+ // Our output target...
+ const XalanDOMString theOutputFileName("foo.out");
+ XSLTResultTarget theResultTarget(theOutputFileName);
+
+ theProcessor.process(
+ theInputSource,
+ theStylesheetSource,
+ theResultTarget,
+ theConstructionContext,
+ theExecutionContext);
+
+ }
+
+ // Call the static terminator for Xerces...
+ XMLPlatformUtils::Terminate();
+ }
+ catch(...) {
+ cerr << "Exception caught!!!"
+ << endl
+ << endl;
+ }
+ }
+
+ return 0;
+}
+
+/**************************************************/
+/*
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! * /
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
+
+*/
--- /dev/null
+import java.net.*;
+
+public class rompi {
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
+ {
+ /* Wait forever ;-) */
+ DatagramSocket socket2 = new DatagramSocket(12346);
+ DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
+ System.out.println("Ho preso il socket e non lo lascio piu', caro pu, caro pu");
+ socket2.receive(packet2);
+ }
+}
--- /dev/null
+import java.net.*;
+
+public class sped {
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
+ {
+ String input = argv[0];
+ String out1 = argv[1];
+ String out2 = argv[2];
+
+ String sent = input + " " + out1 + " " + out2;
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket = new DatagramSocket();
+
+ int strlen = sent.length();
+ byte buf[] = new byte[strlen];
+ sent.getBytes(0,strlen,buf,0);
+ DatagramPacket packet = new DatagramPacket(buf,strlen,address,12345);
+
+ socket.send(packet);
+
+
+ /* Wait for answer (or forever ;-) */
+ DatagramSocket socket2 = new DatagramSocket(12346);
+ DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
+ socket2.receive(packet2);
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* A tactic to print Coq objects in XML *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 18/10/2000 *)
+(* *)
+(* This module defines a pretty-printer and the stream of commands to the pp *)
+(* *)
+(******************************************************************************)
+
+
+(* the type token for XML cdata, empty elements and not-empty elements *)
+(* Usage: *)
+(* Str cdata *)
+(* Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen] *)
+(* NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
+(* content *)
+type token = Str of string
+ | Empty of string * (string * string) list
+ | NEmpty of string * (string * string) list * token Stream.t
+;;
+
+(* currified versions of the constructors make the code more readable *)
+let xml_empty name attrs = [< 'Empty(name,attrs) >]
+let xml_nempty name attrs content = [< 'NEmpty(name,attrs,content) >]
+let xml_cdata str = [< 'Str str >]
+
+(* Usage: *)
+(* pp tokens None pretty prints the output on stdout *)
+(* pp tokens (Some filename) pretty prints the output on the file filename *)
+let pp strm fn =
+ let channel = ref stdout in
+ let rec pp_r m =
+ parser
+ [< 'Str a ; s >] ->
+ print_spaces m ;
+ fprint_string (a ^ "\n") ;
+ pp_r m s
+ | [< 'Empty(n,l) ; s >] ->
+ print_spaces m ;
+ fprint_string ("<" ^ n) ;
+ List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
+ fprint_string "/>\n" ;
+ pp_r m s
+ | [< 'NEmpty(n,l,c) ; s >] ->
+ print_spaces m ;
+ fprint_string ("<" ^ n) ;
+ List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
+ fprint_string ">\n" ;
+ pp_r (m+1) c ;
+ print_spaces m ;
+ fprint_string ("</" ^ n ^ ">\n") ;
+ pp_r m s
+ | [< >] -> ()
+ and print_spaces m =
+ for i = 1 to m do fprint_string " " done
+ and fprint_string str =
+ output_string !channel str
+ in
+ match fn with
+ Some filename ->
+ channel := open_out filename ;
+ pp_r 0 strm ;
+ close_out !channel ;
+ print_string ("\nWriting on file \"" ^ filename ^ "\" was succesfull\n");
+ flush stdout
+ | None ->
+ pp_r 0 strm
+;;
--- /dev/null
+(******************************************************************************)
+(* *)
+(* PROJECT HELM *)
+(* *)
+(* A tactic to print Coq objects in XML *)
+(* *)
+(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *)
+(* 18/10/2000 *)
+(* *)
+(* This module defines a pretty-printer and the stream of commands to the pp *)
+(* *)
+(******************************************************************************)
+
+(* Tokens for XML cdata, empty elements and not-empty elements *)
+(* Usage: *)
+(* Str cdata *)
+(* Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen] *)
+(* NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
+(* content *)
+type token =
+ | Str of string
+ | Empty of string * (string * string) list
+ | NEmpty of string * (string * string) list * token Stream.t
+
+(* currified versions of the token constructors make the code more readable *)
+val xml_empty : string -> (string * string) list -> token Stream.t
+val xml_nempty :
+ string -> (string * string) list -> token Stream.t -> token Stream.t
+val xml_cdata : string -> token Stream.t
+
+(* The pretty printer for streams of token *)
+(* Usage: *)
+(* pp tokens None pretty prints the output on stdout *)
+(* pp tokens (Some filename) pretty prints the output on the file filename *)
+val pp : token Stream.t -> string option -> unit
--- /dev/null
+exception XsltProcessorCouldNotSend;;
+exception XsltProcessorCouldNotReceive;;
+
+let portserver = 12345;;
+let portclient = 12346;;
+let time_to_wait = 10;;
+
+let rec process uri usecache mode =
+ let module U = Unix in
+ let uri = UriManager.string_of_uri uri in
+ let pid = string_of_int (U.getpid ())
+ and filename' =
+ let uri' = Str.replace_first (Str.regexp ".*:") "" uri in
+ Str.global_replace (Str.regexp "/") "_"
+ (Str.global_replace (Str.regexp "_") "__" uri')
+ in let tmpfile = "/tmp/helm_" ^ filename' ^ "_" ^ pid in
+ (* test if the cache can be used *)
+ let tmp_file_exists = Sys.file_exists tmpfile in
+ if usecache && tmp_file_exists then
+ tmpfile
+ else
+ let url = Configuration.getter_url ^ uri in
+ (* purge the cache if asked to *)
+ if not usecache && tmp_file_exists then
+ Sys.remove tmpfile ;
+ let string_to_send = mode ^ " " ^ url ^ " " ^ tmpfile in
+ (* next function is for looping in case the server is not responding *)
+ let rec contact_server () =
+ let socketclient = U.socket U.PF_INET U.SOCK_DGRAM 0
+ and socketserver = U.socket U.PF_INET U.SOCK_DGRAM 0 in
+ let bounded = ref false in
+ while not !bounded do
+ try
+ U.bind socketclient (U.ADDR_INET(U.inet_addr_any,portclient)) ;
+ bounded := true
+ with _ ->
+ print_endline "Port unavailable. Retrying..." ; flush stdout ;
+ U.sleep 5 (* wait hoping the inetaddr is released *)
+ done ;
+ let n =
+ U.sendto socketserver string_to_send 0 (String.length string_to_send)
+ [] (U.ADDR_INET(U.inet_addr_any,portserver))
+ in
+ if n = -1 then raise XsltProcessorCouldNotSend ;
+ U.close socketserver ;
+ let process_signal _ = U.close socketclient in
+ Sys.set_signal Sys.sigalrm (Sys.Signal_handle process_signal) ;
+ (* if the server does not respond, repeat the query *)
+ ignore (U.alarm time_to_wait) ;
+ try
+ if U.recv socketclient "" 0 0 [] = -1 then
+ raise XsltProcessorCouldNotReceive ;
+ ignore (U.alarm 0) ; (* stop the bomb *)
+ Sys.set_signal Sys.sigalrm Sys.Signal_default ;
+ U.close socketclient ;
+ tmpfile
+ with
+ U.Unix_error(_,"recv",_) ->
+ print_endline "Xaland server not responding. Retrying..." ;
+ flush stdout;
+ contact_server ()
+ in
+ contact_server ()
+;;
--- /dev/null
+all: helm_configuration helm_data helm_http_getter helm_xsltd helm_gtk_interface
+clean:
+ rm -f helm_*.spec helm_*.tar.gz
+
+helm_configuration: prep_helm_configuration clean_helm_configuration
+
+prep_helm_configuration:
+ cvs export -D20100101 configuration
+ mv configuration/helm_configuration-0.0.1-1.spec .
+ (cd configuration ; autoconf)
+ mv configuration helm_configuration-0.0.1
+ tar -zcvf helm_configuration-0.0.1-1.tar.gz helm_configuration-0.0.1
+
+clean_helm_configuration:
+ rm -rf helm_configuration-0.0.1
+
+
+
+helm_data: prep_helm_data clean_helm_data
+
+prep_helm_data:
+ cvs export -D20100101 helm_data
+ mv helm_data/helm_data-0.0.1-1.spec .
+ (cd helm_data ; cvs export -D20100101 dtd ; cvs export -D20100101 style ; autoconf)
+ mv helm_data helm_data-0.0.1
+ tar -zcvf helm_data-0.0.1-1.tar.gz helm_data-0.0.1
+
+clean_helm_data:
+ rm -rf helm_data-0.0.1
+
+
+
+helm_http_getter: prep_helm_http_getter clean_helm_http_getter
+
+prep_helm_http_getter:
+ cvs export -D20100101 http_getter
+ mv http_getter/helm_http_getter-0.0.1-1.spec .
+ (cd http_getter ; autoconf)
+ mv http_getter helm_http_getter-0.0.1
+ tar -zcvf helm_http_getter-0.0.1-1.tar.gz helm_http_getter-0.0.1
+
+clean_helm_http_getter:
+ rm -rf helm_http_getter-0.0.1
+
+
+
+helm_xsltd: prep_helm_xsltd clean_helm_xsltd
+
+prep_helm_xsltd:
+ cvs export -D20100101 xsltd
+ mv xsltd/helm_xsltd-0.0.1-1.spec .
+ (cd xsltd ; autoconf)
+ mv xsltd helm_xsltd-0.0.1
+ tar -zcvf helm_xsltd-0.0.1-1.tar.gz helm_xsltd-0.0.1
+
+clean_helm_xsltd:
+ rm -rf helm_xsltd-0.0.1
+
+
+
+helm_gtk_interface: prep_helm_gtk_interface clean_helm_gtk_interface
+
+prep_helm_gtk_interface:
+ cvs export -D20100101 interface
+ mv interface/helm_gtk_interface-0.0.1-1.spec .
+ (cd interface ; autoconf)
+ mv interface helm_gtk_interface-0.0.1
+ tar -zcvf helm_gtk_interface-0.0.1-1.tar.gz helm_gtk_interface-0.0.1
+
+clean_helm_gtk_interface:
+ rm -rf helm_gtk_interface-0.0.1
+
+
+
+
+PHONY: all clean helm_configuration prep_helm_configuration clean_helm_configuration
--- /dev/null
+
+all:
+ ./makeit V7 marcello marcello <template.cshrc >marcello.cshrc
+ ./makeit V7 marcello marcello <template.rc >marcello.rc
+ ./makeit V7 marcello phd <template.cshrc >marcello_phd.cshrc
+ ./makeit V7 marcello phd <template.rc >marcello_phd.rc
+ ./makeit V7 phd phd <template.cshrc >phd.cshrc
+ ./makeit V7 phd phd <template.rc >phd.rc
+ ./makeit V7 phd marcello <template.cshrc >phd_marcello.cshrc
+ ./makeit V7 phd marcello <template.rc >phd_marcello.rc
+ chmod a+x marcello*rc phd*rc
+
+clean:
+ rm -f marcello*rc phd*rc
+
+cleanbak:
+ rm -f *~
+
--- /dev/null
+#!/bin/sh
+
+if test $# != 3; then
+ echo "Usage: makeit <version> <where> <to>"
+ echo
+ echo " <version> is either V6.2 or V7"
+ echo " <from/to> is either phd or marcello"
+ exit 1
+fi
+
+sed -e "s/@COQV@/$1/" -e "s/@WHERE@/$2/" -e "s/@FROM@/$3/"
--- /dev/null
+#!/bin/sh
+trap stop-tomcat-debug EXIT
+start-tomcat-debug >/dev/null
+echo TOMCAT is on its way, wait a few seconds before using it.
+echo Press enter to kill TOMCAT.
+echo
+read
+echo Shutting down...
--- /dev/null
+#!/bin/sh
+$HELMROOT/shared/libraries/tomcat/bin/startup.sh
--- /dev/null
+#! /bin/sh
+exec $HELMROOT/shared/libraries/tomcat/bin/shutdown.sh
--- /dev/null
+
+set COQV=@COQV@
+set WHERE=@WHERE@
+set FROM=@FROM@
+
+setenv CVS_RSH=ssh
+
+echo "Configuring HELM for $WHERE (from $FROM), Coq $COQV"
+
+if ($WHERE == phd) then
+ setenv HELMROOT /projects/helm
+ setenv JAVA_HOME /opt/java/jdk1.3
+ setenv PATH .:$JAVA_HOME/bin/:$PATH
+ if ($?LD_LIBRARY_PATH == 1) then
+ setenv LD_LIBRARY_PATH /usr/local/lib:$LD_LIBRARY_PATH
+ else
+ setenv LD_LIBRARY_PATH /usr/local/lib
+ endif
+else
+ setenv HELMROOT /home/projects/helm
+ setenv JAVA_HOME /usr/local/jdk1.3
+ setenv PATH .:$JAVA_HOME/bin:$HELMROOT/local/bin:$PATH
+ if ($?LD_LIBRARY_PATH == 1) then
+ setenv LD_LIBRARY_PATH $HELMROOT/local/lib:$LD_LIBRARY_PATH
+ else
+ setenv LD_LIBRARY_PATH $HELMROOT/local/lib
+ endif
+endif
+
+if ($WHERE == $FROM) then
+ set FONTROOT=$HELMROOT
+else
+ if ($FROM == phd) then
+ set FONTROOT=/projects/helm
+ else
+ set FONTROOT=/home/projects/helm
+ endif
+endif
+
+setenv PATH $HELMROOT/http_getter:$PATH
+setenv PATH $HELMROOT/V7/interface:$PATH
+setenv PATH $HELMROOT/shared/scripts:$PATH
+
+setenv HELM_CONFIGURATION_DIR $HELMROOT/$COQV/$WHERE/local/etc/helm
+setenv HELM_STYLE_DIR $HELMROOT/$COQV/style
+setenv HELM_LIB_DIR $HELMROOT/$COQV/$WHERE/local/lib/helm
+setenv HTTP_GETTER_RDF_DIR $HELMROOT/shared/V7/rdf_library
+setenv HTTP_GETTER_RDF_DBM $HELMROOT/shared/V7/rdf_urls_of_uris.db
+setenv HTTP_GETTER_XSLT_DBM $HELMROOT/shared/V7/xslt_urls_of_uris.db
+setenv HTTP_GETTER_PORT 48081
+
+echo HELM_CONFIGURATION_DIR=$HELM_CONFIGURATION_DIR
+echo HELM_LIB_DIR=$HELM_LIB_DIR
+echo HELM_STYLE_DIR=$HELM_STYLE_DIR
+
+setenv CLASSPATH .
+setenv CLASSPATH $CLASSPATH\:$HELMROOT/uwobo/lib/xalan.jar
+setenv CLASSPATH $CLASSPATH\:$HELMROOT/uwobo/lib/xerces.jar
+setenv CLASSPATH $CLASSPATH\:$HELMROOT/uwobo/lib/uwobo_client.jar
+setenv CLASSPATH $CLASSPATH\:$HELMROOT/uwobo/lib/uwobo_server.jar
+
+setenv MATHENGINECONF $HELMROOT/$COQV/$WHERE/local/etc/helm/helm-math-engine-configuration.xml
+
+umask 002
+
+# Stix font
+xset fp
+xset fp+ $FONTROOT/fonts/mathematica/Type1/
+xset fp rehash
--- /dev/null
+
+COQV=@COQV@
+WHERE=@WHERE@
+FROM=@FROM@
+
+export CVS_RSH=ssh
+
+echo "Configuring HELM for $WHERE (from $FROM), Coq $COQV"
+
+if test $WHERE = phd; then
+ export HELMROOT=/projects/helm
+ export JAVA_HOME=/opt/java/jdk1.3
+ export PATH=.:$JAVA_HOME/bin/:$PATH
+ export LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH
+else
+ export HELMROOT=/home/projects/helm
+ export JAVA_HOME=/usr/local/jdk1.3
+ export PATH=.:$JAVA_HOME/bin:$HELMROOT/local/bin:$PATH
+ export LD_LIBRARY_PATH=$HELMROOT/local/lib:$LD_LIBRARY_PATH
+fi
+
+if test $WHERE = $FROM; then
+ FONTROOT=$HELMROOT
+else
+ if test $FROM = phd; then
+ FONTROOT=/projects/helm
+ else
+ FONTROOT=/home/projects/helm
+ fi
+fi
+
+export PATH=$HELMROOT/http_getter:$PATH
+export PATH=$HELMROOT/V7/interface:$PATH
+export PATH=$HELMROOT/shared/scripts:$PATH
+
+export HELM_CONFIGURATION_DIR=$HELMROOT/$COQV/$WHERE/local/etc/helm
+export HELM_STYLE_DIR=$HELMROOT/$COQV/style
+export HELM_LIB_DIR=$HELMROOT/$COQV/$WHERE/local/lib/helm
+export HTTP_GETTER_RDF_DIR=$HELMROOT/shared/V7/rdf_library
+export HTTP_GETTER_RDF_DBM=$HELMROOT/shared/V7/rdf_urls_of_uris.db
+export HTTP_GETTER_XSLT_DBM=$HELMROOT/shared/V7/xslt_urls_of_uris.db
+export HTTP_GETTER_PORT=48081
+
+echo HELM_CONFIGURATION_DIR=$HELM_CONFIGURATION_DIR
+echo HELM_LIB_DIR=$HELM_LIB_DIR
+echo HELM_STYLE_DIR=$HELM_STYLE_DIR
+
+# export CLASSPATH=.
+# export CLASSPATH=$CLASSPATH:$HELMROOT/uwobo/lib/xalan.jar
+# export CLASSPATH=$CLASSPATH:$HELMROOT/uwobo/lib/xerces.jar
+# export CLASSPATH=$CLASSPATH:$HELMROOT/uwobo/lib/uwobo_client.jar
+# export CLASSPATH=$CLASSPATH:$HELMROOT/uwobo/lib/uwobo_server.jar
+
+export MATHENGINECONF=$HELMROOT/$COQV/$WHERE/local/etc/helm/helm-math-engine-configuration.xml
+
+umask 002
+
+# Stix font
+xset fp
+xset fp+ $FONTROOT/fonts/mathematica/Type1/
+xset fp rehash
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of annotated MathML content to MathML presentation: -->
+<!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="objcontent.xsl"/>
+
+<xsl:key name="id" use="@id" match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX|Definition|Axiom|CurrentProof|InductiveDefinition|Variable"/>
+
+<xsl:key name="annid" use="@of" match="Annotation"/>
+
+<xsl:template match="Definition|Axiom|CurrentProof|InductiveDefinition|Variable">
+ <xsl:choose>
+ <xsl:when test="key('annid',@id)">
+ <annotation helm:xref="{@id}">
+ <xsl:apply-templates select="key('annid',@id)"/>
+ </annotation>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX">
+ <xsl:choose>
+ <xsl:when test="key('annid',@id)">
+ <annotation helm:xref="{@id}">
+ <xsl:apply-templates select="key('annid',@id)"/>
+ </annotation>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:math>
+ <xsl:apply-templates select="." mode="noannot"/>
+ </m:math>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="node">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:apply-templates select="key('id',$id)"/>
+</xsl:template>
+
+<xsl:template match="attribute">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:variable name="name" select="@name"/>
+ <xsl:variable name="child" select="@child"/>
+ <xsl:variable name="grandchild" select="@grandchild"/>
+ <xsl:choose>
+ <xsl:when test="$child">
+ <xsl:choose>
+ <xsl:when test="$grandchild">
+ <xsl:value-of select="key('id',$id)/*[position() = $child]/*[position() = $grandchild]/attribute::*[name() = $name]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="key('id',$id)/*[position() = $child]/attribute::*[name() = $name]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="key('id',$id)/attribute::*[name() = $name]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of annotated MathML content to MathML presentation: -->
+<!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<xsl:import href="objcontent.xsl"/>
+
+<xsl:template match="Definition|Axiom|CurrentProof|InductiveDefinition|Variable">
+ <xsl:choose>
+ <xsl:when test="'annotation' != name(*[1])">
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <annotation>
+ <xsl:apply-templates select="annotation"/>
+ </annotation>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX">
+ <xsl:param name="backpointer" select="''"/>
+ <xsl:choose>
+ <xsl:when test="'Annotation' != name(*[1])">
+ <m:math>
+ <xsl:apply-templates select="." mode="noannot">
+ <xsl:with-param name="backpointer" select="$backpointer"/>
+ </xsl:apply-templates>
+ </m:math>
+ </xsl:when>
+ <xsl:otherwise>
+ <annotation>
+ <xsl:apply-templates select="Annotation"/>
+ </annotation>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- DA MODIFICARE PER GESTIRE I RIFERIMENTI A SOTTOANNOTAZIONI O NODI MATH -->
+
+<xsl:template match="nephew">
+ <xsl:variable name="select" select="@no"/>
+ <xsl:apply-templates select="../../*[2]/*[number($select)]"/>
+</xsl:template>
+
+<xsl:template match="brother">
+ <xsl:variable name="select" select="@no"/>
+ <xsl:apply-templates select="../../*[number($select) + 1]"/>
+</xsl:template>
+
+<xsl:template match="name">
+ <xsl:value-of select="../../*[2]/@name"/>
+</xsl:template>
+
+<xsl:template match="nephew-name">
+ <xsl:variable name="select" select="@no"/>
+ <xsl:value-of select="../../*[2]/*[number($select)]/@name"/>
+</xsl:template>
+
+</xsl:stylesheet>
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of annotated MathML content to MathML presentation: -->
+<!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="mmlextension.xsl"/>
+
+<!-- ANNOTATION -->
+
+<xsl:template match="annotation">
+ <xsl:choose>
+ <xsl:when test=". = /">
+ <m:math><m:mrow helm:xref="{@helm:xref}"><xsl:apply-templates/></m:mrow></m:math>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow helm:xref="{@helm:xref}"><xsl:apply-templates/></m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="text()">
+ <xsl:variable name="text" select="normalize-space(.)"/>
+ <xsl:if test="$text != ''">
+ <m:mtext><xsl:value-of select="$text"/></m:mtext>
+ </xsl:if>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- Basic Logic -->
+<!-- First draft: April 3 2000 -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- ************************* LOGIC *********************************-->
+
+<!-- AND -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/Conjunction/and.ind'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:and definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<!-- OR -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/Disjunction/or.ind'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:or definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<!-- NOT -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Logic/not.con'] and (count(child::*) = 2)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:not definitionURL="{CONST/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<!-- IFF -->
+<!--
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Logic/Equivalence/iff.ind'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:iff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+-->
+
+<!-- EXISTS -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/First_order_quantifiers/ex.ind' or attribute::uri='cic:/coq/INIT/Logic_Type/exT.ind'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:exists definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:choose>
+ <xsl:when test="name(*[3]) = 'LAMBDA'">
+ <m:bvar>
+ <m:ci><xsl:value-of select="LAMBDA/target/@binder"/></m:ci>
+ </m:bvar>
+ <xsl:apply-templates select="LAMBDA/target" mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:bvar>
+ <m:ci>$x</m:ci>
+ </m:bvar>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ <m:ci>$x</m:ci>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/First_order_quantifiers/ex2.ind' or attribute::uri='cic:/coq/INIT/Logic_Type/exT2.ind'] and (count(child::*) = 4)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:exists definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:choose>
+ <xsl:when test="name(*[3]) = 'LAMBDA'">
+ <xsl:variable name="bvarname" select="*[3]/target/@binder"/>
+ <m:bvar>
+ <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+ </m:bvar>
+ <m:condition>
+ <xsl:apply-templates select="LAMBDA[1]/target" mode="noannot"/>
+ </m:condition>
+ <xsl:choose>
+ <xsl:when test="(name(*[4]) = 'LAMBDA') and
+ ($bvarname = *[4]/target/@binder)">
+ <xsl:apply-templates select="LAMBDA[2]/target" mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="name(*[4]) = 'LAMBDA'">
+ <xsl:variable name="bvarname" select="*[4]/target/@binder"/>
+ <m:bvar>
+ <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+ </m:bvar>
+ <m:condition>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ <m:ci><xsl:value-of select="$bvarname"/></m:ci>
+ </m:apply>
+ </m:condition>
+ <xsl:apply-templates select="*[4]/target" mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:bvar>
+ <m:ci>x</m:ci>
+ </m:bvar>
+ <m:condition>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ <m:ci>x</m:ci>
+ </m:apply>
+ </m:condition>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ <m:ci>x</m:ci>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:apply>
+</xsl:template>
+
+<!-- EQUALITY -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/Equality/eq.ind'] and (count(child::*) = 4)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:eq definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+
+<!-- TYPE EQUALITY -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic_Type/eqT.ind'] and (count(child::*) = 4)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:eq definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<!-- NOT-EQ -->
+<!-- NOT and EQ have no parameters -->
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Logic/not.con']
+and (count(child::*) = 2) and APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic/Equality/eq.ind']]]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(APPLY/child::*) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:neq/>
+ <xsl:apply-templates select="*[2]/*[3]" mode="noannot"/>
+ <xsl:apply-templates select="*[2]/*[4]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- NOT-EQT -->
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Logic/not.con']
+and (count(child::*) = 2) and APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Logic_Type/eqT.ind']]]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(APPLY/child::*) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:neq/>
+ <xsl:apply-templates select="*[2]/*[3]" mode="noannot"/>
+ <xsl:apply-templates select="*[2]/*[4]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- ************************ DATATYPES ******************************* -->
+
+<!-- no datatypes in MathML content -->
+
+
+<!-- *************************** PEANO ********************************* -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/INIT/Peano/le.ind'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:leq definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Peano/lt.con'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:lt definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Peano/ge.con'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:geq definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Peano/gt.con'] and (count(child::*) = 3)]" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:gt definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to MathML content: -->
+<!-- First draft: February 14 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 10 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:include href="params.xsl"/>
+
+<!--<xsl:output
+ method="xml"
+ version="1.0"
+ encoding="ISO-8859-1"
+ omit-xml-declaration="no"
+ standalone="no"
+ doctype-public="http://www.w3.org/TR/REC-MathML"
+ indent="yes"
+ media-type="text/mathml" /> -->
+
+<!-- DA FARE:
+1)risolvere nella fase di pre-processing le uri relative, settando l'attributo
+definitionURL dell'oggetto corrispondente (alcuni punteranno a nulla! -quelli
+che non hanno il file di definizione corrispondente-); [le uri assolute hanno
+la forma cic:/.../ in definitionURL e questo schema di uri verra' risolto da
+Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
+2)aggiungere nei file xml gli ID, affinche' nello stylesheet si setti
+l'attributo xref di ogni oggetto per puntare (tramite ID) al suo corrispondente
+della rappresentazione interna.
+-->
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- CIC TERMS -->
+
+<xsl:template match="LAMBDA" mode="pure">
+ <m:lambda helm:xref="{@id}">
+ <m:bvar>
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </m:type>
+ </m:bvar>
+ <xsl:apply-templates select="target/*[1]" mode="noannot"/>
+ </m:lambda>
+</xsl:template>
+
+<xsl:template match="PROD" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <xsl:choose>
+ <xsl:when test="string(target/@binder)= """>
+ <m:csymbol>arrow</m:csymbol>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </m:type>
+ </m:bvar>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="target/*[1]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="CAST" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>cast</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*/*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="REL" mode="pure">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="@binder"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="SORT" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>
+ <xsl:value-of select="@value"/>
+ </m:csymbol>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY" mode="pure">
+ <xsl:choose>
+ <!-- <xsl:when test="//ALLTYPES and boolean(key('typeid',*/@id))"> -->
+ <!-- start looking for subproofs -->
+ <xsl:when test="((*/@id) = (//ALLTYPES/TYPE/@id))">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>letin</m:csymbol>
+ <!-- <xsl:for-each select="*[boolean(key('typeid',@id))]"> -->
+ <!-- first process all subproofs (let-in) -->
+ <xsl:for-each select="*[@id = (//ALLTYPES/TYPE/@id)]">
+ <m:apply>
+ <m:csymbol>let</m:csymbol>
+ <m:ci><xsl:value-of select="concat('h',position())"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="."/>
+ </m:apply>
+ </xsl:for-each>
+ <!-- now re-process the application in mode appflat -->
+ <xsl:apply-templates mode="appflat" select="."/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="appflat" select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="APPLY" mode="appflat">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <!-- mode flat looks for siblings: call with the first child -->
+ <xsl:apply-templates mode="flat" select="*[1]"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="*" mode="flat">
+ <xsl:param name="n" select="1"/>
+ <xsl:choose>
+ <xsl:when test="@id">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:choose>
+ <!-- <xsl:when test="key('typeid',@id)"> -->
+ <xsl:when test="//ALLTYPES/TYPE[@id=$id]">
+ <m:ci>
+ <xsl:value-of select="concat('h',$n)"/>
+ </m:ci>
+ <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
+ <xsl:with-param name="n" select="$n+1"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="."/>
+ <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
+ <xsl:with-param name="n" select="$n"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="."/>
+ <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
+ <xsl:with-param name="n" select="$n"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="VAR" mode="pure">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="substring-after(@relUri,",")"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="META" mode="pure">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="@no"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="CONST" mode="pure">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:call-template name="name_of_uri">
+ <xsl:with-param name="uri" select="@uri"/>
+ </xsl:call-template>
+ <!-- <xsl:value-of select="document(concat(string($absPath),@uri))/*/@name"/> -->
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTIND" mode="pure">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:variable name="index"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCONSTRUCT" mode="pure">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Cindex"><xsl:value-of select="@noConstr"/></xsl:variable>
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCASE" mode="pure">
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Turi"><xsl:value-of select="@uriType"/></xsl:variable>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>mutcase</m:csymbol>
+ <xsl:apply-templates select="patternsType/*[1]" mode="noannot"/>
+ <xsl:apply-templates select="inductiveTerm/*[1]" mode="noannot"/>
+ <xsl:variable name="nop"><xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/@noParams"/></xsl:variable>
+ <xsl:for-each select="pattern">
+ <xsl:variable name="pos" select="position()"/>
+ <xsl:variable name="nopar"><xsl:apply-templates select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/*[1]" mode="counting"><xsl:with-param name="noparams" select="$nop"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$nopar = 0">
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="target" select="1"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </xsl:for-each>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="FIX" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>fix</m:csymbol>
+ <m:ci><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="COFIX" mode="pure">
+ <m:apply helm:xref="{@id}">
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>cofix</m:csymbol>
+ <m:ci><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<!-- ELEMENTS OF CIC TERMS -->
+
+<xsl:template match="FixFunction" mode="pure">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+<xsl:template match="CofixFunction" mode="pure">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to MathML content: -->
+<!-- First draft: February 14 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 10 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<xsl:include href="params.xsl"/>
+
+<!--<xsl:output
+ method="xml"
+ version="1.0"
+ encoding="ISO-8859-1"
+ omit-xml-declaration="no"
+ standalone="no"
+ doctype-public="http://www.w3.org/TR/REC-MathML"
+ indent="yes"
+ media-type="text/mathml" /> -->
+
+<!-- DA FARE:
+1)risolvere nella fase di pre-processing le uri relative, settando l'attributo
+definitionURL dell'oggetto corrispondente (alcuni punteranno a nulla! -quelli
+che non hanno il file di definizione corrispondente-); [le uri assolute hanno
+la forma cic:/.../ in definitionURL e questo schema di uri verra' risolto da
+Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
+2)aggiungere nei file xml gli ID, affinche' nello stylesheet si setti
+l'attributo xref di ogni oggetto per puntare (tramite ID) al suo corrispondente
+della rappresentazione interna.
+-->
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- CIC TERMS -->
+
+<xsl:template match="LAMBDA" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:lambda>
+ <m:bvar>
+ <m:ci>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[1]/*[1]')"/>
+ </xsl:apply-templates>
+ </m:type>
+ </m:bvar>
+ <xsl:apply-templates select="target/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[2]/*[1]')"/>
+ </xsl:apply-templates>
+ </m:lambda>
+</xsl:template>
+
+<xsl:template match="PROD" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:apply>
+ <xsl:choose>
+ <xsl:when test="string(target/@binder)= """>
+ <m:csymbol>arrow</m:csymbol>
+ <xsl:apply-templates select="source/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[1]/*[1]')"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[1]/*[1]')"/>
+ </xsl:apply-templates>
+ </m:type>
+ </m:bvar>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="target/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[2]/*[1]')"/>
+ </xsl:apply-templates>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="CAST" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:apply>
+ <m:csymbol>cast</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*[1]/*[1]">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[1]/*[1]')"/>
+ </xsl:apply-templates>
+ <xsl:apply-templates mode="noannot" select="*[2]/*[1]">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[2]/*[1]')"/>
+ </xsl:apply-templates>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="REL" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="@binder"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="SORT" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:apply>
+ <m:csymbol>
+ <xsl:value-of select="@value"/>
+ </m:csymbol>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:for-each select="*">
+ <xsl:apply-templates mode="noannot" select=".">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[',position(),']')"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="VAR" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="substring-after(@relUri,",")"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="META" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="@no"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="CONST" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci definitionURL="{@uri}">
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:call-template name="name_of_uri">
+ <xsl:with-param name="uri" select="@uri"/>
+ </xsl:call-template>
+ <!-- <xsl:value-of select="document(concat(string($absPath),@uri))/*/@name"/> -->
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTIND" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci definitionURL="{@uri}">
+ <xsl:variable name="index"><xsl:value-of select="@noType"/></xsl:variable>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCONSTRUCT" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:ci definitionURL="{@uri}">
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Cindex"><xsl:value-of select="@noConstr"/></xsl:variable>
+ [[<xsl:value-of select="$backpointer"/>]]
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCASE" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Turi"><xsl:value-of select="@uriType"/></xsl:variable>
+ <m:apply>
+ <m:csymbol>mutcase</m:csymbol>
+ <xsl:apply-templates select="patternsType/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[1]/*[1]')"/>
+ </xsl:apply-templates>
+ <xsl:apply-templates select="inductiveTerm/*[1]" mode="noannot">
+ <xsl:with-param name="backpointer" select="concat($backpointer,'/*[2]/*[1]')"/>
+ </xsl:apply-templates>
+ <xsl:variable name="nop"><xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/@noParams"/></xsl:variable>
+ <xsl:for-each select="pattern">
+ <xsl:variable name="pos" select="position()"/>
+ <xsl:variable name="nopar"><xsl:apply-templates select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/*[1]" mode="counting"><xsl:with-param name="noparams" select="$nop"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$nopar = 0">
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="target" select="1"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </xsl:for-each>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="FIX" mode="noannot">
+ <xsl:param name="backpointer" select="''"/>
+ <m:apply>
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>fix</m:csymbol>
+ <m:ci><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="COFIX" mode="noannot">
+ <m:apply>
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>cofix</m:csymbol>
+ <m:ci><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<!-- ELEMENTS OF CIC TERMS -->
+
+<xsl:template match="FixFunction" mode="noannot">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+<xsl:template match="CofixFunction" mode="noannot">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to MathML content: -->
+<!-- First draft: February 14 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 10 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:include href="params.xsl"/>
+
+<!--<xsl:output
+ method="xml"
+ version="1.0"
+ encoding="ISO-8859-1"
+ omit-xml-declaration="no"
+ standalone="no"
+ doctype-public="http://www.w3.org/TR/REC-MathML"
+ indent="yes"
+ media-type="text/mathml" /> -->
+
+<!-- DA FARE:
+1)risolvere nella fase di pre-processing le uri relative, settando l'attributo
+definitionURL dell'oggetto corrispondente (alcuni punteranno a nulla! -quelli
+che non hanno il file di definizione corrispondente-); [le uri assolute hanno
+la forma cic:/.../ in definitionURL e questo schema di uri verra' risolto da
+Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
+2)aggiungere nei file xml gli ID, affinche' nello stylesheet si setti
+l'attributo xref di ogni oggetto per puntare (tramite ID) al suo corrispondente
+della rappresentazione interna.
+-->
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- CIC TERMS -->
+
+<xsl:template match="LAMBDA" mode="noannot">
+ <m:lambda helm:xref="{@id}">
+ <m:bvar>
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </m:type>
+ </m:bvar>
+ <xsl:apply-templates select="target/*[1]" mode="noannot"/>
+ </m:lambda>
+</xsl:template>
+
+<xsl:template match="PROD" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <xsl:choose>
+ <xsl:when test="string(target/@binder)= """>
+ <m:csymbol>arrow</m:csymbol>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:csymbol>prod</m:csymbol>
+ <m:bvar>
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source/*[1]" mode="noannot"/>
+ </m:type>
+ </m:bvar>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="target/*[1]" mode="noannot"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="CAST" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>cast</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*/*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="REL" mode="noannot">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="@binder"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="SORT" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>
+ <xsl:value-of select="@value"/>
+ </m:csymbol>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="APPLY" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="VAR" mode="noannot">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="substring-after(@relUri,",")"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="META" mode="noannot">
+ <m:ci helm:xref="{@id}">
+ <xsl:value-of select="@no"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="CONST" mode="noannot">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:call-template name="name_of_uri">
+ <xsl:with-param name="uri" select="@uri"/>
+ </xsl:call-template>
+ <!-- <xsl:value-of select="document(concat(string($absPath),@uri))/*/@name"/> -->
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTIND" mode="noannot">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:variable name="index"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCONSTRUCT" mode="noannot">
+ <m:ci definitionURL="{@uri}" helm:xref="{@id}">
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Cindex"><xsl:value-of select="@noConstr"/></xsl:variable>
+ <xsl:value-of select="document(concat(string($absPath),@uri))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/>
+ </m:ci>
+</xsl:template>
+
+<xsl:template match="MUTCASE" mode="noannot">
+ <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
+ <xsl:variable name="Turi"><xsl:value-of select="@uriType"/></xsl:variable>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>mutcase</m:csymbol>
+ <xsl:apply-templates select="patternsType/*[1]" mode="noannot"/>
+ <xsl:apply-templates select="inductiveTerm/*[1]" mode="noannot"/>
+ <xsl:variable name="nop"><xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/@noParams"/></xsl:variable>
+ <xsl:for-each select="pattern">
+ <xsl:variable name="pos" select="position()"/>
+ <xsl:variable name="nopar"><xsl:apply-templates select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/*[1]" mode="counting"><xsl:with-param name="noparams" select="$nop"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$nopar = 0">
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <m:ci>
+ <xsl:value-of select="document(concat(string($absPath),$Turi))/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/>
+ </m:ci>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="target" select="1"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
+ </xsl:for-each>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="FIX" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>fix</m:csymbol>
+ <m:ci><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<xsl:template match="COFIX" mode="noannot">
+ <m:apply helm:xref="{@id}">
+ <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
+ <m:csymbol>cofix</m:csymbol>
+ <m:ci><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></m:ci>
+ <xsl:apply-templates mode="noannot" select="*"/>
+ </m:apply>
+</xsl:template>
+
+<!-- ELEMENTS OF CIC TERMS -->
+
+<xsl:template match="FixFunction" mode="noannot">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+<xsl:template match="CofixFunction" mode="noannot">
+ <m:bvar>
+ <m:ci><xsl:value-of select="@name"/></m:ci>
+ <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
+ </m:bvar>
+ <xsl:apply-templates select="body/*[1]" mode="noannot"/>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<!--***********************************************************************-->
+<!-- From MathML content to HTML -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--***********************************************************************-->
+
+
+<xsl:include href="html_init.xsl"/>
+<xsl:include href="html_set.xsl"/>
+<xsl:include href="html_reals.xsl"/>
+
+
+<!-- <xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>-->
+<xsl:variable name="header" select="document('http://localhost:8081/conf')/html_link"/>
+
+<xsl:variable name="showcast" select="0"/>
+
+
+<!--***********************************************************************-->
+<!-- HTML Head and Body -->
+<!--***********************************************************************-->
+
+<xsl:output method="html"/>
+
+<xsl:variable name="framewidth" select="36"/>
+
+<xsl:template match="/">
+ <xsl:param name="current_indent" select="0"/>
+ <html>
+ <head></head>
+ <body>
+ <xsl:apply-templates>
+ <xsl:with-param name="current_indent" select="0"/>
+ </xsl:apply-templates>
+ </body>
+ </html>
+</xsl:template>
+
+<!--***********************************************************************-->
+<!-- Indentation -->
+<!--***********************************************************************-->
+
+<xsl:template name="make_indent">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:if test="$current_indent > 0">
+ <xsl:text> </xsl:text>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent - 1"/>
+ </xsl:call-template>
+ </xsl:if>
+</xsl:template>
+
+<!-- Syntactic Sugar -->
+
+<xsl:template match="m:type">
+<xsl:param name="current_indent" select="0"/>
+<xsl:apply-templates>
+ <xsl:with-param name="current_indent"
+ select="$current_indent"/>
+</xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match="m:condition">
+<xsl:param name="current_indent" select="0"/>
+<xsl:apply-templates>
+ <xsl:with-param name="current_indent"
+ select="$current_indent"/>
+</xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match="m:math">
+<xsl:param name="current_indent" select="0"/>
+<xsl:apply-templates>
+ <xsl:with-param name="current_indent"
+ select="$current_indent"/>
+</xsl:apply-templates>
+</xsl:template>
+
+<!-- CSYMBOL -->
+
+<xsl:template match="m:apply[m:csymbol]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="name">
+ <xsl:value-of select="m:csymbol"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:csymbol" mode="charcount"/>
+ </xsl:variable>
+ <!-- <xsl:value-of select="$current_indent"/> -->
+ <!-- <xsl:value-of select="$charlength"/> -->
+ <xsl:choose>
+ <xsl:when test="$name='prod'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <!-- Π -->
+ <FONT FACE="symbol" SIZE="+2" color="blue">P</FONT>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type">
+ <xsl:with-param name="current_indent"
+ select="$current_indent + 2 + string-length(m:bvar/m:ci)"/>
+ </xsl:apply-templates><BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[position()=3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <!-- Π -->
+ <FONT FACE="symbol" SIZE="+2" color="blue">P</FONT>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='arrow'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <!-- -> -->
+ <FONT FACE="symbol" SIZE="+2" color="blue">®</FONT>
+ <xsl:apply-templates select="*[position()=3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <!-- -> -->
+ <FONT FACE="symbol" SIZE="+2" color="blue">®</FONT>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='app'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:for-each select="*[position()>2]">
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:for-each select="*[position()>2]">
+ <xsl:text> </xsl:text>
+ <xsl:apply-templates select="."/>
+ </xsl:for-each>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cast'">
+ <xsl:choose>
+ <xsl:when test="$showcast = 1">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates><BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/> </xsl:call-template>
+ <xsl:text>:></xsl:text>
+ <xsl:apply-templates select="*[position()=3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 3"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:text>:></xsl:text>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='Prop'">
+ <xsl:text>Prop</xsl:text>
+ </xsl:when>
+ <xsl:when test="$name='Set'">
+ <xsl:text>Set</xsl:text>
+ </xsl:when>
+ <xsl:when test="$name='Type'">
+ <xsl:text>Type</xsl:text>
+ </xsl:when>
+ <xsl:when test="$name='mutcase'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text><</xsl:text>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>> </xsl:text>
+ <xsl:text>CASE </xsl:text>
+ <xsl:apply-templates select="*[position()=3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 8"/>
+ </xsl:apply-templates>
+ <xsl:text> OF </xsl:text>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:text>  </xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>| </xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="."/>
+ <FONT FACE="symbol" SIZE="+2" color="green">Þ</FONT>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 4 + string-length()"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text><</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:text>> </xsl:text>
+ <xsl:text>CASE </xsl:text>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <xsl:text> OF </xsl:text>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:choose>
+ <xsl:when test="not(position() = 1)">
+ <xsl:text> | </xsl:text>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="."/>
+ <FONT FACE="symbol" SIZE="+2" color="green">Þ</FONT>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2 + string-length()"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='fix'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>FIX</xsl:text>
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>{</xsl:text>
+ <xsl:for-each select="m:bvar">
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:type">
+ <xsl:with-param name="current_indent"
+ select="$current_indent + 5 + string-length(m:ci)"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>:=</xsl:text>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]">
+ <xsl:with-param name="current_indent" select="$current_indent +2"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>FIX</xsl:text>
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>{</xsl:text>
+ <xsl:for-each select="m:bvar">
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:type"/>
+ <xsl:text>:=</xsl:text>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:choose>
+ <xsl:when test="position()=last()">
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>;</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cofix'">
+ <xsl:choose>
+ <xsl:when test="($charlength + 10) > $framewidth">
+ <xsl:text>COFIX</xsl:text>
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>{</xsl:text>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:for-each select="m:bvar">
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:type">
+ <xsl:with-param name="current_indent"
+ select="$current_indent + 5 + string-length(m:ci)"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>:=</xsl:text>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 3"/>
+ </xsl:apply-templates>
+
+ </xsl:for-each>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>COFIX</xsl:text>
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>{</xsl:text>
+ <xsl:for-each select="m:bvar">
+ <xsl:value-of select="m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:type"/>
+ <xsl:text>:=</xsl:text>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:choose>
+ <xsl:when test="position()=last()">
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>;</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ </xsl:choose>
+ <!-- </m:mrow> -->
+</xsl:template>
+
+<!-- LAMBDA -->
+
+<xsl:template match="m:lambda">
+<xsl:param name="current_indent" select="0"/>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[position()=1]" mode="charcount"/>
+ <!-- <xsl:apply-templates select="." mode="charcount"/> -->
+ </xsl:variable>
+ <!-- <xsl:value-of select="$charlength"/> -->
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <!-- λ -->
+ <FONT FACE="symbol" SIZE="+2" color="red">l</FONT>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type">
+ <xsl:with-param name="current_indent"
+ select="$current_indent + 2 + string-length(m:bvar/m:ci)"/>
+ </xsl:apply-templates><BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[position()=2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <!-- λ -->
+ <FONT FACE="symbol" SIZE="+2" color="red">l</FONT>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- href -->
+<xsl:template match="m:ci">
+ <xsl:choose>
+ <xsl:when test="boolean(@definitionURL)">
+<!-- CSC: non bisogna piu' utilizzare la url, bensi' la uri -->
+<!-- <xsl:variable name="url">
+ <xsl:value-of select="concat(string($absPath),
+ @definitionURL)"/>
+ </xsl:variable>-->
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string(@definitionURL))"/>
+ </xsl:attribute>
+ <xsl:apply-templates/>
+ </a>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- COUNTING -->
+
+<xsl:template match="m:ci|m:csymbol" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="charcount">
+ <xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 0">
+ <xsl:value-of select="$incurrent_length"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$framewidth >= number($childlength)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!--***********************************************************************-->
+<!-- OBJECTS -->
+<!--***********************************************************************-->
+
+<!-- DEFINITION -->
+
+<xsl:template match="Definition">
+<xsl:param name="current_indent" select="0"/>
+<p>
+DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)<BR/>
+TYPE =<BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:call-template>
+ <xsl:apply-templates select="type/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:apply-templates><BR/>
+BODY =<BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:call-template>
+ <xsl:apply-templates select="body/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:apply-templates>
+</p>
+</xsl:template>
+
+<!-- AXIOM -->
+
+<xsl:template match="Axiom">
+<xsl:param name="current_indent" select="0"/>
+<p>
+AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)<BR/>
+TYPE = <xsl:apply-templates select="type/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:apply-templates>
+</p>
+</xsl:template>
+
+<!-- UNFINISHED PROOF -->
+
+<xsl:template match="CurrentProof">
+<xsl:param name="current_indent" select="0"/>
+<p>
+UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)<BR/>
+THESIS: <xsl:apply-templates select="type/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 8"/>
+ </xsl:apply-templates><BR/>
+CONJECTURES:
+ <xsl:for-each select="Conjecture">
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 8"/>
+ </xsl:call-template>
+ <xsl:value-of select="./@no"/> :
+ <xsl:apply-templates select="./*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 11"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ <BR/>
+PROOF:
+ <xsl:apply-templates select="body/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 8"/>
+ </xsl:apply-templates>
+</p>
+</xsl:template>
+
+<!-- MUTUAL INDUCTIVE DEFINITION -->
+
+<xsl:template match="InductiveDefinition">
+<xsl:param name="current_indent" select="0"/>
+<p>
+ <xsl:for-each select="InductiveType">
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:choose>
+ <xsl:when test="string(./@inductive) = "true"">
+ INDUCTIVE DEFINITION
+ </xsl:when>
+ <xsl:otherwise>
+ COINDUCTIVE DEFINITION
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ AND
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != """><xsl:value-of select="../Params"/></xsl:if>)
+ [
+ <xsl:if test="string(../Param) != """>
+ <xsl:for-each select="../Param">
+ <xsl:value-of select="./@name"/>
+ :
+ <xsl:apply-templates select="*"/>
+ </xsl:for-each>
+ </xsl:if>
+ ] <BR/>
+ OF ARITY
+ <xsl:apply-templates select="./arity/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 9"/>
+ </xsl:apply-templates> <BR/>
+ BUILT FROM:
+ <xsl:for-each select="./Constructor">
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 3"/>
+ </xsl:call-template>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:text>  </xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>| </xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:value-of select="./@name"/>
+ <xsl:text>: </xsl:text>
+ <xsl:apply-templates select="./*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + string-length(./@name) + 4"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </xsl:for-each>
+</p>
+</xsl:template>
+
+<!-- VARIABLE -->
+
+<xsl:template match="Variable">
+<xsl:param name="current_indent" select="0"/>
+<p>
+VARIABLE <xsl:value-of select="@name"/><BR/>
+TYPE = <xsl:apply-templates select="type/*[1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 7"/>
+ </xsl:apply-templates>
+</p>
+</xsl:template>
+
+<!--***********************************************************************-->
+<!-- SECTIONS -->
+<!--***********************************************************************-->
+
+<!-- SECTION -->
+
+<xsl:template match="SECTION">
+<xsl:param name="current_indent" select="0"/>
+ <h1>BEGIN OF SECTION</h1>
+ <xsl:apply-templates/>
+ <h1>END OF SECTION</h1>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<!--***********************************************************************-->
+<!-- INIT style for HTML -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--***********************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+
+<!-- BASIC OPERATORS -->
+
+ <xsl:template match="m:apply[m:and|m:or|m:eq|m:neq|m:leq|m:lt
+ |m:geq|m:gt|m:plus|m:times]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="*[1]/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:variable name="symbol">
+ <xsl:choose>
+ <xsl:when test="m:and">
+ <xsl:value-of select="'Ù'"/>
+ </xsl:when>
+ <xsl:when test="m:or">
+ <xsl:value-of select="'Ú'"/>
+ </xsl:when>
+ <xsl:when test="m:eq">
+ <xsl:value-of select="'='"/>
+ </xsl:when>
+ <xsl:when test="m:neq">
+ <xsl:value-of select="'¹'"/>
+ </xsl:when>
+ <xsl:when test="m:leq">
+ <xsl:value-of select="'£'"/>
+ </xsl:when>
+ <xsl:when test="m:lt">
+ <xsl:value-of select="'<'"/>
+ </xsl:when>
+ <xsl:when test="m:geq">
+ <xsl:value-of select="'³'"/>
+ </xsl:when>
+ <xsl:when test="m:gt">
+ <xsl:value-of select="'>'"/>
+ </xsl:when>
+ <xsl:when test="m:plus">
+ <xsl:value-of select="'+'"/>
+ </xsl:when>
+ <xsl:when test="m:times">
+ <xsl:value-of select="'*'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" color="blue">
+ <xsl:value-of select="$symbol"/>
+ </FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" color="blue">
+ <xsl:value-of select="$symbol"/>
+ </FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- MINUS (can be unary!) -->
+
+<xsl:template match="m:apply[m:minus]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="*[1]/@definitionURL"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="count(child::*)=2">
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>-</xsl:text>
+ </a>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 1"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>-</xsl:text>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>-</xsl:text>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- NOT -->
+
+ <xsl:template match="m:apply[m:not]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:not/@definitionURL"/>
+ </xsl:variable>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" color="blue">Ø</FONT>
+ </a>
+ <xsl:apply-templates select="*[2]"/>
+ </xsl:template>
+
+<!-- EXISTS -->
+
+ <xsl:template match="m:apply[m:exists]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:exists/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:exists" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" color="blue">$</FONT>
+ </a>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:condition">
+ <xsl:with-param name="current_indent" select="$current_indent + 2 +
+ string-length(bvar/ci)"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[last()]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" color="blue">$</FONT>
+ </a>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:condition"/>
+ <xsl:text>.</xsl:text>
+ <xsl:apply-templates select="*[last()]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+
+
+
+<!-- COUNTING -->
+
+<xsl:template match="m:cn|m:and|m:or|m:not|m:exists|m:eq|m:neq
+ |m:lt|m:leq|m:gt|m:geq|m:plus|m:minus|m:times" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<!--***********************************************************************-->
+<!-- INIT style for HTML -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--***********************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- LIMIT -->
+
+<xsl:template match="m:apply[m:limit]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:limit/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:limit" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>lim</xsl:text>
+ </a>
+ <SUB>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <FONT FACE="symbol" color="blue">®</FONT>
+ <xsl:apply-templates select="m:lowlimit"/>
+ </SUB>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:call-template>
+ <xsl:apply-templates select="*[4]">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>lim</xsl:text>
+ </a>
+ <SUB>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <FONT FACE="symbol" color="blue">®</FONT>
+ <xsl:apply-templates select="m:lowlimit"/>
+ </SUB>
+ <xsl:apply-templates select="*[4]">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- DIFFERENTIATION -->
+
+<xsl:template match="m:apply[m:diff]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:diff/@definitionURL"/>
+ </xsl:variable>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <SUP>d</SUP>
+ <xsl:text>/</xsl:text>
+ <SUB>
+ <xsl:text>d</xsl:text>
+ <xsl:value-of select="m:bvar/m:ci"/>
+ </SUB>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:apply-templates>
+ </xsl:template>
+
+<!-- ABSOLUTE VALUE -->
+<xsl:template match="m:apply[m:abs]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:abs/@definitionURL"/>
+ </xsl:variable>
+ <xsl:text>|</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>|</xsl:text>
+ </xsl:template>
+
+<!-- FACTORIAL -->
+
+<xsl:template match="m:apply[m:fact]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:abs/@definitionURL"/>
+ </xsl:variable>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>!</xsl:text>
+ </xsl:template>
+
+<!-- SQUARE ROOT -->
+
+<xsl:template match="m:apply[m:root]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:abs/@definitionURL"/>
+ </xsl:variable>
+ <xsl:text>(sqr</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:template>
+
+<!-- POWER -->
+
+<xsl:template match="m:apply[m:power]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:power/@definitionURL"/>
+ </xsl:variable>
+ <xsl:apply-templates select="*[2]"/>
+ <SUP>
+ <xsl:apply-templates select="*[3]"/>
+ </SUP>
+ </xsl:template>
+
+<!-- MIN and MAX (binari: estendere) -->
+
+ <xsl:template match="m:apply[m:min|m:max]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="*[1]/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:variable name="symbol">
+ <xsl:choose>
+ <xsl:when test="m:min">
+ <xsl:value-of select="'min'"/>
+ </xsl:when>
+ <xsl:when test="m:max">
+ <xsl:value-of select="'max'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:value-of select="$symbol"/>
+ </a>
+ <xsl:text>{</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>,</xsl:text>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 5"/>
+ </xsl:call-template>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:value-of select="$symbol"/>
+ </a>
+ <xsl:text>{</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <xsl:text>, </xsl:text>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>}</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- COUNTING -->
+
+<xsl:template match="m:abs|m:fact|m:root
+ |m:limit|m:diff|m:min|m:max" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<!--***********************************************************************-->
+<!-- INIT style for HTML -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--***********************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- IN -->
+
+ <xsl:template match="m:apply[m:in]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:in/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:in" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Î</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Î</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- NOTIN -->
+
+ <xsl:template match="m:apply[m:notin]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:notin/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:notin" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ï</FONT>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ï</FONT>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- SET -->
+
+ <xsl:template match="m:set">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="concat(string($absPath), @definitionURL)"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 0">
+ <FONT FACE="symbol" color="blue">Æ</FONT>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="." mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="name(*[1]) = 'm:bvar'">
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>{</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type">
+ <xsl:with-param name="current_indent"
+ select="$current_indent + 2 + string-length(m:bvar/m:ci)"/>
+ </xsl:apply-templates><BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:text>|</xsl:text>
+ <xsl:apply-templates select="m:condition">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>{</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <xsl:text>:</xsl:text>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <xsl:text>|</xsl:text>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:text>}</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>{</xsl:text>
+ <xsl:apply-templates select="*[position()=1]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:for-each select="*[position()>1]">
+ <xsl:text>,</xsl:text>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>{</xsl:text>
+ <xsl:for-each select="*">
+ <xsl:apply-templates select="."/>
+ <xsl:choose>
+ <xsl:when test="position() = last()">
+ <xsl:text>}</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>,</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+
+<!-- INTERSECTION -->
+
+<xsl:template match="m:apply[m:intersect]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:intersect/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:intersect" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ç</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ç</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- UNION -->
+
+<xsl:template match="m:apply[m:union]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:union/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:union" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">È</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">È</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- SUBSET -->
+<xsl:template match="m:apply[m:subset]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:subset/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:subset" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Í</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Í</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- PRSUBSET -->
+<xsl:template match="m:apply[m:prsubset]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:prsubset/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:prsubset" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ì</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <FONT FACE="symbol" SIZE="+2" color="blue">Ì</FONT>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+
+<!-- SETDIFF -->
+
+<xsl:template match="m:apply[m:setdiff]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:setdiff/@definitionURL"/>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:setdiff" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength > $framewidth">
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <BR/>
+ <xsl:call-template name="make_indent">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:call-template>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>/</xsl:text>
+ </a>
+ <xsl:apply-templates select="*[3]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>)</xsl:text>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:text>(</xsl:text>
+ <xsl:apply-templates select="*[2]"/>
+ <a>
+ <xsl:attribute name="href">
+ <xsl:value-of select="concat(string($header),string($uri))"/>
+ </xsl:attribute>
+ <xsl:text>/</xsl:text>
+ </a>
+ <xsl:apply-templates select="*[3]"/>
+ <xsl:text>)</xsl:text>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+<!-- CARD -->
+<xsl:template match="m:apply[m:card]">
+ <xsl:param name="current_indent" select="0"/>
+ <xsl:param name="width" select="$framewidth"/>
+ <xsl:variable name="uri">
+ <xsl:value-of select="m:card/@definitionURL"/>
+ </xsl:variable>
+ <xsl:text>|</xsl:text>
+ <xsl:apply-templates select="*[2]">
+ <xsl:with-param name="current_indent" select="$current_indent + 2"/>
+ </xsl:apply-templates>
+ <xsl:text>|</xsl:text>
+ </xsl:template>
+
+<!-- COUNTING -->
+
+<xsl:template match="m:in|m:notin|m:intersect|m:union
+ |m:subset|m:prsubset|m:setdiff|m:card" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!-- ====================================================== -->
+<!-- XSL Transform of MathML content to MathML presentation -->
+<!-- By Igor Rodionov, Computer Science Department of -->
+<!-- the University of Western Ontario, London, Canada -->
+<!-- Complies with the W3C Working Draft from Dec.3, 1999 -->
+<!-- Version x.xx from Feb. 18, 2000 -->
+<!-- Comments to: igor@csd.uwo.ca -->
+<!-- -->
+<!-- (C) Copyright 1999, 2000 Symbolic Computation -->
+<!-- Laboratory, University of Western Ontario. -->
+<!-- ====================================================== -->
+
+<!-- ====================================================== -->
+<!-- May 11, 2000 - HELM group: -->
+<!-- Added the namespace prefix to all the output elements -->
+<!-- Changed the mml prefix into m -->
+<!-- Swapped math element out of the semantic element -->
+<!-- Added the declaration of the xlink namespace -->
+<!-- ====================================================== -->
+
+<xsl:stylesheet id="mml2mml"
+ version="1.0"
+ xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:xlink="http://www.w3.org/1999/xlink"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:output method="xml" indent="yes" encoding="iso-8859-1"/>
+
+<!-- ***************************************************** -->
+<!-- Parameters affectin' stylesheet's run-time behavior -->
+<!-- ***************************************************** -->
+
+<!-- SEM_SW: -1 - strip off all semantics
+ 0 - pass semantics "as is" (default)
+ 1 - add semantics at top level only
+ 2 - add semantics at all levels
+ 3 - semantics at top level with cross-references
+-->
+<!-- HELM: SEM_SW was 0 -->
+<xsl:param name="SEM_SW" select="1"/>
+
+<!-- Miscellaneous Variable Definitions -->
+
+<xsl:variable name="NO" select="0"/>
+<xsl:variable name="YES" select="1"/>
+<xsl:variable name="PAR_NO" select="-7"/>
+<xsl:variable name="PAR_YES" select="-5"/>
+<xsl:variable name="PAR_SAME" select="-3"/>
+<xsl:variable name="NO_PARAM" select="-1"/>
+
+<!-- Operator Precedence Definitions -->
+
+<xsl:variable name="NO_PREC" select="0"/>
+<xsl:variable name="UNION_PREC" select="1"/>
+<xsl:variable name="SETDIFF_PREC" select="1"/>
+<xsl:variable name="INTERSECT_PREC" select="3"/>
+<xsl:variable name="OR_PREC" select="5"/>
+<xsl:variable name="XOR_PREC" select="5"/>
+<xsl:variable name="AND_PREC" select="7"/>
+<xsl:variable name="PLUS_PREC" select="9"/>
+<xsl:variable name="MINUS_PREC" select="9"/>
+<xsl:variable name="MUL_PREC" select="11"/>
+<xsl:variable name="DIV_PREC" select="11"/>
+<xsl:variable name="NEG_PREC" select="13"/>
+<xsl:variable name="FUNCTION_PREC" select="99"/>
+
+<!-- AUXILIARY FUNCTIONS FOR BACKWARD POINTERS AND REFS (by andrea) -->
+
+<xsl:template name = "insert_xref">
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template name = "insert">
+ <xsl:if test="@definitionURL">
+ <xsl:attribute name="xlink:href">
+ <xsl:value-of select="@definitionURL"/>
+ </xsl:attribute>
+ </xsl:if>
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+</xsl:template>
+
+<!-- for use inside m:apply -->
+<xsl:template name = "insert1">
+ <xsl:if test="*[1]/@definitionURL">
+ <xsl:attribute name="xlink:href">
+ <xsl:value-of select="*[1]/@definitionURL"/>
+ </xsl:attribute>
+ </xsl:if>
+ <xsl:if test="*[1]/@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="*[1]/@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+</xsl:template>
+
+<!-- For use inside "for-each" -->
+<xsl:template name = "insert2">
+ <xsl:if test="../*[1]/@definitionURL">
+ <xsl:attribute name="xlink:href">
+ <xsl:value-of select="../*[1]/@definitionURL"/>
+ </xsl:attribute>
+ </xsl:if>
+ <xsl:if test="../*[1]/@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="../*[1]/@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+</xsl:template>
+
+<!-- THE TOPMOST ELEMENT: MATH -->
+
+<xsl:template match = "m:math">
+ <xsl:choose>
+ <xsl:when test="$SEM_SW>0">
+<!-- HELM: deleted math (we have already inserted at object level) -->
+ <!--<m:math>-->
+ <m:semantics>
+ <xsl:apply-templates mode = "semantics"/>
+ <m:annotation-xml encoding="MathML">
+ <xsl:copy-of select = "*"/>
+ </m:annotation-xml>
+ </m:semantics>
+ <!--</m:math>-->
+ </xsl:when>
+ <xsl:otherwise>
+ <!--<m:math>-->
+ <xsl:apply-templates mode = "semantics"/>
+ <!--</m:math>-->
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- SEMANTICS -->
+
+<xsl:template match = "m:*" mode = "semantics">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$SEM_SW=-1 and self::m:semantics">
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=0 and self::m:semantics">
+ <m:semantics>
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:copy-of select="m:annotation-xml"/>
+ </m:semantics>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=2">
+ <m:semantics>
+ <xsl:choose>
+ <xsl:when test="self::m:semantics">
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:copy-of select="m:annotation-xml"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:annotation-xml encoding="MathML">
+ <xsl:copy-of select="."/>
+ </m:annotation-xml>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:semantics>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=3 and @id">
+ <m:mrow idref="{@id}">
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:semantics">
+ <xsl:apply-templates select="*[1]" mode = "semantics"/>
+</xsl:template>
+
+
+<!-- BASIC ELEMENTS -->
+
+<xsl:template match = "m:cn">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test=". < 0 and $IN_PREC > 0 and $PAREN=$PAR_NO and $PAR_NO_IGNORE=$NO">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="cn"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="cn"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:cn" mode="cn">
+ <xsl:choose>
+ <xsl:when test="@base and (not(@type) or @type='integer' or @type='real')">
+ <m:msub>
+ <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='complex' and not(@base) and child::m:sep[1]">
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <xsl:if test="text()[2] < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
+ </xsl:if>
+ <xsl:if test="not(text()[2] < 0)">
+ <m:mo>+</m:mo>
+ <xsl:apply-templates select="text()[2]" mode = "semantics"/>
+ </xsl:if>
+ <m:mo> <mchar name="InvisibleTimes"/> </m:mo>
+ <m:mo>i</m:mo>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@type='complex' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <xsl:if test="text()[2] < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
+ </xsl:if>
+ <xsl:if test="not(text()[2] < 0)">
+ <m:mo>+</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </xsl:if>
+ <m:mo> <mchar name="InvisibleTimes"/> </m:mo>
+ <m:mo>i</m:mo>
+ </m:mfenced>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='rational' and not(@base) and child::m:sep[1]">
+ <m:mrow>
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mo>/</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mrow>
+ </xsl:when>
+ <xsl:when test="@type='rational' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mo>/</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='polar' and not(@base) and child::m:sep[1]">
+ <m:mrow>
+ <m:mo>Polar</m:mo>
+ <m:mfenced separators=",">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ </m:mrow>
+ </xsl:when>
+ <xsl:when test="@type='polar' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mrow>
+ <m:mo>Polar</m:mo>
+ <m:mfenced separators=",">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ </m:mrow>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mn>
+ <xsl:call-template name="insert"/>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mn>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:ci">
+ <xsl:choose>
+ <xsl:when test="@type='vector' or @type=matrix or @type=set">
+ <m:mi fontweight="bold"> <xsl:apply-templates mode = "semantics"/> </m:mi>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mi>
+ <xsl:call-template name="insert"/>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mi>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:csymbol">
+ <xsl:choose>
+ <xsl:when test="*[1]">
+ <xsl:copy-of select = "*"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo> <xsl:apply-templates mode = "semantics"/> </m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- BASIC CONTENT ELEMENTS -->
+
+<xsl:template match = "m:apply[m:fn[1]]">
+ <m:mrow>
+ <xsl:apply-templates select = "m:fn[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:fn">
+ <xsl:apply-templates select = "*[1]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:interval">
+ <xsl:choose>
+ <xsl:when test="@closure='closed'">
+ <m:mfenced open="[" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='open'">
+ <m:mfenced separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='open-closed'">
+ <m:mfenced open="(" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='closed-open'">
+ <m:mfenced open="[" close=")" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mfenced open="[" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:*[1][self::m:apply[m:inverse[1]]]]">
+ <m:mrow>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<!-- These "semantical" Transformations are REALLY questionable.
+ Andrea -->
+
+<xsl:template match = "m:apply[*[1][self::m:inverse]]">
+ <xsl:choose>
+ <xsl:when test="*[2]=m:exp">
+ <m:mo>ln</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:ln | m:log">
+ <m:mo>exp</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sin">
+ <m:mo>arcsin</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cos">
+ <m:mo>arccos</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:tan">
+ <m:mo>arctan</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sec">
+ <m:mo>arcsec</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:csc">
+ <m:mo>arccsc</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cot">
+ <m:mo>arccot</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sinh">
+ <m:mo>arcsinh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cosh">
+ <m:mo>arccosh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:tanh">
+ <m:mo>arctanh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sech">
+ <m:mo>arcsech</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:csch">
+ <m:mo>arccsch</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:coth">
+ <m:mo>arccoth</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arcsin">
+ <m:mo>sin</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arccos">
+ <m:mo>cos</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arctan">
+ <m:mo>tan</m:mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mfenced>
+ <m:mn>-1</m:mn>
+ </m:mfenced>
+ </m:msup>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:sep"/>
+
+<xsl:template match = "m:condition">
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:forall[1]]"/>
+ <xsl:otherwise>
+ <xsl:if test="not(*[2])">
+ <xsl:apply-templates mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[2]">
+ <m:mrow>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mrow>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:declare"/>
+
+<xsl:template match = "m:lambda">
+ <m:mrow>
+ <m:mo> Λ </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*">
+ <xsl:choose>
+ <xsl:when test="self::m:ci or self::m:cn">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:*[1][self::m:apply[m:compose[1]]]]">
+ <m:mrow>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[*[1][self::m:compose]]">
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "m:*[2][self::m:ci[@type='fn'] | self::m:fn]" mode="semantics"/>
+ <xsl:for-each select = "m:*[position()>2][self::m:ci[@type='fn'] | self::m:fn]">
+ <m:mo> <xsl:call-template name="insert2"/> <mchar name="SmallCircle"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:ident">
+ <m:mo>id</m:mo>
+</xsl:template>
+
+
+<!-- ARITHMETIC, ALGEBRA & LOGIC -->
+
+<xsl:template match = "m:apply[m:quotient[1]]">
+ <m:mfenced open="⌊" close="⌋" separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ <m:mo><xsl:call-template name="insert1"/>/</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[*[1][self::m:exp]]">
+ <m:msup>
+ <m:mo>e</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:msup>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:factorial[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ <m:mo><xsl:call-template name="insert1"/>!</m:mo>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:max[1] | m:min[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[2]=m:bvar">
+ <m:munder>
+ <xsl:if test="*[1]=m:max">
+ <m:mo><xsl:call-template name="insert1"/>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo>min</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:munder>
+ <xsl:if test="*[3]=m:condition">
+ <m:mfenced open="{{" close="}}" separators="">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[position()>3]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="not(*[3]=m:condition)">
+ <m:mfenced open="{{" close="}}" separators=",">
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </xsl:if>
+ <xsl:if test="*[2]=m:condition">
+ <xsl:if test="*[1]=m:max">
+ <m:mo>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo>min</m:mo>
+ </xsl:if>
+ <m:mfenced open="{{" close="}}" separators="">
+ <xsl:if test="*[3]">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:condition) and not(*[2]=m:bvar)">
+ <xsl:if test="*[1]=m:max">
+ <m:mo>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo><xsl:call-template name="insert1"/>min</m:mo>
+ </xsl:if>
+ <m:mfenced open="{{" close="}}" separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:minus[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $MINUS_PREC or $IN_PREC=$MINUS_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:minus[1]]" mode="minus">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:if test="not(*[3])">
+ <m:mo><xsl:call-template name="insert1"/>-</m:mo>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$NEG_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:if test="*[3]">
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:mo><xsl:call-template name="insert1"/>-</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:plus[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $PLUS_PREC or $IN_PREC=$PLUS_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:plus[1]]" mode="plus">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:if test="*[2]">
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:choose>
+ <xsl:when test=". < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-."/> </m:mn>
+ </xsl:when>
+ <xsl:when test="self::m:apply[m:minus[1]] and not(*[3])">
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo><xsl:call-template name="insert2"/>+</m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:power[1]]">
+ <xsl:choose>
+ <xsl:when test="*[2]=m:apply[m:ln[1] | m:log[1] | m:abs[1] | m:gcd[1] | m:sin[1] | m:cos[1] | m:tan[1] | m:sec[1] | m:csc[1] | m:cot[1] | m:sinh[1] | m:cosh[1] | m:tanh[1] | m:sech[1] | m:csch[1] | m:coth[1] | m:arcsin[1] | m:arccos[1] | m:arctan[1]]">
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $DIV_PREC or $IN_PREC=$DIV_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]" mode="remdiv">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:if test="m:rem">
+ <m:mo><xsl:call-template name="insert1"/>%</m:mo>
+ </xsl:if>
+ <xsl:if test="m:divide">
+ <m:mo><xsl:call-template name="insert1"/>/</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:times[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $MUL_PREC or $IN_PREC=$MUL_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:times[1]]" mode="times">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:if test="*[3]">
+ <xsl:for-each select = "*[position()>2]">
+<!-- MODIFICA PROVVISORIA -->
+<!-- <m:mo><xsl:call-template name="insert2"/>
+ <mchar name="InvisibleTimes"/> </m:mo> -->
+ <m:mo><xsl:call-template name="insert2"/>*</m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </xsl:if>
+</xsl:template>
+
+<!-- COMMENTO : dove metto la uri della definizione di radice ???? -->
+
+<xsl:template match = "m:apply[m:root[1]]">
+ <m:msqrt>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[2]=m:degree">
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:degree)">
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ <m:mn>2</m:mn>
+ </xsl:if>
+ </m:msqrt>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:gcd[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <m:mo><xsl:call-template name="insert1"/>gcd</m:mo>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mo><xsl:call-template name="insert1"/>gcd</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:and[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $AND_PREC">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:and[1]]" mode="and">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="wedge"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:or[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $OR_PREC">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:or[1]]" mode="or">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="vee"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:xor[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $XOR_PREC">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:xor[1]]" mode="xor">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="xor"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:not[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/>not</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:forall[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/>for all</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "m:bvar">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <xsl:if test="m:condition">
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
+ <m:mo>,</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and not(self::m:condition)]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:exists[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Exists"/> </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "m:bvar">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <xsl:if test="m:condition">
+ <m:mo>,</m:mo>
+ <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
+ </xsl:if>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and not(self::m:condition)]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:abs[1]]">
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <m:mfenced open="|" close="|" separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mfenced open="|" close="|" separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:conjugate[1]]">
+ <m:mover>
+ <m:mrow>
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mrow>
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="UnderBar"/> </m:mo>
+ </m:mover>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:arg[1] | m:real[1] | m:imaginary[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:choose>
+ <xsl:when test="m:arg">
+ <m:mo><xsl:call-template name="insert1"/>arg</m:mo>
+ </xsl:when>
+ <xsl:when test="m:real">
+ <m:mo><xsl:call-template name="insert1"/>Real</m:mo>
+ </xsl:when>
+ <xsl:when test="m:imaginary">
+ <m:mo><xsl:call-template name="insert1"/>Imaginary</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- RELATIONS -->
+
+<xsl:template match = "m:apply[m:neq | m:approx | m:tendsto | m:implies | m:in | m:notin | m:notsubset | m:notprsubset | m:subset | m:prsubset | m:eq | m:gt | m:lt | m:geq | m:leq | m:equivalent]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[1]=m:neq or *[1]=m:approx or *[1]=m:tendsto or *[1]=m:implies or *[1]=m:in or *[1]=m:notin or *[1]=m:notsubset or *[1]=m:notprsubset">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <xsl:if test="*[1]=m:neq">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="NotEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:approx">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="approxeq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:tendsto">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="RightArrow"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:implies">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="DoubleRightArrow"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:in">
+ <m:mo><xsl:call-template name="insert1"/>
+ <mchar name="Element"/>
+ </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notin">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="NotElement"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notsubset">
+ <m:mo> <xsl:call-template name="insert1"/> <mchar name="NotSubset"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notprsubset">
+ <m:mo> <xsl:call-template name="insert1"/> <mchar name="NotSubsetEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='below']">
+ <m:mo><xsl:call-template name="insert1"/>-</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='above']">
+ <m:mo><xsl:call-template name="insert1"/>+</m:mo>
+ </xsl:if>
+ </xsl:if>
+ <xsl:if test="*[1]=m:subset or *[1]=m:prsubset or *[1]=m:eq or *[1]=m:gt or *[1]=m:lt or *[1]=m:geq or *[1]=m:leq or *[1]=m:equivalent">
+ <xsl:apply-templates select = "*[2]" mode="semantics"/>
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:if test="../*[self::m:subset][1]">
+ <m:mo> <xsl:call-template name="insert2"/> <mchar name="SubsetEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:prsubset][1]">
+ <m:mo> <xsl:call-template name="insert2"/><mchar name="subset"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:eq][1]">
+ <m:mo><xsl:call-template name="insert2"/>=</m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:gt][1]">
+ <m:mo><xsl:call-template name="insert2"/>></m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:lt][1]">
+ <m:mo><xsl:call-template name="insert2"/><</m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:geq][1]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="geq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:leq][1]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="leq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:equivalent][1]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="Congruent"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- CALCULUS -->
+
+<xsl:template match = "m:apply[*[1][self::m:ln]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mo><xsl:call-template name="insert1"/>ln</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo><xsl:call-template name="insert1"/>ln</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:log[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:power[1]]">
+ <xsl:if test="not(*[2]=m:logbase)">
+ <m:msup>
+ <m:mo><xsl:call-template name="insert1"/>log</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:if test="*[2]=m:logbase">
+ <m:msubsup>
+ <m:mo><xsl:call-template name="insert1"/>log</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
+ </m:msubsup>
+ </xsl:if>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:if test="not(*[2]=m:logbase)">
+ <m:mo><xsl:call-template name="insert1"/>log</m:mo>
+ </xsl:if>
+ <xsl:if test="*[2]=m:logbase">
+ <m:msub>
+ <m:mo><xsl:call-template name="insert1"/>log</m:mo>
+ <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
+ </m:msub>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:if test="*[2]=m:logbase">
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:logbase)">
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:diff[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[2]=m:bvar and m:bvar[*[2]=m:degree]">
+ <m:mfrac><xsl:call-template name="insert1"/>
+ <m:msup>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
+ </m:msup>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <m:msup>
+ <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
+ </m:msup>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:if test="*[2]=m:bvar and not(m:bvar[*[2]=m:degree])">
+ <m:mfrac><xsl:call-template name="insert1"/>
+ <m:mo>d</m:mo>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:partialdiff[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:for-each select = "m:bvar">
+ <xsl:if test="*[last()]=m:degree">
+ <m:mfrac><xsl:call-template name="insert1"/>
+ <m:msup>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:degree" mode = "semantics"/>
+ </m:msup>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <m:msup>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:degree" mode = "semantics"/>
+ </m:msup>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:if test="not(*[last()]=m:degree)">
+ <m:mfrac><xsl:call-template name="insert1"/>
+ <m:mo>d</m:mo>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ </xsl:for-each>
+ <xsl:apply-templates select = "*[last()]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:lowlimit | m:uplimit | m:bvar | m:degree | m:logbase">
+ <xsl:apply-templates mode = "semantics"/>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:divergence[1] | m:grad[1] | m:curl[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[1]=m:divergence">
+ <m:mo><xsl:call-template name="insert1"/>div</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:grad">
+ <m:mo><xsl:call-template name="insert1"/>grad</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:curl">
+ <m:mo><xsl:call-template name="insert1"/>curl</m:mo>
+ </xsl:if>
+ <xsl:choose>
+ <xsl:when test="*[2]=m:ci">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:laplacian[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:msup><xsl:call-template name="insert1"/>
+ <m:mo> Δ </m:mo>
+ <m:mn>2</m:mn>
+ </m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- SET THEORY -->
+
+<xsl:template match = "m:set | m:list">
+ <m:mfenced open="{{" close="}}" separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="*[1]=m:bvar and *[2]=m:condition">
+ <xsl:apply-templates select="m:bvar" mode = "semantics"/>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="m:condition" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[1]=m:condition and not(child::m:bvar)">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[not(self::m:condition) and not(self::m:bvar)]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="m:condition" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="not(child::m:bvar) and not(child::m:condition)">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:union[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $UNION_PREC or $IN_PREC=$UNION_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="" helm:xref="{@helm:xref}">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:union[1]]" mode="union">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="Union"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:intersect[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $INTERSECT_PREC">
+ <m:mfenced separators="" helm:xref="{@helm:xref}">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:intersect[1]]" mode="intersect">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo><xsl:call-template name="insert2"/> <mchar name="Intersection"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:setdiff[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $SETDIFF_PREC or $IN_PREC=$SETDIFF_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:setdiff[1]]" mode="setdiff">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:mo><xsl:call-template name="insert1"/>\</m:mo>
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:card[1]]">
+ <m:mfenced open="|" close="|" separators=",">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+
+<!-- SEQUENCES AND SERIES -->
+
+<xsl:template match = "m:apply[m:sum[1] | m:product[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:choose>
+ <xsl:when test="*[2]=m:bvar and m:lowlimit and m:uplimit">
+ <m:munderover>
+ <xsl:if test="*[1]=m:sum">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Sum"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:product">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Product"/> </m:mo>
+ </xsl:if>
+ <m:mrow>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo>=</m:mo>
+ <xsl:apply-templates select = "m:lowlimit" mode = "semantics"/>
+ </m:mrow>
+ <xsl:apply-templates select = "m:uplimit" mode = "semantics"/>
+ </m:munderover>
+ <xsl:apply-templates select = "*[5]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:when test="*[2]=m:bvar and *[3]=m:condition">
+ <m:munder>
+ <xsl:if test="*[1]=m:sum">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Sum"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:product">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Product"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:munder>
+ <xsl:apply-templates select = "*[4]" mode = "semantics"/>
+ </xsl:when>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:limit[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:munder>
+ <m:mo><xsl:call-template name="insert1"/>lim</m:mo>
+ <m:mrow>
+ <xsl:if test="*[2]=m:bvar and *[3]=m:lowlimit">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo> <mchar name="RightArrow"/> </m:mo>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[2]=m:bvar and *[3]=m:condition">
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </xsl:if>
+ </m:mrow>
+ </m:munder>
+ <xsl:apply-templates select = "*[4]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- TRIGONOMETRY -->
+
+<xsl:template match = "m:apply[*[1][self::m:sin | self::m:cos | self::m:tan | self::m:sec | self::m:csc | self::m:cot | self::m:sinh | self::m:cosh | self::m:tanh | self::m:sech | self::m:csch | self::m:coth | self::m:arcsin | self::m:arccos | self::m:arctan]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:*" mode = "trigonometry">
+ <xsl:choose>
+ <xsl:when test="self::m:sin">
+ <m:mo>sin</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cos">
+ <m:mo>cos</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:tan">
+ <m:mo>tan</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sec">
+ <m:mo>sec</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:csc">
+ <m:mo>csc</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cot">
+ <m:mo>cot</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sinh">
+ <m:mo>sinh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cosh">
+ <m:mo>cosh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:tanh">
+ <m:mo>tanh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sech">
+ <m:mo>sech</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:csch">
+ <m:mo>csch</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:coth">
+ <m:mo>coth</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arcsin">
+ <m:mo>arcsin</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arccos">
+ <m:mo>arccos</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arctan">
+ <m:mo>arctan</m:mo>
+ </xsl:when>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- STATISTICS -->
+
+<xsl:template match = "m:apply[m:mean[1]]">
+ <m:mfenced open="<" close=">" separators=",">
+ <xsl:call-template name="insert_xref"/>
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:sdev[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/> σ </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:variance[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/> σ </m:mo>
+ <m:msup>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mn>2</m:mn>
+ </m:msup>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:median[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/>median</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:mode[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/>mode</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:moment[1]]">
+ <xsl:call-template name="insert_xref"/>
+ <m:mfenced open="<" close=">" separators="">
+ <xsl:if test="*[2]=m:degree">
+ <m:msup>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:degree)">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </xsl:if>
+ </m:mfenced>
+</xsl:template>
+
+
+<!-- LINEAR ALGEBRA -->
+
+<xsl:template match="m:vector">
+ <m:mfenced separators="">
+ <m:mtable>
+ <xsl:for-each select="*">
+ <m:mtd>
+ <xsl:apply-templates select="." mode = "semantics"/>
+ </m:mtd>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:matrix">
+ <m:mfenced separators="">
+ <m:mtable>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mtable>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:matrixrow">
+ <m:mtr>
+ <xsl:for-each select="*">
+ <m:mtd>
+ <xsl:apply-templates select="." mode = "semantics"/>
+ </m:mtd>
+ </xsl:for-each>
+ </m:mtr>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:determinant[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <m:mo><xsl:call-template name="insert1"/>det</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:transpose[1]]">
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo>T</m:mo>
+ </m:msup>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:selector[1]]">
+ <xsl:if test="*[2]=m:matrix and *[3]=m:cn">
+ <xsl:variable name="m" select = "*[3]"/>
+ <xsl:choose>
+ <xsl:when test="*[4]=m:cn">
+ <xsl:variable name="n" select = "*[4]"/>
+ <xsl:copy-of select = "m:matrix/*[position()=$m]/*[position()=$n]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:copy-of select = "m:matrix/*[position()=$m]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:if>
+ <xsl:if test="(*[2]=m:vector or *[2]=m:list) and *[3]=m:cn">
+ <xsl:variable name="m" select = "*[3]"/>
+ <xsl:copy-of select = "*[2]/*[position()=$m]"/>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:vectorproduct[1] | m:scalarproduct[1] | m:outerproduct[1]]">
+ <m:mrow>
+ <xsl:call-template name="insert_xref"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ <xsl:choose>
+ <xsl:when test="m:vectorproduct[1]">
+ <m:mo><xsl:call-template name="insert1"/> <mchar name="Cross"/> </m:mo>
+ </xsl:when>
+ <xsl:when test="m:scalarproduct[1] | m:outerproduct[1]">
+ <m:mo><xsl:call-template name="insert1"/>.</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!-- ====================================================== -->
+<!-- XSL Transform of MathML content to MathML presentation -->
+<!-- By Igor Rodionov, Computer Science Department of -->
+<!-- the University of Western Ontario, London, Canada -->
+<!-- Complies with the W3C Working Draft from Dec.3, 1999 -->
+<!-- Version x.xx from Feb. 18, 2000 -->
+<!-- Comments to: igor@csd.uwo.ca -->
+<!-- -->
+<!-- (C) Copyright 1999, 2000 Symbolic Computation -->
+<!-- Laboratory, University of Western Ontario. -->
+<!-- ====================================================== -->
+
+<!-- ====================================================== -->
+<!-- May 11, 2000 - HELM group: -->
+<!-- Added the namespace prefix to all the output elements -->
+<!-- Changed the mml prefix into m -->
+<!-- Swapped math element out of the semantic element -->
+<!-- Added the declaration of the xlink namespace -->
+<!-- ====================================================== -->
+
+<xsl:stylesheet id="mml2mml"
+ version="1.0"
+ xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:xlink="http://www.w3.org/1999/xlink">
+
+<xsl:output method="xml" indent="yes" encoding="iso-8859-1"/>
+
+<!-- ***************************************************** -->
+<!-- Parameters affectin' stylesheet's run-time behavior -->
+<!-- ***************************************************** -->
+
+<!-- SEM_SW: -1 - strip off all semantics
+ 0 - pass semantics "as is" (default)
+ 1 - add semantics at top level only
+ 2 - add semantics at all levels
+ 3 - semantics at top level with cross-references
+-->
+<!-- HELM: SEM_SW was 0 -->
+<xsl:param name="SEM_SW" select="1"/>
+
+<!-- Miscellaneous Variable Definitions -->
+
+<xsl:variable name="NO" select="0"/>
+<xsl:variable name="YES" select="1"/>
+<xsl:variable name="PAR_NO" select="-7"/>
+<xsl:variable name="PAR_YES" select="-5"/>
+<xsl:variable name="PAR_SAME" select="-3"/>
+<xsl:variable name="NO_PARAM" select="-1"/>
+
+<!-- Operator Precedence Definitions -->
+
+<xsl:variable name="NO_PREC" select="0"/>
+<xsl:variable name="UNION_PREC" select="1"/>
+<xsl:variable name="SETDIFF_PREC" select="1"/>
+<xsl:variable name="INTERSECT_PREC" select="3"/>
+<xsl:variable name="OR_PREC" select="5"/>
+<xsl:variable name="XOR_PREC" select="5"/>
+<xsl:variable name="AND_PREC" select="7"/>
+<xsl:variable name="PLUS_PREC" select="9"/>
+<xsl:variable name="MINUS_PREC" select="9"/>
+<xsl:variable name="MUL_PREC" select="11"/>
+<xsl:variable name="DIV_PREC" select="11"/>
+<xsl:variable name="NEG_PREC" select="13"/>
+<xsl:variable name="FUNCTION_PREC" select="99"/>
+
+
+<!-- THE TOPMOST ELEMENT: MATH -->
+
+<xsl:template match = "m:math">
+ <xsl:choose>
+ <xsl:when test="$SEM_SW>0">
+<!-- HELM: deleted math (we have already inserted at object level) -->
+ <!--<m:math>-->
+ <m:semantics>
+ <xsl:apply-templates mode = "semantics"/>
+ <m:annotation-xml encoding="MathML">
+ <xsl:copy-of select = "*"/>
+ </m:annotation-xml>
+ </m:semantics>
+ <!--</m:math>-->
+ </xsl:when>
+ <xsl:otherwise>
+ <!--<m:math>-->
+ <xsl:apply-templates mode = "semantics"/>
+ <!--</m:math>-->
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- SEMANTICS -->
+
+<xsl:template match = "m:*" mode = "semantics">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$SEM_SW=-1 and self::m:semantics">
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=0 and self::m:semantics">
+ <m:semantics>
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:copy-of select="m:annotation-xml"/>
+ </m:semantics>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=2">
+ <m:semantics>
+ <xsl:choose>
+ <xsl:when test="self::m:semantics">
+ <xsl:apply-templates select="*[1]">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:copy-of select="m:annotation-xml"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:annotation-xml encoding="MathML">
+ <xsl:copy-of select="."/>
+ </m:annotation-xml>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:semantics>
+ </xsl:when>
+ <xsl:when test="$SEM_SW=3 and @id">
+ <m:mrow idref="{@id}">
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select=".">
+ <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:semantics">
+ <xsl:apply-templates select="*[1]" mode = "semantics"/>
+</xsl:template>
+
+
+<!-- BASIC ELEMENTS -->
+
+<xsl:template match = "m:cn">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test=". < 0 and $IN_PREC > 0 and $PAREN=$PAR_NO and $PAR_NO_IGNORE=$NO">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="cn"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="cn"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:cn" mode="cn">
+ <xsl:choose>
+ <xsl:when test="@base and (not(@type) or @type='integer' or @type='real')">
+ <m:msub>
+ <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='complex' and not(@base) and child::m:sep[1]">
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <xsl:if test="text()[2] < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
+ </xsl:if>
+ <xsl:if test="not(text()[2] < 0)">
+ <m:mo>+</m:mo>
+ <xsl:apply-templates select="text()[2]" mode = "semantics"/>
+ </xsl:if>
+ <m:mo> <mchar name="InvisibleTimes"/> </m:mo>
+ <m:mo>i</m:mo>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@type='complex' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <xsl:if test="text()[2] < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
+ </xsl:if>
+ <xsl:if test="not(text()[2] < 0)">
+ <m:mo>+</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </xsl:if>
+ <m:mo> <mchar name="InvisibleTimes"/> </m:mo>
+ <m:mo>i</m:mo>
+ </m:mfenced>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='rational' and not(@base) and child::m:sep[1]">
+ <m:mrow>
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mo>/</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mrow>
+ </xsl:when>
+ <xsl:when test="@type='rational' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mfenced separators="">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mo>/</m:mo>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:when test="@type='polar' and not(@base) and child::m:sep[1]">
+ <m:mrow>
+ <m:mo>Polar</m:mo>
+ <m:mfenced separators=",">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ </m:mrow>
+ </xsl:when>
+ <xsl:when test="@type='polar' and @base and child::m:sep[1]">
+ <m:msub>
+ <m:mrow>
+ <m:mo>Polar</m:mo>
+ <m:mfenced separators=",">
+ <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
+ <m:mn> <xsl:apply-templates select="text()[2]" mode = "semantics"/> </m:mn>
+ </m:mfenced>
+ </m:mrow>
+ <m:mn> <xsl:value-of select="@base"/> </m:mn>
+ </m:msub>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:ci">
+ <xsl:choose>
+ <xsl:when test="@type='vector' or @type=matrix or @type=set">
+ <m:mi fontweight="bold"> <xsl:apply-templates mode = "semantics"/> </m:mi>
+ </xsl:when>
+ <xsl:otherwise>
+<!-- HELM: aggiunta choose temporanea per HREF invece di:
+<m:mi> <xsl:apply-templates mode = "semantics"/> </m:mi>-->
+ <xsl:choose>
+ <xsl:when test="string(@definitionURL) = """>
+ <m:mi> <xsl:apply-templates mode = "semantics"/> </m:mi>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mi xlink:href="{@definitionURL}"> <xsl:apply-templates mode = "semantics"/> </m:mi>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:csymbol">
+ <xsl:choose>
+ <xsl:when test="*[1]">
+ <xsl:copy-of select = "*"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo> <xsl:apply-templates mode = "semantics"/> </m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- BASIC CONTENT ELEMENTS -->
+
+<xsl:template match = "m:apply[m:fn[1]]">
+ <m:mrow>
+ <xsl:apply-templates select = "m:fn[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:fn">
+ <xsl:apply-templates select = "*[1]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:interval">
+ <xsl:choose>
+ <xsl:when test="@closure='closed'">
+ <m:mfenced open="[" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='open'">
+ <m:mfenced separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='open-closed'">
+ <m:mfenced open="(" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="@closure='closed-open'">
+ <m:mfenced open="[" close=")" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mfenced open="[" close="]" separators=",">
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mfenced>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:*[1][self::m:apply[m:inverse[1]]]]">
+ <m:mrow>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[*[1][self::m:inverse]]">
+ <xsl:choose>
+ <xsl:when test="*[2]=m:exp">
+ <m:mo>ln</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:ln | m:log">
+ <m:mo>exp</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sin">
+ <m:mo>arcsin</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cos">
+ <m:mo>arccos</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:tan">
+ <m:mo>arctan</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sec">
+ <m:mo>arcsec</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:csc">
+ <m:mo>arccsc</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cot">
+ <m:mo>arccot</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sinh">
+ <m:mo>arcsinh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:cosh">
+ <m:mo>arccosh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:tanh">
+ <m:mo>arctanh</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:sech">
+ <m:mo>arcsech</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:csch">
+ <m:mo>arccsch</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:coth">
+ <m:mo>arccoth</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arcsin">
+ <m:mo>sin</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arccos">
+ <m:mo>cos</m:mo>
+ </xsl:when>
+ <xsl:when test="*[2]=m:arctan">
+ <m:mo>tan</m:mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mfenced>
+ <m:mn>-1</m:mn>
+ </m:mfenced>
+ </m:msup>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:sep"/>
+
+<xsl:template match = "m:condition">
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:forall[1]]"/>
+ <xsl:otherwise>
+ <xsl:if test="not(*[2])">
+ <xsl:apply-templates mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[2]">
+ <m:mrow>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mrow>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:declare"/>
+
+<xsl:template match = "m:lambda">
+ <m:mrow>
+ <m:mo> Λ </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*">
+ <xsl:choose>
+ <xsl:when test="self::m:ci or self::m:cn">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:*[1][self::m:apply[m:compose[1]]]]">
+ <m:mrow>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <m:mfenced separators=",">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[*[1][self::m:compose]]">
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "m:*[2][self::m:ci[@type='fn'] | self::m:fn]" mode="semantics"/>
+ <xsl:for-each select = "m:*[position()>2][self::m:ci[@type='fn'] | self::m:fn]">
+ <m:mo> <mchar name="SmallCircle"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:ident">
+ <m:mo>id</m:mo>
+</xsl:template>
+
+
+<!-- ARITHMETIC, ALGEBRA & LOGIC -->
+
+<xsl:template match = "m:apply[m:quotient[1]]">
+ <m:mfenced open="⌊" close="⌋" separators="">
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ <m:mo>/</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[*[1][self::m:exp]]">
+ <m:msup>
+ <m:mo>e</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:msup>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:factorial[1]]">
+ <m:mrow>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ <m:mo>!</m:mo>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:max[1] | m:min[1]]">
+ <m:mrow>
+ <xsl:if test="*[2]=m:bvar">
+ <m:munder>
+ <xsl:if test="*[1]=m:max">
+ <m:mo>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo>min</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:munder>
+ <xsl:if test="*[3]=m:condition">
+ <m:mfenced open="{{" close="}}" separators="">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[position()>3]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="not(*[3]=m:condition)">
+ <m:mfenced open="{{" close="}}" separators=",">
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </xsl:if>
+ <xsl:if test="*[2]=m:condition">
+ <xsl:if test="*[1]=m:max">
+ <m:mo>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo>min</m:mo>
+ </xsl:if>
+ <m:mfenced open="{{" close="}}" separators="">
+ <xsl:if test="*[3]">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:condition) and not(*[2]=m:bvar)">
+ <xsl:if test="*[1]=m:max">
+ <m:mo>max</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:min">
+ <m:mo>min</m:mo>
+ </xsl:if>
+ <m:mfenced open="{{" close="}}" separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:minus[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $MINUS_PREC or $IN_PREC=$MINUS_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="minus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:minus[1]]" mode="minus">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:if test="not(*[3])">
+ <m:mo>-</m:mo>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$NEG_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:if test="*[3]">
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:mo>-</m:mo>
+ <xsl:apply-templates select="*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:plus[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $PLUS_PREC or $IN_PREC=$PLUS_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="plus">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:plus[1]]" mode="plus">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:if test="*[2]">
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:choose>
+ <xsl:when test=". < 0">
+ <m:mo>-</m:mo>
+ <m:mn> <xsl:value-of select="-."/> </m:mn>
+ </xsl:when>
+ <xsl:when test="self::m:apply[m:minus[1]] and not(*[3])">
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>+</m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:for-each>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:power[1]]">
+ <xsl:choose>
+ <xsl:when test="*[2]=m:apply[m:ln[1] | m:log[1] | m:abs[1] | m:gcd[1] | m:sin[1] | m:cos[1] | m:tan[1] | m:sec[1] | m:csc[1] | m:cot[1] | m:sinh[1] | m:cosh[1] | m:tanh[1] | m:sech[1] | m:csch[1] | m:coth[1] | m:arcsin[1] | m:arccos[1] | m:arctan[1]]">
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $DIV_PREC or $IN_PREC=$DIV_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="remdiv">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]" mode="remdiv">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:if test="m:rem">
+ <m:mo>%</m:mo>
+ </xsl:if>
+ <xsl:if test="m:divide">
+ <m:mo>/</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:times[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $MUL_PREC or $IN_PREC=$MUL_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="times">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:times[1]]" mode="times">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:if test="*[3]">
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="InvisibleTimes"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:root[1]]">
+ <m:msqrt>
+ <xsl:if test="*[2]=m:degree">
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:degree)">
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ <m:mn>2</m:mn>
+ </xsl:if>
+ </m:msqrt>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:gcd[1]]">
+ <m:mrow>
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <m:mo>gcd</m:mo>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mo>gcd</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:and[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $AND_PREC">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="and">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:and[1]]" mode="and">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="wedge"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:or[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $OR_PREC">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="or">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:or[1]]" mode="or">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="vee"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:xor[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $XOR_PREC">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAR_YES"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="xor">
+ <xsl:with-param name="PARAM" select="$IN_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:xor[1]]" mode="xor">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="xor"/> </m:mo>
+ <xsl:apply-templates select="." mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:not[1]]">
+ <m:mrow>
+ <m:mo>not</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:forall[1]]">
+ <m:mrow>
+ <m:mo>for all</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "m:bvar">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <xsl:if test="m:condition">
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
+ <m:mo>,</m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and not(self::m:condition)]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:exists[1]]">
+ <m:mrow>
+ <m:mo> <mchar name="Exists"/> </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "m:bvar">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <xsl:if test="m:condition">
+ <m:mo>,</m:mo>
+ <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
+ </xsl:if>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and not(self::m:condition)]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:abs[1]]">
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <m:mfenced open="|" close="|" separators="">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mfenced open="|" close="|" separators="">
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mfenced>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:conjugate[1]]">
+ <m:mover>
+ <m:mrow>
+ <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
+ </m:mrow>
+ <m:mo> <mchar name="UnderBar"/> </m:mo>
+ </m:mover>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:arg[1] | m:real[1] | m:imaginary[1]]">
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="m:arg">
+ <m:mo>arg</m:mo>
+ </xsl:when>
+ <xsl:when test="m:real">
+ <m:mo>Real</m:mo>
+ </xsl:when>
+ <xsl:when test="m:imaginary">
+ <m:mo>Imaginary</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- RELATIONS -->
+
+<xsl:template match = "m:apply[m:neq | m:approx | m:tendsto | m:implies | m:in | m:notin | m:notsubset | m:notprsubset | m:subset | m:prsubset | m:eq | m:gt | m:lt | m:geq | m:leq | m:equivalent]">
+ <m:mrow>
+ <xsl:if test="*[1]=m:neq or *[1]=m:approx or *[1]=m:tendsto or *[1]=m:implies or *[1]=m:in or *[1]=m:notin or *[1]=m:notsubset or *[1]=m:notprsubset">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <xsl:if test="*[1]=m:neq">
+ <m:mo> <mchar name="NotEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:approx">
+ <m:mo> <mchar name="approxeq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:tendsto">
+ <m:mo> <mchar name="RightArrow"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:implies">
+ <m:mo> <mchar name="DoubleRightArrow"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:in">
+ <m:mo> <mchar name="Element"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notin">
+ <m:mo> <mchar name="NotElement"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notsubset">
+ <m:mo> <mchar name="NotSubset"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:notprsubset">
+ <m:mo> <mchar name="NotSubsetEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='below']">
+ <m:mo>-</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='above']">
+ <m:mo>+</m:mo>
+ </xsl:if>
+ </xsl:if>
+ <xsl:if test="*[1]=m:subset or *[1]=m:prsubset or *[1]=m:eq or *[1]=m:gt or *[1]=m:lt or *[1]=m:geq or *[1]=m:leq or *[1]=m:equivalent">
+ <xsl:apply-templates select = "*[2]" mode="semantics"/>
+ <xsl:for-each select = "*[position()>2]">
+ <xsl:if test="../*[self::m:subset][1]">
+ <m:mo> <mchar name="SubsetEqual"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:prsubset][1]">
+ <m:mo> <mchar name="subset"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:eq][1]">
+ <m:mo>=</m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:gt][1]">
+ <m:mo>></m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:lt][1]">
+ <m:mo><</m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:geq][1]">
+ <m:mo> <mchar name="geq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:leq][1]">
+ <m:mo> <mchar name="leq"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="../*[self::m:equivalent][1]">
+ <m:mo> <mchar name="Congruent"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- CALCULUS -->
+
+<xsl:template match = "m:apply[*[1][self::m:ln]]">
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <m:mo>ln</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>ln</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:log[1]]">
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="parent::m:apply[m:power[1]]">
+ <xsl:if test="not(*[2]=m:logbase)">
+ <m:msup>
+ <m:mo>log</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:if test="*[2]=m:logbase">
+ <m:msubsup>
+ <m:mo>log</m:mo>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
+ </m:msubsup>
+ </xsl:if>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:if test="not(*[2]=m:logbase)">
+ <m:mo>log</m:mo>
+ </xsl:if>
+ <xsl:if test="*[2]=m:logbase">
+ <m:msub>
+ <m:mo>log</m:mo>
+ <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
+ </m:msub>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:if test="*[2]=m:logbase">
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:logbase)">
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:diff[1]]">
+ <m:mrow>
+ <xsl:if test="*[2]=m:bvar and m:bvar[*[2]=m:degree]">
+ <m:mfrac>
+ <m:msup>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
+ </m:msup>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <m:msup>
+ <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
+ </m:msup>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:if test="*[2]=m:bvar and not(m:bvar[*[2]=m:degree])">
+ <m:mfrac>
+ <m:mo>d</m:mo>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:partialdiff[1]]">
+ <m:mrow>
+ <xsl:for-each select = "m:bvar">
+ <xsl:if test="*[last()]=m:degree">
+ <m:mfrac>
+ <m:msup>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "m:degree" mode = "semantics"/>
+ </m:msup>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <m:msup>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ <xsl:apply-templates select = "m:degree" mode = "semantics"/>
+ </m:msup>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ <xsl:if test="not(*[last()]=m:degree)">
+ <m:mfrac>
+ <m:mo>d</m:mo>
+ <m:mrow>
+ <m:mo>d</m:mo>
+ <xsl:apply-templates select = "*[1]" mode = "semantics"/>
+ </m:mrow>
+ </m:mfrac>
+ </xsl:if>
+ </xsl:for-each>
+ <xsl:apply-templates select = "*[last()]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:lowlimit | m:uplimit | m:bvar | m:degree | m:logbase">
+ <xsl:apply-templates mode = "semantics"/>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:divergence[1] | m:grad[1] | m:curl[1]]">
+ <m:mrow>
+ <xsl:if test="*[1]=m:divergence">
+ <m:mo>div</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:grad">
+ <m:mo>grad</m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:curl">
+ <m:mo>curl</m:mo>
+ </xsl:if>
+ <xsl:choose>
+ <xsl:when test="*[2]=m:ci">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mfenced separators="">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mfenced>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:laplacian[1]]">
+ <m:mrow>
+ <m:msup>
+ <m:mo> Δ </m:mo>
+ <m:mn>2</m:mn>
+ </m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- SET THEORY -->
+
+<xsl:template match = "m:set | m:list">
+ <m:mfenced open="{{" close="}}" separators="">
+ <xsl:if test="*[1]=m:bvar and *[2]=m:condition">
+ <xsl:apply-templates select="m:bvar" mode = "semantics"/>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="m:condition" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[1]=m:condition and not(child::m:bvar)">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*[not(self::m:condition) and not(self::m:bvar)]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="m:condition" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="not(child::m:bvar) and not(child::m:condition)">
+ <m:mfenced open="" close="" separators=",">
+ <xsl:for-each select = "*">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </xsl:if>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:union[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $UNION_PREC or $IN_PREC=$UNION_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="union">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:union[1]]" mode="union">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="Union"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:intersect[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $INTERSECT_PREC">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="intersect">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:intersect[1]]" mode="intersect">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mo> <mchar name="Intersection"/> </m:mo>
+ <xsl:apply-templates select = "." mode="semantics">
+ <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </xsl:for-each>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:setdiff[1]]">
+ <xsl:param name="IN_PREC" select="$NO_PREC"/>
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:choose>
+ <xsl:when test="$IN_PREC > $SETDIFF_PREC or $IN_PREC=$SETDIFF_PREC and $PARAM=$PAR_SAME">
+ <m:mfenced separators="">
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mfenced>
+ </xsl:when>
+ <xsl:when test="$IN_PREC > $NO_PREC and $IN_PREC < $FUNCTION_PREC and not($SEM_SW=2)">
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mrow>
+ <xsl:apply-templates select="." mode="setdiff">
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ </m:mrow>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:setdiff[1]]" mode="setdiff">
+ <xsl:param name="PARAM" select="$NO_PARAM"/>
+ <xsl:param name="PAREN" select="$PAR_NO"/>
+ <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
+ <xsl:with-param name="PARAM" select="$PARAM"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
+ </xsl:apply-templates>
+ <m:mo>\</m:mo>
+ <xsl:apply-templates select = "*[3]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
+ <xsl:with-param name="PARAM" select="$PAR_SAME"/>
+ <xsl:with-param name="PAREN" select="$PAREN"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:card[1]]">
+ <m:mfenced open="|" close="|" separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+
+<!-- SEQUENCES AND SERIES -->
+
+<xsl:template match = "m:apply[m:sum[1] | m:product[1]]">
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="*[2]=m:bvar and m:lowlimit and m:uplimit">
+ <m:munderover>
+ <xsl:if test="*[1]=m:sum">
+ <m:mo> <mchar name="Sum"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:product">
+ <m:mo> <mchar name="Product"/> </m:mo>
+ </xsl:if>
+ <m:mrow>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo>=</m:mo>
+ <xsl:apply-templates select = "m:lowlimit" mode = "semantics"/>
+ </m:mrow>
+ <xsl:apply-templates select = "m:uplimit" mode = "semantics"/>
+ </m:munderover>
+ <xsl:apply-templates select = "*[5]" mode = "semantics"/>
+ </xsl:when>
+ <xsl:when test="*[2]=m:bvar and *[3]=m:condition">
+ <m:munder>
+ <xsl:if test="*[1]=m:sum">
+ <m:mo> <mchar name="Sum"/> </m:mo>
+ </xsl:if>
+ <xsl:if test="*[1]=m:product">
+ <m:mo> <mchar name="Product"/> </m:mo>
+ </xsl:if>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </m:munder>
+ <xsl:apply-templates select = "*[4]" mode = "semantics"/>
+ </xsl:when>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:limit[1]]">
+ <m:mrow>
+ <m:munder>
+ <m:mo>lim</m:mo>
+ <m:mrow>
+ <xsl:if test="*[2]=m:bvar and *[3]=m:lowlimit">
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo> <mchar name="RightArrow"/> </m:mo>
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </xsl:if>
+ <xsl:if test="*[2]=m:bvar and *[3]=m:condition">
+ <xsl:apply-templates select = "*[3]" mode = "semantics"/>
+ </xsl:if>
+ </m:mrow>
+ </m:munder>
+ <xsl:apply-templates select = "*[4]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+
+<!-- TRIGONOMETRY -->
+
+<xsl:template match = "m:apply[*[1][self::m:sin | self::m:cos | self::m:tan | self::m:sec | self::m:csc | self::m:cot | self::m:sinh | self::m:cosh | self::m:tanh | self::m:sech | self::m:csch | self::m:coth | self::m:arcsin | self::m:arccos | self::m:arctan]]">
+ <m:mrow>
+ <xsl:if test="not(parent::m:apply[m:power[1]])">
+ <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
+ </xsl:if>
+ <xsl:if test="parent::m:apply[m:power[1]]">
+ <m:msup>
+ <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
+ <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:apply-templates select = "*[2]" mode = "semantics">
+ <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
+ <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
+ </xsl:apply-templates>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:*" mode = "trigonometry">
+ <xsl:choose>
+ <xsl:when test="self::m:sin">
+ <m:mo>sin</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cos">
+ <m:mo>cos</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:tan">
+ <m:mo>tan</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sec">
+ <m:mo>sec</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:csc">
+ <m:mo>csc</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cot">
+ <m:mo>cot</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sinh">
+ <m:mo>sinh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:cosh">
+ <m:mo>cosh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:tanh">
+ <m:mo>tanh</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:sech">
+ <m:mo>sech</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:csch">
+ <m:mo>csch</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:coth">
+ <m:mo>coth</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arcsin">
+ <m:mo>arcsin</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arccos">
+ <m:mo>arccos</m:mo>
+ </xsl:when>
+ <xsl:when test="self::m:arctan">
+ <m:mo>arctan</m:mo>
+ </xsl:when>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- STATISTICS -->
+
+<xsl:template match = "m:apply[m:mean[1]]">
+ <m:mfenced open="<" close=">" separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:sdev[1]]">
+ <m:mrow>
+ <m:mo> σ </m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:variance[1]]">
+ <m:mrow>
+ <m:mo> σ </m:mo>
+ <m:msup>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ <m:mn>2</m:mn>
+ </m:msup>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:median[1]]">
+ <m:mrow>
+ <m:mo>median</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:mode[1]]">
+ <m:mrow>
+ <m:mo>mode</m:mo>
+ <m:mfenced separators=",">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </m:mfenced>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:moment[1]]">
+ <m:mfenced open="<" close=">" separators="">
+ <xsl:if test="*[2]=m:degree">
+ <m:msup>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ </m:msup>
+ </xsl:if>
+ <xsl:if test="not(*[2]=m:degree)">
+ <xsl:for-each select = "*[position()>1]">
+ <xsl:apply-templates select = "." mode="semantics"/>
+ </xsl:for-each>
+ </xsl:if>
+ </m:mfenced>
+</xsl:template>
+
+
+<!-- LINEAR ALGEBRA -->
+
+<xsl:template match="m:vector">
+ <m:mfenced separators="">
+ <m:mtable>
+ <xsl:for-each select="*">
+ <m:mtd>
+ <xsl:apply-templates select="." mode = "semantics"/>
+ </m:mtd>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:matrix">
+ <m:mfenced separators="">
+ <m:mtable>
+ <xsl:apply-templates mode = "semantics"/>
+ </m:mtable>
+ </m:mfenced>
+</xsl:template>
+
+<xsl:template match = "m:matrixrow">
+ <m:mtr>
+ <xsl:for-each select="*">
+ <m:mtd>
+ <xsl:apply-templates select="." mode = "semantics"/>
+ </m:mtd>
+ </xsl:for-each>
+ </m:mtr>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:determinant[1]]">
+ <m:mrow>
+ <m:mo>det</m:mo>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:transpose[1]]">
+ <m:msup>
+ <xsl:apply-templates select = "*[2]" mode = "semantics"/>
+ <m:mo>T</m:mo>
+ </m:msup>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:selector[1]]">
+ <xsl:if test="*[2]=m:matrix and *[3]=m:cn">
+ <xsl:variable name="m" select = "*[3]"/>
+ <xsl:choose>
+ <xsl:when test="*[4]=m:cn">
+ <xsl:variable name="n" select = "*[4]"/>
+ <xsl:copy-of select = "m:matrix/*[position()=$m]/*[position()=$n]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:copy-of select = "m:matrix/*[position()=$m]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:if>
+ <xsl:if test="(*[2]=m:vector or *[2]=m:list) and *[3]=m:cn">
+ <xsl:variable name="m" select = "*[3]"/>
+ <xsl:copy-of select = "*[2]/*[position()=$m]"/>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:vectorproduct[1] | m:scalarproduct[1] | m:outerproduct[1]]">
+ <m:mrow>
+ <xsl:apply-templates select="*[2]" mode = "semantics"/>
+ <xsl:choose>
+ <xsl:when test="m:vectorproduct[1]">
+ <m:mo> <mchar name="Cross"/> </m:mo>
+ </xsl:when>
+ <xsl:when test="m:scalarproduct[1] | m:outerproduct[1]">
+ <m:mo>.</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="*[3]" mode = "semantics"/>
+ </m:mrow>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- Extension to the XSLT version 0.07 of MathML content to presentation: -->
+<!-- First draft: February 19 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!-- Revised: March 21 2000, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="mml2mmlv1_0.xsl"/>
+
+<!--***********************************************************************-->
+<!-- Parameter affecting line-breaking -->
+<!--***********************************************************************-->
+
+<xsl:variable name="framewidth" select="30"/>
+
+<!--***********************************************************************-->
+<!-- Gli oggetti sono stampati come mtext all'interno di una marca toplevel-->
+<!-- math ma al di fuori di semantics. Ora vi sono tanti semantics quanti -->
+<!-- sono i termini: la presentation per un termine e' generata come primo -->
+<!-- figlio di un semantics e l'originario content viene inserito nel -->
+<!-- nel secondo figlio di semantics, annotation-xml -->
+<!--***********************************************************************-->
+
+<!--**********************-->
+<!-- OBJECTS -->
+<!--**********************-->
+
+<xsl:template match="/">
+ <xsl:processing-instruction name="cocoon-format">type="text/xhtml"</xsl:processing-instruction>
+ <xsl:apply-templates select="*"/>
+</xsl:template>
+
+<!-- DEFINITION -->
+
+<xsl:template match="Definition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AS</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- AXIOM -->
+
+<xsl:template match="Axiom">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- UNFINISHED PROOF -->
+
+<xsl:template match="CurrentProof">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>THESIS:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CONJECTURES:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="Conjecture">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@no"/>:</m:mtext>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CORRESPONDING PROOF:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- MUTUAL INDUCTIVE DEFINITION -->
+
+<xsl:template match="InductiveDefinition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <xsl:for-each select="InductiveType">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:choose>
+ <xsl:when test="string(./@inductive) = "true"">
+ <m:mtext>INDUCTIVE DEFINITION</m:mtext>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>COINDUCTIVE DEFINITION</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>AND</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != """><xsl:value-of select="../Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext>[</m:mtext>
+ <xsl:choose>
+ <xsl:when test="string(../Param) != """>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="../Param">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="./@name"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="*"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>]</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>]</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>OF ARITY</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./arity/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>BUILT FROM</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="./Constructor">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>|</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mtext><xsl:value-of select="./@name"/> OF</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </xsl:for-each>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- VARIABLE -->
+
+<xsl:template match="Variable">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>VARIABLE <xsl:value-of select="@name"/> OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!--**********************-->
+<!-- TERMS -->
+<!--**********************-->
+
+<xsl:template match="m:bvar">
+ <xsl:choose>
+ <xsl:when test="m:type">
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:ci" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <xsl:apply-templates select="m:ci"/>
+ <m:mo>:</m:mo>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <xsl:apply-templates select="m:type"/>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="m:ci"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- CSYMBOL -->
+
+<xsl:template match="m:apply[m:csymbol]">
+ <xsl:variable name="name"><xsl:value-of select="m:csymbol"/></xsl:variable>
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:csymbol" mode="charcount"/></xsl:variable>
+ <m:mrow>
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref"><xsl:value-of select="@helm:xref"/></xsl:attribute>
+ </xsl:if>
+ <xsl:choose>
+ <xsl:when test="$name='prod'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='arrow'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='app'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>(</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:for-each select="*[position()>2]">
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </xsl:for-each>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cast'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='Prop'">
+ <m:mo>Prop</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Set'">
+ <m:mo>Set</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Type'">
+ <m:mo>Type</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='mutcase'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo><</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>OF</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:variable name="charlength"><xsl:apply-templates select="." mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>|</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>|_</m:mtext></m:mphantom>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>END</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo><</m:mo><xsl:apply-templates select="*[position()=2]"/><m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>OF</m:mo>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:choose>
+ <xsl:when test="position() != 1">
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="."/>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:for-each>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>END</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='fix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>FIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()=1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>FIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cofix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>COFIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>COFIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <!-- ***************************************** -->
+ <!-- *********** PROOF ELEMENTS ************** -->
+ <!-- ***************************************** -->
+ <xsl:when test="$name='proof'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext color="#b03060">we proved </m:mtext>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:when test="$name='letin'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <!-- <xsl:for-each select="APPLY[m:csymbol and (string(m:csymbol)='let')]"> -->
+ <xsl:for-each select="*[(last() > position()) and (position()>1)]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="*[position()=last()]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:when test="$name='let'">
+ <m:mtext>(</m:mtext>
+ <xsl:apply-templates select="m:ci"/>
+ <m:mtext>) </m:mtext>
+ <xsl:apply-templates select="*[3]"/>
+ </xsl:when>
+ <xsl:when test="$name='thread'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="name(*[last()])='m:apply'">
+ <xsl:apply-templates select="*[last()]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>Consider </m:mtext>
+ <xsl:apply-templates select="*[last()]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:apply-templates mode="thread" select="*[(last()-2)]"/>
+ </m:mtable>
+ </xsl:when>
+ <xsl:when test="$name='rewrite_and_apply'">
+ <m:mtable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>Rewrite</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[2]/*[2]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>with</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[2]/*[3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>by</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[2]/*[4]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>in</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>and apply</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()>3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:when test="$name='and_ind'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="name(*[2])='m:apply'">
+ <xsl:apply-templates select="*[2]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>Consider </m:mtext>
+ <xsl:apply-templates select="*[2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mtext>In particular, we have</m:mtext>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>(</m:mtext>
+ <xsl:apply-templates select="*[3]"/>
+ <m:mtext>)</m:mtext>
+ <xsl:apply-templates select="*[4]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>(</m:mtext>
+ <xsl:apply-templates select="*[5]"/>
+ <m:mtext>)</m:mtext>
+ <xsl:apply-templates select="*[6]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="*[7]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:when test="$name='or_ind'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="name(*[2])='m:apply'">
+ <xsl:apply-templates select="*[2]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>Consider</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mtext>We prove</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>by cases:</m:mtext>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>*</m:mtext>
+ <xsl:apply-templates select="*[4]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>*</m:mtext>
+ <xsl:apply-templates select="*[5]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:ci>ERROR</m:ci>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<xsl:template match="*" mode="thread">
+ <xsl:variable name="name"><xsl:value-of select="following-sibling::*[position()=1]/m:csymbol"/></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$name='rw_step'">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>Rewrite</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="following-sibling::*[position()=1]/*[2]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>with</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="following-sibling::*[position()=1]/*[3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext>by</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="following-sibling::*[position()=1]/*[4]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="following-sibling::*[position()=1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates mode="thread" select="preceding-sibling::*[position()=2]"/>
+</xsl:template>
+
+
+<!-- LAMBDA -->
+
+<xsl:template match="m:lambda">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"/></xsl:variable>
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Red">λ</m:mo>
+ <xsl:apply-templates select="m:bvar"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Red">λ</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<!-- *********************************** -->
+<!-- BASE SET OF MATHML CONTENT ELEMENTS -->
+<!-- *********************************** -->
+
+<!-- Logic -->
+
+<xsl:template match = "m:apply[m:eq[1]]">
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mo helm:xref="m:in/@helm:xref">
+ =
+ </m:mo>
+ <xsl:apply-templates select="."/>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<xsl:template match = "m:apply[m:and[1]|m:or[1]
+ |m:geq[1]|m:leq[1]|m:gt[1]|m:lt[1]
+ |m:in[1]|m:intesect[1]|m:union[1]|m:subset[1]
+ |m:prsubset|m:setdiff[1]]">
+ <xsl:variable name="symbol">
+ <xsl:choose>
+ <xsl:when test="m:and[1]">
+ <xsl:value-of select="'wedge'"/>
+ </xsl:when>
+ <xsl:when test="m:or[1]">
+ <xsl:value-of select="'vee'"/>
+ </xsl:when>
+ <xsl:when test="m:geq[1]">
+ <xsl:value-of select="'geq'"/>
+ </xsl:when>
+ <xsl:when test="m:leq[1]">
+ <xsl:value-of select="'leq'"/>
+ </xsl:when>
+ <xsl:when test="m:gt[1]">
+ <xsl:value-of select="'gt'"/>
+ </xsl:when>
+ <xsl:when test="m:lt[1]">
+ <xsl:value-of select="'lt'"/>
+ </xsl:when>
+ <xsl:when test="m:eq[1]">
+ <xsl:value-of select="'Equal'"/>
+ </xsl:when>
+ <xsl:when test="m:in[1]">
+ <xsl:value-of select="'Element'"/>
+ </xsl:when>
+ <xsl:when test="m:subset[1]">
+ <xsl:value-of select="'SubsetEqual'"/>
+ </xsl:when>
+ <xsl:when test="m:prsubset[1]">
+ <xsl:value-of select="'subset'"/>
+ </xsl:when>
+ <xsl:when test="m:intersect[1]">
+ <xsl:value-of select="'Intersection'"/>
+ </xsl:when>
+ <xsl:when test="m:union[1]">
+ <xsl:value-of select="'Union'"/>
+ </xsl:when>
+ <xsl:when test="m:setdiff[1]">
+ <xsl:value-of select="'Backslash'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="@helm:xref"/>
+ </xsl:attribute>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mo helm:xref="{*[1]/@helm:xref}">
+ <m:mchar name="{$symbol}"/>
+ </m:mo>
+ <xsl:apply-templates select="."/>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:set">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 0">
+ <m:mo>
+ <m:mchar name="EmptySet"/>
+ </m:mo>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:choose>
+ <xsl:when test="name(*[1]) = 'm:bvar'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">{</m:mo>
+ <xsl:apply-templates select="*[position()=1]"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
+ <m:mo stretchy="false">|</m:mo>
+ <xsl:apply-templates select="m:condition/*[1]"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">{</m:mo>
+ <xsl:apply-templates select="*[position()=1]"/>
+ <xsl:if test="position() != last()">
+ <mo>,</mo>
+ </xsl:if>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ <xsl:if test="position() != last()">
+ <mo>,</mo>
+ </xsl:if>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:apply[m:card[1]]">
+ <m:mo stretchy="false">|</m:mo>
+ <xsl:apply-templates select="*[2]"/>
+ <m:mo stretchy="false">|</m:mo>
+</xsl:template>
+
+<!-- *********************************** -->
+<!-- PROOF ELEMENTS -->
+<!-- *********************************** -->
+
+
+
+<!--**********************-->
+<!-- COUNTING -->
+<!--**********************-->
+
+<xsl:template match="m:cn|m:and|m:or|m:not|m:exists|m:eq|m:lt|m:leq|m:gt|m:geq
+ |m:in|m:notin|m:intersect|m:union|m:subset|m:prsubset|m:card|m:setdiff
+ |m:plus|m:minus|m:times" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth > ($incurrent_length + 3 + string-length())">
+ <xsl:variable name="siblength">
+ <xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount">
+ <xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/>
+ </xsl:apply-templates>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="m:ci|m:csymbol" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth > ($incurrent_length + string-length()) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 0">
+ <xsl:value-of select="$incurrent_length"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/><xsl:with-param name="nosibling" select="0"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$framewidth > number($childlength) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- Extension to the XSLT version 0.07 of MathML content to presentation: -->
+<!-- First draft: February 19 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!-- Revised: March 21 2000, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="mml2mmlv1_0.xsl"/>
+
+<!--***********************************************************************-->
+<!-- Parameter affecting line-breaking -->
+<!--***********************************************************************-->
+
+<xsl:variable name="framewidth" select="15"/>
+
+<!--***********************************************************************-->
+<!-- Gli oggetti sono stampati come mtext all'interno di una marca toplevel-->
+<!-- math ma al di fuori di semantics. Ora vi sono tanti semantics quanti -->
+<!-- sono i termini: la presentation per un termine e' generata come primo -->
+<!-- figlio di un semantics e l'originario content viene inserito nel -->
+<!-- nel secondo figlio di semantics, annotation-xml -->
+<!--***********************************************************************-->
+
+<!--**********************-->
+<!-- OBJECTS -->
+<!--**********************-->
+
+<xsl:template match="/">
+ <xsl:processing-instruction name="cocoon-format">type="text/xhtml"</xsl:processing-instruction>
+ <xsl:apply-templates select="*"/>
+</xsl:template>
+
+<!-- DEFINITION -->
+
+<xsl:template match="Definition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AS</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- AXIOM -->
+
+<xsl:template match="Axiom">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- UNFINISHED PROOF -->
+
+<xsl:template match="CurrentProof">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>THESIS:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CONJECTURES:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="Conjecture">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@no"/>:</m:mtext>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CORRESPONDING PROOF:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- MUTUAL INDUCTIVE DEFINITION -->
+
+<xsl:template match="InductiveDefinition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <xsl:for-each select="InductiveType">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:choose>
+ <xsl:when test="string(./@inductive) = "true"">
+ <m:mtext>INDUCTIVE DEFINITION</m:mtext>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>COINDUCTIVE DEFINITION</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>AND</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != """><xsl:value-of select="../Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext>[</m:mtext>
+ <xsl:choose>
+ <xsl:when test="string(../Param) != """>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="../Param">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="./@name"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="*"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>]</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>]</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>OF ARITY</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./arity/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>BUILT FROM</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="./Constructor">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>|</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mtext><xsl:value-of select="./@name"/> OF</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </xsl:for-each>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- VARIABLE -->
+
+<xsl:template match="Variable">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>VARIABLE <xsl:value-of select="@name"/> OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!--**********************-->
+<!-- TERMS -->
+<!--**********************-->
+
+<xsl:template match="m:bvar">
+ <xsl:choose>
+ <xsl:when test="m:type">
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="m:ci" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <xsl:apply-templates select="m:ci"/>
+ <m:mo>:</m:mo>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <xsl:apply-templates select="m:type"/>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="m:ci"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- CSYMBOL -->
+
+<xsl:template match="m:apply[m:csymbol]">
+ <xsl:variable name="name"><xsl:value-of select="m:csymbol"/></xsl:variable>
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:csymbol" mode="charcount"/></xsl:variable>
+ <m:mrow>
+ <xsl:if test="@helm:xref">
+ <xsl:attribute name="helm:xref"><xsl:value-of select="@helm:xref"/></xsl:attribute>
+ </xsl:if>
+ <xsl:choose>
+ <xsl:when test="$name='prod'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='arrow'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='app'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>(</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:for-each select="*[position()>2]">
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </xsl:for-each>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cast'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='Prop'">
+ <m:mo>Prop</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Set'">
+ <m:mo>Set</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Type'">
+ <m:mo>Type</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='mutcase'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo><</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>OF</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:variable name="charlength"><xsl:apply-templates select="." mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>|</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>|_</m:mtext></m:mphantom>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>END</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo><</m:mo><xsl:apply-templates select="*[position()=2]"/><m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>OF</m:mo>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:choose>
+ <xsl:when test="position() != 1">
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="."/>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:for-each>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>END</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='fix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>FIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()=1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>FIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cofix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>COFIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>COFIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<!-- LAMBDA -->
+
+<xsl:template match="m:lambda">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"/></xsl:variable>
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo color="Blue">λ</m:mo>
+ <xsl:apply-templates select="m:bvar"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Red">λ</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<!-- *********************************** -->
+<!-- BASE SET OF MATHML CONTENT ELEMENTS -->
+<!-- *********************************** -->
+
+<!-- Logic -->
+
+<xsl:template match = "m:apply[m:and[1]|m:or[1]
+ |m:geq[1]|m:leq[1]|m:gt[1]|m:lt[1]|m:eq[1]
+ |m:intesect[1]|m:union[1]|m:subset[1]|m:prsubset]">
+ <xsl:variable name="symbol">
+ <xsl:choose>
+ <xsl:when test="m:and[1]">
+ <xsl:value-of select="'wedge'"/>
+ </xsl:when>
+ <xsl:when test="m:or[1]">
+ <xsl:value-of select="'vee'"/>
+ </xsl:when>
+ <xsl:when test="m:geq[1]">
+ <xsl:value-of select="'geq'"/>
+ </xsl:when>
+ <xsl:when test="m:leq[1]">
+ <xsl:value-of select="'leq'"/>
+ </xsl:when>
+ <xsl:when test="m:gt[1]">
+ <xsl:value-of select="'gt'"/>
+ </xsl:when>
+ <xsl:when test="m:lt[1]">
+ <xsl:value-of select="'lt'"/>
+ </xsl:when>
+ <xsl:when test="m:eq[1]">
+ <xsl:value-of select="'eq'"/>
+ </xsl:when>
+ <xsl:when test="m:subset[1]">
+ <xsl:value-of select="'SubsetEqual'"/>
+ </xsl:when>
+ <xsl:when test="m:prsubset[1]">
+ <xsl:value-of select="'subset'"/>
+ </xsl:when>
+ <xsl:when test="m:intersect[1]">
+ <xsl:value-of select="'Intersection'"/>
+ </xsl:when>
+ <xsl:when test="m:union[1]">
+ <xsl:value-of select="'Union'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="*[1]" mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select = "*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mo>
+ <m:mchar name="{$symbol}"/>
+ </m:mo>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match = "m:set">
+ <xsl:variable name="charlength">
+ <xsl:apply-templates select="." mode="charcount"/>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:choose>
+ <xsl:when test="name(*[1]) = 'm:bvar'">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">{</m:mo>
+ <xsl:apply-templates select="m:bvar"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mo>|</m:mo>
+ <xsl:apply-templates select="m:condition"/>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">{</m:mo>
+ <xsl:apply-templates select="*[1]"/>
+ <xsl:if test="count(child::*) != 1">
+ <m:mo>,</m:mo>
+ </xsl:if>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select = "*[position()>1]">
+ <m:mtr>
+ <m:mtd>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ <xsl:if test="position() != last()">
+ <m:mo>,</m:mo>
+ </xsl:if>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!--**********************-->
+<!-- COUNTING -->
+<!--**********************-->
+
+<xsl:template match="m:and|m:or|m:not|m:exists|m:eq|m:lt|m:leq|m:gt|m:geq
+ |m:in|m:notin|m:intersect|m:union|m:subset|m:prsubset|m:card|m:setdiff" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth > ($incurrent_length + 3 + string-length())">
+ <xsl:variable name="siblength">
+ <xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount">
+ <xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/>
+ </xsl:apply-templates>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="m:ci|m:csymbol" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth > ($incurrent_length + string-length()) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/><xsl:with-param name="nosibling" select="0"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$framewidth > number($childlength) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- Extension to the XSLT version 0.07 of MathML content to presentation: -->
+<!-- First draft: February 19 2000, Andrea Asperti, Irene Schena -->
+<!-- Revised: March 3 2000, Irene Schena -->
+<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!-- Revised: March 21 2000, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="mml2mmlv1_0.xsl"/>
+
+<!--***********************************************************************-->
+<!-- Parameter affecting line-breaking -->
+<!--***********************************************************************-->
+
+<xsl:variable name="framewidth" select="30"/>
+
+<!--***********************************************************************-->
+<!-- Gli oggetti sono stampati come mtext all'interno di una marca toplevel-->
+<!-- math ma al di fuori di semantics. Ora vi sono tanti semantics quanti -->
+<!-- sono i termini: la presentation per un termine e' generata come primo -->
+<!-- figlio di un semantics e l'originario content viene inserito nel -->
+<!-- nel secondo figlio di semantics, annotation-xml -->
+<!--***********************************************************************-->
+
+<!--**********************-->
+<!-- OBJECTS -->
+<!--**********************-->
+
+<!-- DEFINITION -->
+
+<xsl:template match="Definition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AS</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- AXIOM -->
+
+<xsl:template match="Axiom">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- UNFINISHED PROOF -->
+
+<xsl:template match="CurrentProof">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != """><xsl:value-of select="Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>THESIS:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CONJECTURES:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="Conjecture">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@no"/>:</m:mtext>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>CORRESPONDING PROOF:</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="body/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- MUTUAL INDUCTIVE DEFINITION -->
+
+<xsl:template match="InductiveDefinition">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <xsl:for-each select="InductiveType">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <xsl:choose>
+ <xsl:when test="string(./@inductive) = "true"">
+ <m:mtext>INDUCTIVE DEFINITION</m:mtext>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>COINDUCTIVE DEFINITION</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>AND</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mtext><xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != """><xsl:value-of select="../Params"/></xsl:if>)</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtext>[</m:mtext>
+ <xsl:choose>
+ <xsl:when test="string(../Param) != """>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="../Param">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="./@name"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="*"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>]</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>]</m:mtext>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>OF ARITY</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./arity/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>BUILT FROM</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="./Constructor">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mtext>|</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mtext><xsl:value-of select="./@name"/> OF</m:mtext>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="./*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </xsl:for-each>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!-- VARIABLE -->
+
+<xsl:template match="Variable">
+ <m:math>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mtext>VARIABLE <xsl:value-of select="@name"/> OF TYPE</m:mtext>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <xsl:apply-templates select="type/*[1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </m:math>
+</xsl:template>
+
+<!--**********************-->
+<!-- TERMS -->
+<!--**********************-->
+
+<!-- CSYMBOL -->
+
+<xsl:template match="m:apply[m:csymbol]">
+ <xsl:variable name="name"><xsl:value-of select="m:csymbol"/></xsl:variable>
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:csymbol" mode="charcount"/></xsl:variable>
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="$name='prod'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:bvar/m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>.</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Blue">Π</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='arrow'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="Blue">→</m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='app'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position()>2]">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>(</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:for-each select="*[position()>2]">
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ </xsl:for-each>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cast'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">)</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">(</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <m:mo color="#b03060">:></m:mo>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mo stretchy="false">)</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='Prop'">
+ <m:mo>Prop</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Set'">
+ <m:mo>Set</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='Type'">
+ <m:mo>Type</m:mo>
+ </xsl:when>
+ <xsl:when test="$name='mutcase'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo><</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>OF</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:variable name="charlength"><xsl:apply-templates select="." mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <xsl:choose>
+ <xsl:when test="position() = 1">
+ <m:mphantom><m:mtext>|</m:mtext></m:mphantom>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="."/>
+ <xsl:if test="$framewidth > $charlength">
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>|_</m:mtext></m:mphantom>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ </xsl:for-each>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>END</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo><</m:mo><xsl:apply-templates select="*[position()=2]"/><m:mo>></m:mo>
+ <m:mo>CASES</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <xsl:apply-templates select="*[position()=3]"/>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>OF</m:mo>
+ <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">
+ <xsl:choose>
+ <xsl:when test="position() != 1">
+ <m:mo stretchy="false">|</m:mo>
+ </xsl:when>
+ </xsl:choose>
+ <xsl:apply-templates select="."/>
+ <m:mo color="Green">⇒</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()= 1]"/>
+ </xsl:for-each>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mo>END</m:mo>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='fix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>FIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position()=1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>FIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:when test="$name='cofix'">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>COFIX</m:mo>
+ <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo stretchy="false">}</m:mo>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo>COFIX</m:mo>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo stretchy="false">{</m:mo>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <xsl:for-each select="m:bvar">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mi><xsl:value-of select="m:ci"/></m:mi>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:type"/>
+ <m:mo>:=</m:mo>
+ <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
+ <xsl:if test="position()=last()">
+ <m:mo stretchy="false">}</m:mo>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:for-each>
+ </m:mtable>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<!-- LAMBDA -->
+
+<xsl:template match="m:lambda">
+ <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"/></xsl:variable>
+ <m:mrow helm:xref="{@helm:xref}">
+ <xsl:choose>
+ <xsl:when test="$charlength >= $framewidth">
+ <xsl:variable name="charlength"><xsl:apply-templates select="m:bvar/m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
+ <m:mtable align="baseline 1" equalrows="false" columnalign="left">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo color="Red">λ</m:mo>
+<!--<xsl:text disable-output-escaping="yes">&lambda;</xsl:text>-->
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:if test="$framewidth > $charlength">
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ </xsl:if>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ <xsl:if test="$charlength >= $framewidth">
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mphantom><m:mtext>.</m:mtext></m:mphantom>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </xsl:if>
+ <m:mtr>
+ <m:mtd>
+ <m:mrow>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </m:mrow>
+ </m:mtd>
+ </m:mtr>
+ </m:mtable>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:mo color="Red">λ</m:mo>
+ <xsl:apply-templates select="m:bvar/m:ci"/>
+ <m:mo>:</m:mo>
+ <xsl:apply-templates select="m:bvar/m:type"/>
+ <m:mo>.</m:mo>
+ <xsl:apply-templates select="*[position()=2]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:mrow>
+</xsl:template>
+
+<!--**********************-->
+<!-- COUNTING -->
+<!--**********************-->
+
+<xsl:template match="m:ci|m:csymbol" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$framewidth > ($incurrent_length + string-length()) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$incurrent_length + string-length()"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="charcount">
+<xsl:param name="incurrent_length" select="0"/>
+<xsl:param name="nosibling" select="0"/>
+ <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/><xsl:with-param name="nosibling" select="0"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$framewidth > number($childlength) and ($nosibling = 0)">
+ <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
+ <xsl:choose>
+ <xsl:when test="string($siblength) = """>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($siblength)"/>
+ </xsl:otherwise>
+ </xsl:choose>>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="number($childlength)"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to objects and MathML content: -->
+<!-- First draft: March 21 2000, Irene Schena -->
+<!--******************************************************************-->
+
+<!--******************************************************************-->
+<!-- MANCA: gestione annotation e linking -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="content.xsl"/>
+
+<!-- ROOT -->
+
+<xsl:template match="cicxml">
+ <xsl:variable name="url"><xsl:value-of select="@baseurl"/></xsl:variable>
+ <xsl:variable name="stylesheet"><xsl:value-of select="@stylesheet"/></xsl:variable>
+ <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
+ <xsl:processing-instruction name="xml-stylesheet">href="<xsl:value-of select='concat($url,$stylesheet)'/>" type="text/xsl"</xsl:processing-instruction>
+ <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
+ <xsl:apply-templates select="*[1]"/>
+</xsl:template>
+
+<!-- CIC OBJECTS -->
+
+<xsl:template match="Definition" mode="noannot">
+ <Definition name="{@name}" helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+<!-- <xsl:choose>
+ <xsl:when test="$showproof=0">
+ <body>
+ <m:mi>Here</m:mi>
+ </body>
+ </xsl:when>
+ <xsl:otherwise>
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ </xsl:otherwise>
+ </xsl:choose> -->
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Definition>
+</xsl:template>
+
+<xsl:template match="Axiom" mode="noannot">
+ <Axiom name="{@name}" helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Axiom>
+</xsl:template>
+
+<xsl:template match="CurrentProof" mode="noannot">
+ <CurrentProof name="{@name}" helm:xref="{@id}">
+ <xsl:for-each select="Conjecture">
+ <Conjecture no="./{@no}">
+ <xsl:apply-templates select="."/>
+ </Conjecture>
+ </xsl:for-each>
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </CurrentProof>
+</xsl:template>
+
+<xsl:template match="InductiveDefinition" mode="noannot">
+ <InductiveDefinition helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <xsl:if test="string(@noParams) != 0">
+ <xsl:apply-templates select="InductiveType/arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="@noParams"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:for-each select="InductiveType">
+ <InductiveType name="{./@name}" inductive="{./@inductive}">
+ <arity>
+ <xsl:apply-templates select="./arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </arity>
+ <xsl:for-each select="./Constructor">
+ <Constructor name="{./@name}">
+ <xsl:apply-templates select="./*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </Constructor>
+ </xsl:for-each>
+ </InductiveType>
+ </xsl:for-each>
+ </InductiveDefinition>
+</xsl:template>
+
+<xsl:template match="Variable" mode="noannot">
+ <Variable name="{@name}" helm:xref="{@id}">
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Variable>
+</xsl:template>
+
+<!--*******************************************-->
+<!-- ABSTRACTING PARAMETERS AND COUNTING -->
+<!--*******************************************-->
+<!-- Si dimentica i CAST dei termini che astrae. Nel caso dell'astrazione -->
+<!-- dei lambda dei pattern del CASE, qualora i lambda non si trovino -->
+<!-- nella forma weak-head, astrae solo i lambda che trova e restituisce -->
+<!-- un corpo depurato da tutti i primi cast che precedono il termine -->
+<!-- restituito. -->
+
+<xsl:template match="*" mode="abstparams">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="target" select="0"/>
+<xsl:param name="binder">PROD</xsl:param>
+ <xsl:choose>
+ <xsl:when test="($noparams != 0) and ((name(.)=string($binder)) or (name(.)="CAST"))">
+ <xsl:choose>
+ <xsl:when test="name(.) = string($binder)">
+ <xsl:if test="$target = 0">
+ <xsl:choose>
+ <xsl:when test="string($binder) = "LAMBDA"">
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <Param name="{target/@binder}">
+ <xsl:apply-templates select="source" mode="noannot"/>
+ </Param>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:if>
+ <xsl:apply-templates select="target/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams - 1"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="term/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="($target = 1) and ($noparams != 0)">
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="." mode="noannot"/>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="$noparams != 0">
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:if test="$target = 1">
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="printparam">
+<xsl:param name="noleft" select="0"/>
+<xsl:param name="number" select="1"/>
+ <xsl:if test="$noleft != 0">
+ <m:ci>$<xsl:value-of select="$number"/></m:ci>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noleft - 1"/><xsl:with-param name="number" select="$number + 1"/></xsl:call-template>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match="*" mode="counting">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="count" select="0"/>
+ <xsl:choose>
+ <xsl:when test="name(.) = "PROD"">
+ <xsl:apply-templates select="target/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count + 1"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:when test="name(.) = "CAST"">
+ <xsl:apply-templates select="term/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$count - $noparams"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to objects and MathML content: -->
+<!-- First draft: March 21 2000, Irene Schena -->
+<!--******************************************************************-->
+
+<!--******************************************************************-->
+<!-- MANCA: gestione annotation e linking -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<xsl:import href="content.xsl"/>
+
+<!-- ROOT -->
+
+<xsl:template match="cicxml">
+ <xsl:variable name="url"><xsl:value-of select="@baseurl"/></xsl:variable>
+ <xsl:variable name="stylesheet"><xsl:value-of select="@stylesheet"/></xsl:variable>
+ <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
+ <xsl:processing-instruction name="xml-stylesheet">href="<xsl:value-of select='concat($url,$stylesheet)'/>" type="text/xsl"</xsl:processing-instruction>
+ <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
+ <xsl:apply-templates/>
+</xsl:template>
+
+<!-- CIC OBJECTS -->
+
+<xsl:template match="Definition" mode="noannot">
+ <Definition name="{@name}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <body>
+ <xsl:apply-templates select="body/*[1]">
+ <xsl:with-param name="backpointer" select=""*[1]""/>
+ </xsl:apply-templates>
+ </body>
+ <type>
+ <xsl:apply-templates select="type/*[1]">
+ <xsl:with-param name="backpointer" select=""*[2]""/>
+ </xsl:apply-templates>
+ </type>
+ </Definition>
+</xsl:template>
+
+<xsl:template match="Axiom" mode="noannot">
+ <Axiom name="{@name}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Axiom>
+</xsl:template>
+
+<xsl:template match="CurrentProof" mode="noannot">
+ <CurrentProof name="{@name}">
+ <xsl:for-each select="Conjecture">
+ <Conjecture no="./{@no}">
+ <xsl:apply-templates select="."/>
+ </Conjecture>
+ </xsl:for-each>
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </CurrentProof>
+</xsl:template>
+
+<xsl:template match="InductiveDefinition" mode="noannot">
+ <InductiveDefinition>
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <xsl:if test="string(@noParams) != 0">
+ <xsl:apply-templates select="InductiveType/arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="@noParams"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:for-each select="InductiveType">
+ <InductiveType name="{./@name}" inductive="{./@inductive}">
+ <arity>
+ <xsl:apply-templates select="./arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </arity>
+ <xsl:for-each select="./Constructor">
+ <Constructor name="{./@name}">
+ <xsl:apply-templates select="./*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </Constructor>
+ </xsl:for-each>
+ </InductiveType>
+ </xsl:for-each>
+ </InductiveDefinition>
+</xsl:template>
+
+<xsl:template match="Variable" mode="noannot">
+ <Variable name="{@name}">
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Variable>
+</xsl:template>
+
+<!--*******************************************-->
+<!-- ABSTRACTING PARAMETERS AND COUNTING -->
+<!--*******************************************-->
+<!-- Si dimentica i CAST dei termini che astrae. Nel caso dell'astrazione -->
+<!-- dei lambda dei pattern del CASE, qualora i lambda non si trovino -->
+<!-- nella forma weak-head, astrae solo i lambda che trova e restituisce -->
+<!-- un corpo depurato da tutti i primi cast che precedono il termine -->
+<!-- restituito. -->
+
+<xsl:template match="*" mode="abstparams">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="target" select="0"/>
+<xsl:param name="binder">PROD</xsl:param>
+ <xsl:choose>
+ <xsl:when test="($noparams != 0) and ((name(.)=string($binder)) or (name(.)="CAST"))">
+ <xsl:choose>
+ <xsl:when test="name(.) = string($binder)">
+ <xsl:if test="$target = 0">
+ <xsl:choose>
+ <xsl:when test="string($binder) = "LAMBDA"">
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <Param name="{target/@binder}">
+ <xsl:apply-templates select="source" mode="noannot"/>
+ </Param>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:if>
+ <xsl:apply-templates select="target/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams - 1"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="term/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="($target = 1) and ($noparams != 0)">
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="." mode="noannot"/>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="$noparams != 0">
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:if test="$target = 1">
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="printparam">
+<xsl:param name="noleft" select="0"/>
+<xsl:param name="number" select="1"/>
+ <xsl:if test="$noleft != 0">
+ <m:ci>$<xsl:value-of select="$number"/></m:ci>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noleft - 1"/><xsl:with-param name="number" select="$number + 1"/></xsl:call-template>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match="*" mode="counting">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="count" select="0"/>
+ <xsl:choose>
+ <xsl:when test="name(.) = "PROD"">
+ <xsl:apply-templates select="target/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count + 1"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:when test="name(.) = "CAST"">
+ <xsl:apply-templates select="term/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$count - $noparams"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- XSLT version 0.1 of CIC objects to objects and MathML content: -->
+<!-- First draft: March 21 2000, Irene Schena -->
+<!--******************************************************************-->
+
+<!--******************************************************************-->
+<!-- MANCA: gestione annotation e linking -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<xsl:import href="content.xsl"/>
+
+<!-- ROOT -->
+
+<xsl:template match="cicxml">
+ <xsl:variable name="url"><xsl:value-of select="@baseurl"/></xsl:variable>
+ <xsl:variable name="stylesheet"><xsl:value-of select="@stylesheet"/></xsl:variable>
+ <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
+ <xsl:processing-instruction name="xml-stylesheet">href="<xsl:value-of select='concat($url,$stylesheet)'/>" type="text/xsl"</xsl:processing-instruction>
+ <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
+ <xsl:apply-templates select="*[1]"/>
+</xsl:template>
+
+<!-- CIC OBJECTS -->
+
+<xsl:template match="Definition" mode="noannot">
+ <Definition name="{@name}" helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Definition>
+</xsl:template>
+
+<xsl:template match="Axiom" mode="noannot">
+ <Axiom name="{@name}" helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Axiom>
+</xsl:template>
+
+<xsl:template match="CurrentProof" mode="noannot">
+ <CurrentProof name="{@name}" helm:xref="{@id}">
+ <xsl:for-each select="Conjecture">
+ <Conjecture no="./{@no}">
+ <xsl:apply-templates select="."/>
+ </Conjecture>
+ </xsl:for-each>
+ <body>
+ <xsl:apply-templates select="body"/>
+ </body>
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </CurrentProof>
+</xsl:template>
+
+<xsl:template match="InductiveDefinition" mode="noannot">
+ <InductiveDefinition helm:xref="{@id}">
+ <xsl:if test="string(@params) != """>
+ <Params>
+ <xsl:value-of select="@params"/>
+ </Params>
+ </xsl:if>
+ <xsl:if test="string(@noParams) != 0">
+ <xsl:apply-templates select="InductiveType/arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="@noParams"/>
+ </xsl:apply-templates>
+ </xsl:if>
+ <xsl:for-each select="InductiveType">
+ <InductiveType name="{./@name}" inductive="{./@inductive}">
+ <arity>
+ <xsl:apply-templates select="./arity/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </arity>
+ <xsl:for-each select="./Constructor">
+ <Constructor name="{./@name}">
+ <xsl:apply-templates select="./*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="../../@noParams"/>
+ <xsl:with-param name="target" select="1"/>
+ </xsl:apply-templates>
+ </Constructor>
+ </xsl:for-each>
+ </InductiveType>
+ </xsl:for-each>
+ </InductiveDefinition>
+</xsl:template>
+
+<xsl:template match="Variable" mode="noannot">
+ <Variable name="{@name}" helm:xref="{@id}">
+ <type>
+ <xsl:apply-templates select="type"/>
+ </type>
+ </Variable>
+</xsl:template>
+
+<!--*******************************************-->
+<!-- ABSTRACTING PARAMETERS AND COUNTING -->
+<!--*******************************************-->
+<!-- Si dimentica i CAST dei termini che astrae. Nel caso dell'astrazione -->
+<!-- dei lambda dei pattern del CASE, qualora i lambda non si trovino -->
+<!-- nella forma weak-head, astrae solo i lambda che trova e restituisce -->
+<!-- un corpo depurato da tutti i primi cast che precedono il termine -->
+<!-- restituito. -->
+
+<xsl:template match="*" mode="abstparams">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="target" select="0"/>
+<xsl:param name="binder">PROD</xsl:param>
+ <xsl:choose>
+ <xsl:when test="($noparams != 0) and ((name(.)=string($binder)) or (name(.)="CAST"))">
+ <xsl:choose>
+ <xsl:when test="name(.) = string($binder)">
+ <xsl:if test="$target = 0">
+ <xsl:choose>
+ <xsl:when test="string($binder) = "LAMBDA"">
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <Param name="{target/@binder}">
+ <xsl:apply-templates select="source" mode="noannot"/>
+ </Param>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:if>
+ <xsl:apply-templates select="target/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams - 1"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="term/*[1]" mode="abstparams">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="target" select="$target"/>
+ <xsl:with-param name="binder" select="$binder"/>
+ </xsl:apply-templates>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="($target = 1) and ($noparams != 0)">
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="." mode="noannot"/>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:choose>
+ <xsl:when test="$noparams != 0">
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:if test="$target = 1">
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:if>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="printparam">
+<xsl:param name="noleft" select="0"/>
+<xsl:param name="number" select="1"/>
+ <xsl:if test="$noleft != 0">
+ <m:ci>$<xsl:value-of select="$number"/></m:ci>
+ <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noleft - 1"/><xsl:with-param name="number" select="$number + 1"/></xsl:call-template>
+ </xsl:if>
+</xsl:template>
+
+<xsl:template match="*" mode="counting">
+<xsl:param name="noparams" select="0"/>
+<xsl:param name="count" select="0"/>
+ <xsl:choose>
+ <xsl:when test="name(.) = "PROD"">
+ <xsl:apply-templates select="target/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count + 1"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:when test="name(.) = "CAST"">
+ <xsl:apply-templates select="term/*[1]" mode="counting">
+ <xsl:with-param name="noparams" select="$noparams"/>
+ <xsl:with-param name="count" select="$count"/>
+ </xsl:apply-templates>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$count - $noparams"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<!--***********************************************************************-->
+<!-- auxiliary functions -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--***********************************************************************-->
+
+<!--***********************************************************************-->
+<!-- get the name from a URI -->
+<!--***********************************************************************-->
+
+<!-- CSC: PROBLEMA: URI CHE NON CONTENGONO / ED INIZIANO CON cic: -->
+<xsl:template name="name_of_uri">
+ <xsl:param name="uri" select=""""/>
+ <xsl:variable name="suffix" select="substring-after($uri, "/")"/>
+ <xsl:choose>
+ <xsl:when test="$suffix = """>
+ <!-- CSC: PROBLEMA: .con PUO' APPARIRE ALL'INTERNO DELLE URI ===>
+ SCRIVERE UNA FUNZIONE RICORSIVA CHE RISOLVA -->
+ <xsl:value-of select="substring-before($uri,".con")"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:call-template name="name_of_uri">
+ <xsl:with-param name="uri" select="$suffix"/>
+ </xsl:call-template>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!--***********************************************************************-->
+<!-- erase common prefix from two uris -->
+<!--***********************************************************************-->
+
+<xsl:template name="common_prefix">
+ <xsl:param name="first_uri" select=""""/>
+ <xsl:param name="second_uri" select=""""/>
+ <xsl:choose>
+ <xsl:when test="(substring-before($first_uri,"/") =
+ substring-before($second_uri,"/") and
+ substring-after($second_uri,"/") != "")">
+ <xsl:call-template name="common_prefix">
+ <xsl:with-param
+ name="first_uri" select="substring-after($first_uri,"/")"/>
+ <xsl:with-param
+ name="second_uri" select="substring-after($second_uri,"/")"/> </xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:call-template name="slash_counting">
+ <xsl:with-param name="uri" select="$second_uri"/>
+ <xsl:with-param name="counter" select="0"/>
+ </xsl:call-template>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="slash_counting">
+ <xsl:param name="uri" select=""""/>
+ <xsl:param name="counter" select="0"/>
+ <xsl:choose>
+ <xsl:when test="(substring-after($uri,"/") != "")">
+ <xsl:call-template name="slash_counting">
+ <xsl:with-param
+ name="uri" select="substring-after($uri,"/")"/>
+ <xsl:with-param
+ name="counter" select="$counter +1"/>
+ </xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$counter"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="blank_counting">
+ <xsl:param name="string" select=""""/>
+ <xsl:param name="counter" select="0"/>
+ <xsl:choose>
+ <xsl:when test="(substring-after($string," ") != "")">
+ <xsl:call-template name="blank_counting">
+ <xsl:with-param
+ name="string" select="substring-after($string," ")"/>
+ <xsl:with-param
+ name="counter" select="$counter +1"/>
+ </xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$counter + 1"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="double_point_counting">
+ <xsl:param name="string" select=""""/>
+ <xsl:param name="counter" select="0"/>
+ <xsl:choose>
+ <xsl:when test="(substring-after($string,":") != "")">
+ <xsl:call-template name="double_point_counting">
+ <xsl:with-param
+ name="string" select="substring-after($string,":")"/>
+ <xsl:with-param
+ name="counter" select="$counter +1"/>
+ </xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$counter"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="min">
+ <xsl:param name="string" select=""""/>
+ <xsl:param name="counter" select="0"/>
+ <xsl:choose>
+ <xsl:when test="contains($string,concat($counter,":"))
+ or (0 > $counter)">
+ <xsl:value-of select="$counter"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:call-template name="min">
+ <xsl:with-param
+ name="string" select="$string"/>
+ <xsl:with-param
+ name="counter" select="$counter -1"/>
+ </xsl:call-template>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template name="get_no_params">
+ <xsl:param name="first_uri" select=""""/>
+ <xsl:param name="second_uri" select=""""/>
+ <xsl:variable name="offset">
+ <xsl:call-template name="common_prefix">
+ <xsl:with-param name="first_uri" select="$first_uri"/>
+ <xsl:with-param name="second_uri" select="$second_uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="$offset > 0">
+ <xsl:variable name="params">
+ <xsl:value-of
+ select="document(concat(string($absPath),$second_uri))/*/@params"/>
+ </xsl:variable>
+ <xsl:variable name="minimum">
+ <xsl:call-template name="min">
+ <xsl:with-param name="string" select="$params"/>
+ <xsl:with-param name="counter" select="$offset - 1"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="0 > $minimum">
+ 0
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="relevant_params">
+ <!-- the blank after : in the next line is essential -->
+ <xsl:value-of
+ select="substring-after($params,concat($minimum,": "))"/>
+ </xsl:variable>
+ <xsl:variable name="tokens">
+ <xsl:call-template name="blank_counting">
+ <xsl:with-param name="string" select="$relevant_params"/>
+ <xsl:with-param name="counter" select="0"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:variable name="separators">
+ <xsl:call-template name="double_point_counting">
+ <xsl:with-param name="string" select="$relevant_params"/>
+ <xsl:with-param name="counter" select="0"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:value-of select="$tokens - $separators"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ 0
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- Basic Logic -->
+<!-- First draft: April 3 2000 -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- ************************* LOGIC *********************************-->
+
+<!-- Proof objects -->
+
+<!-- <xsl:key name="typeid" use="@id" match="TYPE"/> -->
+
+<xsl:template match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX" mode="noannot">
+ <xsl:choose>
+ <xsl:when test="@id">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:choose>
+ <!-- <xsl:when test="//ALLTYPES and key('typeid',@id)"> -->
+ <xsl:when test="//ALLTYPES/TYPE[@id=$id]">
+ <xsl:choose>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>rewrite</m:csymbol>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </m:apply>
+ <xsl:apply-templates mode="rewrite" select="*[5]"/>
+ </m:apply>
+ </xsl:when>
+ <!-- aggiungere la verifica dell'esistenza dei lambda per and_ind -->
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Conjunction/and_ind.con']
+ and count(child::*) = 6">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>and_ind</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*[6]"/>
+ <m:ci><xsl:value-of select="*[5]/target/@binder"/></m:ci>
+ <xsl:apply-templates mode="pure" select="*[5]/source/*"/>
+ <m:ci><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></m:ci>
+ <xsl:apply-templates mode="pure" select="*[5]/target/LAMBDA/source/*"/>
+ <xsl:apply-templates mode="noannot" select="*[5]/target/LAMBDA/target/*"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Disjunction/or_ind.con']
+ and count(child::*) = 7">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>or_ind</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*[7]"/>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <xsl:apply-templates mode="pure" select="*[5]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>proof</m:csymbol>
+ <xsl:apply-templates select="." mode="pure"/>
+ <!-- <xsl:apply-templates select="key('typeid',@id)" mode="pure"/> -->
+ <xsl:apply-templates select="//ALLTYPES/TYPE[@id=$id]" mode="pure"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="pure"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="pure"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="rewrite">
+ <xsl:choose>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </m:apply>
+ <xsl:apply-templates mode="rewrite" select="*[5]"/>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="noannot" select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- Basic proof operators -->
+
+<!-- non del tutto soddisfacente, ma .... -->
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con']]" mode="appflat">
+ <xsl:choose>
+ <xsl:when test="count(child::*) > 7">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:variable name="ideqp" select="*[7]/@id"/>
+ <xsl:variable name="idsubp" select="*[5]/@id"/>
+ <xsl:variable name="leteqp" select="boolean(//ALLTYPES/TYPE[@id=$ideqp])"/>
+ <xsl:variable name="letsubp" select="boolean(//ALLTYPES/TYPE[@id=$idsubp])"/>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>rewrite_and_apply</m:csymbol>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:choose>
+ <xsl:when test="$leteqp">
+ <xsl:choose>
+ <xsl:when test="$letsubp">
+ <m:ci>
+ <xsl:value-of select="'h2'"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:ci>
+ <xsl:value-of select="'h1'"/>
+ </m:ci>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:apply>
+ <xsl:choose>
+ <xsl:when test="$letsubp">
+ <m:ci>
+ <xsl:value-of select="'h1'"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="*[5]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates mode="flat" select="*[8]">
+ <xsl:with-param name="n">
+ <xsl:value-of select="1+$letsubp+$leteqp"/>
+ </xsl:with-param>
+ </xsl:apply-templates>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="flat" select="*[1]"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Conjunction/and_ind.con']]" mode="appflat">
+ <xsl:choose>
+ <xsl:when test="count(child::*) > 4">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[1]"/>
+ <m:ci>*</m:ci>
+ <m:ci>*</m:ci>
+ <m:ci>*</m:ci>
+ <xsl:apply-templates mode="flat" select="*[5]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="flat" select="*[1]"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+</xsl:stylesheet>
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- Basic Logic -->
+<!-- First draft: April 3 2000 -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- ************************* LOGIC *********************************-->
+
+<!-- Proof objects -->
+
+<!-- <xsl:key name="typeid" use="@id" match="TYPE"/> -->
+
+<xsl:template match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX" mode="noannot">
+ <xsl:choose>
+ <xsl:when test="@id">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:choose>
+ <!-- <xsl:when test="//ALLTYPES and key('typeid',@id)"> -->
+ <xsl:when test="//ALLTYPES/TYPE[@id=$id]">
+ <xsl:choose>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>thread</m:csymbol>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </m:apply>
+ <xsl:apply-templates mode="thread" select="*[5]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="count(*[@id = //ALLTYPES/TYPE/@id]) = 1">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>thread</m:csymbol>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="copy-of-no-prop" select="*[1]"/>
+ </m:apply>
+ <xsl:apply-templates mode="thread" select="*[@id = //ALLTYPES/TYPE/@id]"/>
+ </m:apply>
+ </xsl:when>
+ <!-- aggiungere la verifica dell'esistenza dei lambda per and_ind -->
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Conjunction/and_ind.con']
+ and count(child::*) = 6">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>and_ind</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*[6]"/>
+ <m:ci><xsl:value-of select="*[5]/target/@binder"/></m:ci>
+ <xsl:apply-templates mode="pure" select="*[5]/source/*"/>
+ <m:ci><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></m:ci>
+ <xsl:apply-templates mode="pure" select="*[5]/target/LAMBDA/source/*"/>
+ <xsl:apply-templates mode="noannot" select="*[5]/target/LAMBDA/target/*"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Disjunction/or_ind.con']
+ and count(child::*) = 7">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>or_ind</m:csymbol>
+ <xsl:apply-templates mode="noannot" select="*[7]"/>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <xsl:apply-templates mode="pure" select="*[5]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>proof</m:csymbol>
+ <xsl:apply-templates select="." mode="pure"/>
+ <!-- <xsl:apply-templates select="key('typeid',@id)" mode="pure"/> -->
+ <xsl:apply-templates select="//ALLTYPES/TYPE[@id=$id]" mode="pure"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="pure"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="pure"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="*" mode="copy-of-no-prop">
+ <xsl:choose>
+ <xsl:when test="@id = //ALLTYPES/TYPE/@id">
+ <m:ci>prev</m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="pure"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates mode="copy-of-no-prop" select="following-sibling::*[1]"/>
+</xsl:template>
+
+<xsl:template match="*" mode="thread">
+ <xsl:choose>
+ <xsl:when test="name()= 'APPLY' and CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </m:apply>
+ <xsl:apply-templates mode="thread" select="*[5]"/>
+ </xsl:when>
+ <xsl:when test="count(*[@id = //ALLTYPES/TYPE/@id]) = 1">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>thread</m:csymbol>
+ <xsl:apply-templates mode="pure" select="//ALLTYPES/TYPE[@id=$id]"/>
+ <m:apply>
+ <xsl:apply-templates mode="copy-of-no-prop" select="*[1]"/>
+ </m:apply>
+ <xsl:apply-templates mode="thread" select="*[@id = //ALLTYPES/TYPE/@id]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="noannot" select="."/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- Basic proof operators -->
+
+<!-- non del tutto soddisfacente, ma .... -->
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/INIT/Logic_Type/eqT_ind.con' or
+ attribute::uri='cic:/coq/ZARITH/auxiliary/eqT_ind_r.con']]" mode="appflat">
+ <xsl:choose>
+ <xsl:when test="count(child::*) > 7">
+ <xsl:variable name="id" select="@id"/>
+ <xsl:variable name="ideqp" select="*[7]/@id"/>
+ <xsl:variable name="idsubp" select="*[5]/@id"/>
+ <xsl:variable name="leteqp" select="boolean(//ALLTYPES/TYPE[@id=$ideqp])"/>
+ <xsl:variable name="letsubp" select="boolean(//ALLTYPES/TYPE[@id=$idsubp])"/>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>rewrite_and_apply</m:csymbol>
+ <m:apply>
+ <m:csymbol>rw_step</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[3]"/>
+ <xsl:apply-templates mode="pure" select="*[6]"/>
+ <xsl:choose>
+ <xsl:when test="$leteqp">
+ <xsl:choose>
+ <xsl:when test="$letsubp">
+ <m:ci>
+ <xsl:value-of select="'h2'"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:ci>
+ <xsl:value-of select="'h1'"/>
+ </m:ci>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="*[7]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </m:apply>
+ <xsl:choose>
+ <xsl:when test="$letsubp">
+ <m:ci>
+ <xsl:value-of select="'h1'"/>
+ </m:ci>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates mode="pure" select="*[5]"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates mode="flat" select="*[8]">
+ <xsl:with-param name="n">
+ <xsl:value-of select="1+$letsubp+$leteqp"/>
+ </xsl:with-param>
+ </xsl:apply-templates>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="flat" select="*[1]"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/INIT/Logic/Conjunction/and_ind.con']]" mode="appflat">
+ <xsl:choose>
+ <xsl:when test="count(child::*) > 4">
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="pure" select="*[1]"/>
+ <m:ci>*</m:ci>
+ <m:ci>*</m:ci>
+ <m:ci>*</m:ci>
+ <xsl:apply-templates mode="flat" select="*[5]"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates mode="flat" select="*[1]"/>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+</xsl:stylesheet>
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- Reals -->
+<!-- First draft: April 3 2000 -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm"
+ xmlns:xlink="http://www.w3.org/1999/xlink">
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- ************************* LOGIC *********************************-->
+
+<!-- REALS -->
+
+<!--
+<xsl:template match="CONST[attribute::uri='cic:/coq/REALS/Raxioms/R.con']" mode="pure">
+ <m:reals/>
+</xsl:template>
+-->
+
+<!-- 0 e 1 -->
+
+<xsl:template match="CONST[attribute::uri='cic:/coq/REALS/Raxioms/R0.con']" mode="pure">
+ <m:cn definitionURL="{@uri}" helm:xref="{@id}">0</m:cn>
+</xsl:template>
+
+<xsl:template match="CONST[attribute::uri='cic:/coq/REALS/Raxioms/R1.con']" mode="pure">
+ <m:cn definitionURL="{@uri}" helm:xref="{@id}">1</m:cn>
+</xsl:template>
+
+
+
+<!-- Unary Operations -->
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/REALS/Raxioms/Ropp.con' or
+ attribute::uri='cic:/coq/REALS/Rbasic_fun/Rabsolu.con' or
+ attribute::uri='cic:/coq/REALS/Rfunctions/fact.con' or
+ attribute::uri='cic:/coq/REALS/Rbase/Rsqr.con']]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 2">
+ <xsl:variable name="elem">
+ <xsl:choose>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Ropp.con'">
+ <xsl:value-of select="'minus'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Rbasic_fun/Rabsolu.con'">
+ <xsl:value-of select="'abs'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Rfunctions/fact.con'">
+ <xsl:value-of select="'factorial'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Rbase/Rsqr.con'">
+ <xsl:value-of select="'root'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <m:apply helm:xref="{@id}">
+ <xsl:element name="{concat('m:',$elem)}">
+ <xsl:attribute name="definitionURL">
+ <xsl:value-of select="CONST/@uri"/>
+ </xsl:attribute>
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="CONST/@id"/>
+ </xsl:attribute>
+ </xsl:element>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/REALS/Raxioms/Rinv.con']]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 2">
+ <m:apply helm:xref="{@id}">
+ <m:power/>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <m:apply>
+ <m:minus>
+ <xsl:attribute name="definitionURL">
+ <xsl:value-of select="CONST/@uri"/>
+ </xsl:attribute>
+ </m:minus>
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="CONST/@id"/>
+ </xsl:attribute>
+ <m:cn>1</m:cn>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- Binary Operations and Relations -->
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/REALS/Raxioms/Rplus.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rminus.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rmult.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rle.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rlt.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rge.con' or
+ attribute::uri='cic:/coq/REALS/Raxioms/Rgt.con' or
+ attribute::uri='cic:/coq/REALS/Rbasic_fun/Rmin.con' or
+ attribute::uri='cic:/coq/REALS/Rfunctions/pow.con']]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 3">
+ <xsl:variable name="elem">
+ <xsl:choose>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rplus.con'">
+ <xsl:value-of select="'plus'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rminus.con'">
+ <xsl:value-of select="'minus'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rmult.con'">
+ <xsl:value-of select="'times'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rle.con'">
+ <xsl:value-of select="'leq'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rlt.con'">
+ <xsl:value-of select="'lt'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rge.con'">
+ <xsl:value-of select="'geq'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Raxioms/Rgt.con'">
+ <xsl:value-of select="'gt'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Rbasic_fun/Rmin.con'">
+ <xsl:value-of select="'min'"/>
+ </xsl:when>
+ <xsl:when test="CONST/@uri='cic:/coq/REALS/Rfunctions/pow.con'">
+ <xsl:value-of select="'power'"/>
+ </xsl:when>
+ </xsl:choose>
+ </xsl:variable>
+ <m:apply helm:xref="{@id}">
+ <xsl:element name="{concat('m:',$elem)}">
+ <xsl:attribute name="definitionURL">
+ <xsl:value-of select="CONST/@uri"/>
+ </xsl:attribute>
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="CONST/@id"/>
+ </xsl:attribute>
+ </xsl:element>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <xsl:apply-templates select="*[3]" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- LIMIT -->
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/REALS/Rlimit/limit1_in.con']]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 5">
+ <m:apply>
+ <m:eq/>
+ <xsl:choose>
+ <xsl:when test="name(*[2]) = 'LAMBDA'">
+ <m:apply helm:xref="{@id}">
+ <m:limit>
+ <xsl:attribute name="definitionURL">
+ <xsl:value-of select="CONST/@uri"/>
+ </xsl:attribute>
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="CONST/@id"/>
+ </xsl:attribute>
+ </m:limit>
+ <m:bvar>
+ <m:ci><xsl:value-of select="LAMBDA/target/@binder"/></m:ci>
+ </m:bvar>
+ <m:lowlimit>
+ <xsl:apply-templates select="*[5]" mode="noannot"/>
+ </m:lowlimit>
+ <xsl:apply-templates select="*[2]/target" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:limit/>
+ <m:bvar>
+ <m:ci>$x</m:ci>
+ </m:bvar>
+ <m:lowlimit>
+ <xsl:apply-templates select="*[5]" mode="noannot"/>
+ </m:lowlimit>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <m:ci>$x</m:ci>
+ </m:apply>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- DIFFERENTIATION -->
+
+<xsl:template match="APPLY[CONST[
+ attribute::uri='cic:/coq/REALS/Rderiv/D_in.con']]" mode="pure">
+ <xsl:choose>
+ <xsl:when test="count(child::*) = 4">
+ <m:apply>
+ <m:eq/>
+ <xsl:choose>
+ <xsl:when test="name(*[2]) = 'LAMBDA'">
+ <m:apply helm:xref="{@id}">
+ <m:diff >
+ <xsl:attribute name="definitionURL">
+ <xsl:value-of select="CONST/@uri"/>
+ </xsl:attribute>
+ <xsl:attribute name="helm:xref">
+ <xsl:value-of select="CONST/@id"/>
+ </xsl:attribute>
+ </m:diff>
+ <m:bvar>
+ <m:ci><xsl:value-of select="LAMBDA[1]/target/@binder"/></m:ci>
+ </m:bvar>
+ <xsl:apply-templates select="*[2]/target" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:apply helm:xref="{@id}">
+ <m:diff/>
+ <m:bvar>
+ <m:ci>$x</m:ci>
+ </m:bvar>
+ <m:apply>
+ <m:csymbol>app</m:csymbol>
+ <xsl:apply-templates select="*[2]" mode="noannot"/>
+ <m:ci>$x</m:ci>
+ </m:apply>
+ </m:apply>
+ </xsl:otherwise>
+ </xsl:choose>
+ <xsl:apply-templates select="*[4]" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+
+<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+<xsl:output method="html"/>
+
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<xsl:template match="/">
+ <html>
+ <head></head>
+ <body>
+ <xsl:apply-templates select="Theory"/>
+ </body>
+ </html>
+</xsl:template>
+
+
+<!-- CIC TERMS -->
+
+
+
+<xsl:template match="MUTIND[string(@uri)='cic:/coq/INIT/Logic/Equality/eq.ind']" mode="search" >
+<!-- <xsl:param name="current_uri" select=""/> -->
+<!-- <h1><xsl:value-of select="string(@uri)"/></h1> -->
+<!-- <xsl:if test="string(@uri)='cic:/coq/INIT/Logic/Equality/eq.ind'"> -->
+ <xsl:value-of select="$current_uri"/><BR/>
+<!-- </xsl:if> -->
+</xsl:template>
+
+<!-- AGGIUNGERE cic: alle uri nei file Theory -->
+
+<xsl:template match="Theory">
+<!-- <xsl:param name="current_uri" select=""/> -->
+ <xsl:apply-templates>
+ <xsl:with-param name="current_uri" select="string(@uri)"/>
+ </xsl:apply-templates>
+</xsl:template>
+
+<xsl:template match="VARIABLE">
+<!-- <xsl:param name="current_uri" select=""/> -->
+<xsl:variable name="found"
+ select="boolean(document(concat(string($absPath),string($current_uri),"/",string(@uri)))//MUTIND[string(@uri)='cic:/coq/INIT/Logic/Equality/eq.ind'])"/>
+<xsl:if test="$found">
+ <xsl:value-of select="concat(string($current_uri),"/",string(@uri),".xml")"/><BR/>
+</xsl:if>
+
+<!-- <xsl:with-param name="current_uri" select="concat(string($absPath),string($current_uri),"/",string(@uri))"/>
+ </xsl:apply-templates> -->
+</xsl:template>
+
+<xsl:template match="DEFINITION">
+<!-- <xsl:param name="current_uri" select=""/> -->
+<!-- <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))" mode="search">
+ <xsl:with-param name="current_uri" select="concat(string($absPath),string($current_uri),"/",string(@uri))"/>
+ </xsl:apply-templates> -->
+<xsl:variable name="found"
+ select="boolean(document(concat(string($absPath),string($current_uri),"/",string(@uri)))//MUTIND[string(@uri)='cic:/coq/INIT/Logic/Equality/eq.ind'])"/>
+<xsl:if test="$found">
+ <xsl:value-of select="concat(string($current_uri),"/",string(@uri),".xml")"/><BR/>
+</xsl:if>
+</xsl:template>
+
+<xsl:template match="THEOREM">
+<!-- <xsl:param name="current_uri" select=""/> -->
+<!-- <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))" mode="search">
+ <xsl:with-param name="current_uri" select="concat(string($absPath),string($current_uri),"/",string(@uri))"/>
+ </xsl:apply-templates> -->
+<xsl:variable name="found"
+ select="boolean(document(concat(string($absPath),string($current_uri),"/",string(@uri)))//MUTIND[string(@uri)='cic:/coq/INIT/Logic/Equality/eq.ind'])"/>
+<xsl:if test="$found">
+ <xsl:value-of select="concat(string($current_uri),"/",string(@uri),".xml")"/><BR/>
+</xsl:if>
+</xsl:template>
+
+
+<xsl:template match="SECTION">
+<!-- <xsl:param name="current_uri" select=""/> -->
+ <xsl:apply-templates>
+ <xsl:with-param name="current_uri" select="concat($current_uri,"/",string(@uri))"/>
+ </xsl:apply-templates>
+
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion -->
+<!-- of the content stylesheets: -->
+<!-- First draft: May 26 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<!-- Schema of stylesheet precedences (from highest to lowest): -->
+<!-- set -> basic -> annotatedcont -->
+<!-- because theory_content is imported and has lower precendence than -->
+<!-- the templates of rootcontent (i.e. the templates of set and basic). -->
+<!-- annotatedcont -> objcontent -> content -->
+<!-- because theory_content generates an import precedence tree. -->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+
+<xsl:import href="annotatedcont.xsl"/>
+<xsl:key name="id" use="@id" match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX|Definition|Axiom|CurrentProof|InductiveDefinition|Variable"/>
+<xsl:include href="basic.xsl"/>
+<!-- <xsl:include href="set.xsl"/> -->
+<xsl:include href="reals.xsl"/>
+<xsl:include href="proofs.xsl"/>
+
+<xsl:variable name="showproof" select="0"/>
+</xsl:stylesheet>
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion -->
+<!-- of the content stylesheets: -->
+<!-- First draft: May 26 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<!-- Schema of stylesheet precedences (from highest to lowest): -->
+<!-- set -> basic -> annotatedcont -->
+<!-- because theory_content is imported and has lower precendence than -->
+<!-- the templates of rootcontent (i.e. the templates of set and basic). -->
+<!-- annotatedcont -> objcontent -> content -->
+<!-- because theory_content generates an import precedence tree. -->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+
+<xsl:import href="annotatedcont.xsl"/>
+<xsl:key name="id" use="@id" match="LAMBDA|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX|Definition|Axiom|CurrentProof|InductiveDefinition|Variable"/>
+<xsl:include href="basic.xsl"/>
+<xsl:include href="set.xsl"/>
+<xsl:include href="reals.xsl"/>
+
+<xsl:variable name="showproof" select="1"/>
+</xsl:stylesheet>
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion -->
+<!-- of the theory content stylesheets: -->
+<!-- First draft: May 26 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<!-- Schema of stylesheet precedences (from highest to lowest): -->
+<!-- set -> basic -> theory_content -->
+<!-- because theory_content is imported and has lower precendence than -->
+<!-- the templates of rootcontent (i.e. the templates of set and basic). -->
+<!-- theory_content -> annotatedcont -> objcontent -> content -->
+<!-- because theory_content generates an import precedence tree. -->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+<xsl:import href="theory_content.xsl"/>
+<xsl:include href="basic.xsl"/>
+<xsl:include href="set.xsl"/>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--******************************************************************-->
+<!-- Basic Set Theory -->
+<!-- First draft: April 3 2000 -->
+<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena -->
+<!--******************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML"
+ xmlns:helm="http://www.cs.unibo.it/helm">
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- ************************* LOGIC *********************************-->
+
+
+
+<xsl:template match="*" mode="set">
+ <xsl:choose>
+ <xsl:when test="name() = 'LAMBDA'">
+ <m:set>
+ <m:bvar>
+ <m:ci>
+ <xsl:value-of select="target/@binder"/>
+ </m:ci>
+ <m:type>
+ <xsl:apply-templates select="source" mode="noannot"/>
+ </m:type>
+ </m:bvar>
+ <m:condition>
+ <xsl:apply-templates select="target" mode="noannot"/>
+ </m:condition>
+ </m:set>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-templates select="." mode="noannot"/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- IN -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/In.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:in definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ <!-- <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/> -->
+ <xsl:apply-templates select="*[2+$no_params]" mode="set" />
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- NOT-IN -->
+<!-- NOT ha no parameters -->
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/INIT/Logic/not.con']
+and (count(child::*) = 2) and APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/In.con']]]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="APPLY/CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(APPLY/child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:notin/>
+ <xsl:apply-templates select="*[2]/*[3+$no_params]" mode="noannot"/>
+ <!-- <xsl:apply-templates select="*[2]/*[2+$no_params]" mode="noannot"/> -->
+ <xsl:apply-templates select="*[2]/*[2+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- EMPTY SET -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Empty_set.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 1">
+ <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
+ </m:set>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 2">
+ <m:apply helm:xref="{@id}">
+ <m:in definitionURL="cic:/coq/SETS/Ensembles/Ensembles/In.con"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- SINGLETON -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Singleton.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 2">
+ <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ </m:set>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:in definitionURL="cic:/coq/SETS/Ensembles/Ensembles/In.con"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ <m:set definitionURL="{MUTIND/@uri}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- COUPLE -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Couple.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in definitionURL="cic:/coq/SETS/Ensembles/Ensembles/In.con"/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:set definitionURL="{MUTIND/@uri}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- TRIPLE -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Triple.ind'] and (count(child::*) = 5)]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ </m:set>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 5">
+ <m:apply helm:xref="{@id}">
+ <m:in definitionURL="cic:/coq/SETS/Ensembles/Ensembles/In.con"/>
+ <xsl:apply-templates select="*[5+$no_params]" mode="noannot"/>
+ <m:set definitionURL="{MUTIND/@uri}">
+ <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- INTERSECTION -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Intersection.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:intersect definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:apply>
+ <m:intersect definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+
+<!-- UNION -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Union.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:union definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:apply>
+ <m:union definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- INCLUDED -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Included.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:subset definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- STRICTLY INCLUDED -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Strict_Included.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:prsubset definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- SET-DIFF -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Setminus.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:apply>
+ <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- ADD-ELEM -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Add.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:union definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <m:set>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:apply>
+ <m:union definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <m:set>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- SUBTRACT-ELEM -->
+
+<xsl:template match="APPLY[CONST[attribute::uri='cic:/coq/SETS/Ensembles/Ensembles/Subtract.con']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="CONST/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <m:set>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </xsl:when>
+ <xsl:when test="(count(child::*) - number($no_params)) = 4">
+ <m:apply helm:xref="{@id}">
+ <m:in/>
+ <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
+ <m:apply>
+ <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ <m:set>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:set>
+ </m:apply>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+<!-- CARD -->
+
+<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/coq/SETS/Finite_sets/Ensembles_finis/cardinal.ind']]" mode="noannot">
+ <xsl:variable name="no_params">
+ <xsl:call-template name="get_no_params">
+ <xsl:with-param name="first_uri" select="/cicxml/@uri"/>
+ <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
+ </xsl:call-template>
+ </xsl:variable>
+ <xsl:choose>
+ <xsl:when test="(count(child::*) - number($no_params)) = 3">
+ <m:apply helm:xref="{@id}">
+ <m:eq/>
+ <m:apply>
+ <m:card definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
+ <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
+ </m:apply>
+ <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
+ </m:apply>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:apply-imports/>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of theory objects to theory sections: -->
+<!-- First draft: May 08 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+
+<xsl:import href="rootcontent.xsl"/>
+
+<!--******************************************************************-->
+<!-- Variable containing the absolute path of the CIC file -->
+<!--******************************************************************-->
+
+<xsl:variable name="absPath">http://localhost:8081/get?url=</xsl:variable>
+
+<!-- THEORY -->
+
+<xsl:template match="Theory">
+ <SECTION>
+ <xsl:apply-templates><xsl:with-param name="current_uri" select="string(@uri)"/></xsl:apply-templates>
+ </SECTION>
+</xsl:template>
+
+<!-- SUBTHEORY -->
+
+<xsl:template match="SECTION">
+<xsl:param name="current_uri"/>
+ <SECTION>
+ <xsl:apply-templates><xsl:with-param name="current_uri" select="concat($current_uri,"/",string(@uri))"/></xsl:apply-templates>
+ </SECTION>
+</xsl:template>
+
+<!-- THEORY ELEMENTS -->
+
+<xsl:template match="DEFINITION">
+<xsl:param name="current_uri"/>
+ <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))"/>
+</xsl:template>
+
+<xsl:template match="AXIOM">
+<xsl:param name="current_uri"/>
+ <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))"/>
+</xsl:template>
+
+<xsl:template match="THEOREM">
+<xsl:param name="current_uri"/>
+ <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))"/>
+</xsl:template>
+
+<xsl:template match="VARIABLE">
+<xsl:param name="current_uri"/>
+ <xsl:apply-templates select="document(concat(string($absPath),string($current_uri),"/",string(@uri)))"/>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+<?xml version="1.0"?>
+
+<!--***********************************************************************-->
+<!-- XSLT version 0.1 of theory sections to HTML: -->
+<!-- First draft: May 10 2000, Irene Schena -->
+<!--***********************************************************************-->
+
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+ xmlns:m="http://www.w3.org/1998/Math/MathML">
+
+<xsl:include href="annotatedpres.xsl"/>
+
+<xsl:template match="SECTION">
+<xsl:param name="subsect" select="0"/>
+ <xsl:choose>
+ <xsl:when test="$subsect = 0">
+ <html>
+ <head></head>
+ <body>
+ <m:math><m:mtext>BEGIN SECTION</m:mtext></m:math>
+ <xsl:apply-templates select="*"><xsl:with-param name="subsect" select="1"/></xsl:apply-templates>
+ <m:math><m:mtext>END SECTION</m:mtext></m:math>
+ </body>
+ </html>
+ </xsl:when>
+ <xsl:otherwise>
+ <m:math><m:mtext>BEGIN SECTION</m:mtext></m:math>
+ <xsl:apply-templates select="*"><xsl:with-param name="subsect" select="1"/></xsl:apply-templates>
+ <m:math><m:mtext>END SECTION</m:mtext></m:math>
+ </xsl:otherwise>
+ </xsl:choose>
+</xsl:template>
+
+</xsl:stylesheet>
--- /dev/null
+COQTOP=/home/projects/helm/EXPORT/V7
+OCAMLC=ocamlc -I $(COQTOP)/config -I $(COQTOP)/toplevel
+
+COQV2THEORYXMLOBJS= \
+ $(COQTOP)/config/coq_config.cmo \
+ $(COQTOP)/toplevel/usage.cmo \
+ coq_v2theoryxml.cmo
+
+coq_v2theoryxml: $(COQV2THEORYXMLOBJS)
+ $(OCAMLC) -o $@ unix.cma $(COQV2THEORYXMLOBJS)
+
+coq_v2theoryxml.cmo: coq_v2theoryxml.ml
+ $(OCAMLC) -c $<
+
+.PHONY: clean
+clean:
+ rm -f coq_v2theoryxml *.cmo *.cmi
--- /dev/null
+(* environment *)
+
+let environment = Unix.environment ()
+
+let bindir = ref Coq_config.bindir
+let binary = "coqtop.byte"
+let image = ref ""
+let xml_theory_library_root = ref (
+ try
+ Sys.getenv "XML_THEORY_LIBRARY_ROOT"
+ with Not_found -> ""
+)
+
+(* the $COQBIN environment variable has priority over the Coq_config value *)
+let _ =
+ try
+ let c = Sys.getenv "COQBIN" in
+ if c <> "" then bindir := c
+ with Not_found -> ()
+
+(* coq_v2theoryxml options *)
+
+let keep = ref false
+
+(* Verifies that a string do not contains others caracters than letters,
+ digits, or `_` *)
+
+let check_module_name s =
+ let err () =
+ output_string stderr
+ "Modules names must only contain letters, digits, or underscores\n";
+ output_string stderr
+ "and must begin with a letter\n";
+ exit 1
+ in
+ match String.get s 0 with
+ | 'a' .. 'z' | 'A' .. 'Z' ->
+ for i = 1 to (String.length s)-1 do
+ match String.get s i with
+ | 'a' .. 'z' | 'A' .. 'Z' | '0' .. '9' | '_' -> ()
+ | _ -> err ()
+ done
+ | _ -> err ()
+
+ (* compilation of a file [file] with command [command] and args [args] *)
+
+let compile command args file =
+ let dirname = Filename.dirname file in
+ let basename = Filename.basename file in
+ let modulename =
+ if Filename.check_suffix basename ".vo" then
+ Filename.chop_suffix basename ".vo"
+ else
+ basename
+ in
+ check_module_name modulename;
+ let tmpfile = Filename.temp_file "coq_v2theoryxml" ".v" in
+ let args' =
+ command :: "-batch" :: "-silent" :: "-is" :: "barestate" :: args
+ @ ["-load-vernac-source"; tmpfile] in
+ let devnull =
+ if Sys.os_type = "Unix" then
+ Unix.openfile "/dev/null" [] 0o777
+ else
+ Unix.stdin
+ in
+ let oc = open_out tmpfile in
+ Printf.fprintf oc "Require XmlTheory.\n" ;
+ Printf.fprintf oc "XmlTheory Begin %s \"%s\".\n" modulename
+ !xml_theory_library_root ;
+ Printf.fprintf oc "Load %s.\n" modulename;
+ Printf.fprintf oc "XmlTheory End.\n" ;
+ flush oc;
+ close_out oc;
+ try
+ let pid =
+ Unix.create_process_env command
+ (Array.of_list args') environment devnull Unix.stdout Unix.stderr in
+ let status = Unix.waitpid [] pid in
+ if not !keep then Sys.remove tmpfile ;
+ match status with
+ | _, Unix.WEXITED 0 -> ()
+ | _, Unix.WEXITED 127 ->
+ Printf.printf "Cannot execute %s\n" command;
+ exit 1
+ | _, Unix.WEXITED c -> exit c
+ | _ -> exit 1
+ with _ ->
+ if not !keep then Sys.remove tmpfile; exit 1
+
+(* parsing of the command line
+ *
+ * special treatment for -bindir and -i.
+ * other options are passed to coqtop *)
+
+let usage () =
+ Usage.print_usage
+ "Usage: coq_v2theoryxml <options> <Coq options> module...\n
+options are:
+ -xml-theory-library-root d specify the path to the root of the XML library
+ (overrides $XML_THEORY_LIBRARY_ROOT)
+ -image f specify an alternative executable for Coq
+ -t keep temporary files\n\n" ;
+ flush stderr ;
+ exit 1
+
+let parse_args () =
+ let rec parse (cfiles,args) = function
+ | [] ->
+ List.rev cfiles, List.rev args
+ | "-xml-theory-library-root" :: v :: rem ->
+ xml_theory_library_root := v ; parse (cfiles,args) rem
+ | "-t" :: rem ->
+ keep := true ; parse (cfiles,args) rem
+ | "-boot" :: rem ->
+ bindir:= Filename.concat Coq_config.coqtop "bin";
+ parse (cfiles, "-boot"::args) rem
+ | "-bindir" :: d :: rem ->
+ bindir := d ; parse (cfiles,args) rem
+ | "-bindir" :: [] ->
+ usage ()
+ | "-byte" :: rem ->
+ parse (cfiles,args) rem
+ | "-opt" :: rem ->
+ raise (Failure "To load ML modules, only -byte is allowed")
+ | "-image" :: f :: rem ->
+ image := f; parse (cfiles,args) rem
+ | "-image" :: [] ->
+ usage ()
+ | ("-?"|"-h"|"-H"|"-help"|"--help") :: _ -> usage ()
+ | ("-libdir"|"-outputstate"|"-I"|"-include"
+ |"-inputstate"|"-is"|"-load-vernac-source"|"-load-vernac-object"
+ |"-load-ml-source"|"-require"|"-load-ml-object"|"-user"
+ |"-init-file" as o) :: rem ->
+ begin
+ match rem with
+ | s :: rem' -> parse (cfiles,s::o::args) rem'
+ | [] -> usage ()
+ end
+ | "-R" as o :: s :: t :: rem -> parse (cfiles,t::s::o::args) rem
+ | ("-notactics"|"-debug"|"-db"|"-debugger"|"-nolib"|"-batch"|"-nois"
+ |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" |"-unsafe"|"-quiet"
+ |"-silent"|"-m" as o) :: rem ->
+ parse (cfiles,o::args) rem
+ | ("-v"|"--version") :: _ ->
+ Usage.version ()
+ | "-where" :: _ ->
+ print_endline Coq_config.coqlib; exit 0
+ | f :: rem -> parse (f::cfiles,args) rem
+ in
+ parse ([],[]) (List.tl (Array.to_list Sys.argv))
+
+(* main: we parse the command line, define the command to compile files
+ * and then call the compilation on each file *)
+
+let main () =
+ let cfiles, args = parse_args () in
+ if cfiles = [] then begin
+ prerr_endline "coq_v2theoryxml: too few arguments" ;
+ usage ()
+ end;
+ let coqtopname =
+ if !image <> "" then !image else Filename.concat !bindir (binary ^ Coq_config.exec_extension)
+ in
+ if !xml_theory_library_root = "" then
+ begin
+ prerr_endline "coq_v2theoryxml: you must either set $XML_THEORY_LIBRARY_ROOT or use -xml-theory-library-root";
+ usage ()
+ end
+ else
+ List.iter (compile coqtopname args) cfiles ;
+ prerr_endline
+ ("\nWARNING: all the URIs in the generated XML files are broken." ^
+ "\n See the README in the XML contrib to learn how to fix them.\n")
+
+let _ = Printexc.print main (); exit 0
--- /dev/null
+# This coq_vo2xml must be put in PATH before the real coq_vo2xml.
+# It's aim is to run coq_v2theoryxml instead of coq_vo2xml
+# Remember to set $XML_THEORY_LIBRARY_ROOT before starting this coq_vo2xml
--- /dev/null
+#!/bin/bash
+
+BASEDIR=/home/projects/helm/EXPORT/xmltheory
+$BASEDIR/Coq_v2theoryxml/coq_v2theoryxml -R $BASEDIR/XmlTheory Bologna.XmlTheory $@
--- /dev/null
+xmltheoryentries.cmo: xmltheoryentries.ml iXml.cmi
+xmltheoryentries.cmx: xmltheoryentries.ml iXml.cmx
+iXml.cmo: iXml.ml iXml.cmi
+iXml.cmx: iXml.ml iXml.cmi
+iXml.cmi: iXml.mli
+XmlTheory.vo: XmlTheory.v iXml.cmo xmltheoryentries.cmo
+XmlTheory.vi: XmlTheory.v iXml.cmo xmltheoryentries.cmo
+XmlTheory.html: XmlTheory.v iXml.cmo xmltheoryentries.cmo
--- /dev/null
+# Settare
+
+OPT=-byte # Nota: questo andrebbe fatto nel Make, ma un bug di coq_makefile
+ # lo impedisce
+COQTOP=...
--- /dev/null
+-R . Bologna.XmlTheory
+-I $(COQTOP)/contrib/xml
+XmlTheory.v
+iXml.ml
+xmltheoryentries.ml
--- /dev/null
+##############################################################################
+## The Calculus of Inductive Constructions ##
+## ##
+## Projet Coq ##
+## ##
+## INRIA ENS-CNRS ##
+## Rocquencourt Lyon ##
+## ##
+## Coq V7 ##
+## ##
+## ##
+##############################################################################
+
+# WARNING
+#
+# This Makefile has been automagically generated by coq_makefile
+# Edit at your own risks !
+#
+# END OF WARNING
+
+#
+# This Makefile was generated by the command line :
+# coq_makefile -f Make -o Makefile
+#
+
+##########################
+# #
+# Variables definitions. #
+# #
+##########################
+
+CAMLP4LIB=`camlp4 -where`
+MAKE=make "COQBIN=$(COQBIN)" "OPT=$(OPT)"
+COQSRC=-I $(COQTOP)/kernel -I $(COQTOP)/lib \
+ -I $(COQTOP)/library -I $(COQTOP)/parsing -I $(COQTOP)/pretyping \
+ -I $(COQTOP)/proofs -I $(COQTOP)/syntax -I $(COQTOP)/tactics \
+ -I $(COQTOP)/toplevel -I $(CAMLP4LIB)
+ZFLAGS=$(OCAMLLIBS) $(COQSRC)
+COQFLAGS=-q $(OPT) $(COQLIBS)
+COQC=$(COQBIN)coqc
+COQFULL=$(COQBIN)coqc $(FULLOPT) -q $(COQLIBS)
+GALLINA=gallina
+COQ2HTML=coq2html
+COQ2LATEX=coq2latex
+CAMLC=ocamlc -c
+CAMLOPTC=ocamlopt -c
+CAMLLINK=ocamlc
+CAMLOPTLINK=ocamlopt
+COQDEP=$(COQBIN)coqdep -c
+COQVO2XML=coq_vo2xml
+
+#########################
+# #
+# Libraries definition. #
+# #
+#########################
+
+OCAMLLIBS=-I .\
+ -I $(COQTOP)/contrib/xml
+COQLIBS=-I .\
+ -R . Bologna.XmlTheory\
+ -I $(COQTOP)/contrib/xml
+
+###################################
+# #
+# Definition of the "all" target. #
+# #
+###################################
+
+all: XmlTheory.vo\
+ iXml.cmo\
+ xmltheoryentries.cmo
+
+spec: XmlTheory.vi
+
+gallina: XmlTheory.g
+
+html: XmlTheory.html
+
+tex: XmlTheory.tex
+
+gallinatex: XmlTheory.g.tex
+
+gallinahtml: XmlTheory.g.html
+
+xml: .xml_time_stamp
+.xml_time_stamp: XmlTheory.vo
+ $(COQVO2XML) $(COQFLAGS) $(?:%.o=%)
+ touch .xml_time_stamp
+
+####################
+# #
+# Special targets. #
+# #
+####################
+
+.PHONY: all opt byte archclean clean install depend xml
+
+.SUFFIXES: .mli .ml .cmo .cmi .cmx .v .vo .vi .g .html .tex .g.tex .g.html
+
+.mli.cmi:
+ $(CAMLC) $(ZDEBUG) $(ZFLAGS) $<
+
+.ml.cmo:
+ $(CAMLC) $(ZDEBUG) $(ZFLAGS) $<
+
+.ml.cmx:
+ $(CAMLOPTC) $(ZDEBUG) $(ZFLAGS) $<
+
+.v.vo:
+ $(COQC) $(COQDEBUG) $(COQFLAGS) $*
+
+.v.vi:
+ $(COQC) -i $(COQDEBUG) $(COQFLAGS) $*
+
+.v.g:
+ $(GALLINA) $<
+
+.v.html:
+ $(COQ2HTML) $<
+
+.v.tex:
+ $(COQ2LATEX) $< -latex -o $@
+
+.v.g.html:
+ $(GALLINA) -stdout $< | $(COQ2HTML) -f > $@
+
+.v.g.tex:
+ $(GALLINA) -stdout $< | $(COQ2LATEX) - -latex -o $@
+
+byte:
+ $(MAKE) all "OPT="
+
+opt:
+ $(MAKE) all "OPT=-opt"
+
+include .depend
+
+depend:
+ rm .depend
+ $(COQDEP) -i $(COQLIBS) *.v *.ml *.mli >.depend
+ $(COQDEP) $(COQLIBS) -suffix .html *.v >>.depend
+
+install:
+ @if test -z $(TARGETDIR); then echo "You must set TARGETDIR (for instance with 'make TARGETDIR=foobla install')"; exit 1; fi
+ cp -f *.vo $(TARGETDIR)
+ cp -f *.cmo $(TARGETDIR)
+
+Makefile: Make
+ mv -f Makefile Makefile.bak
+ $(COQBIN)coq_makefile -f Make -o Makefile
+
+clean:
+ rm -f *.cmo *.cmi *.cmx *.o *.vo *.vi *~
+
+archclean:
+ rm -f *.cmx *.o
+
+# WARNING
+#
+# This Makefile has been automagically generated by coq_makefile
+# Edit at your own risks !
+#
+# END OF WARNING
+
--- /dev/null
+Here we show the procedure to follow to add the recognition of
+a new syntactical form.
+
+Form to recognize in the model:
+
+Lemma existsDec : (l:(list A)){(list_exists l)}+{~(list_exists l)}.
+
+1. cd V7 ; grep "Lemma" */*.ml4
+ the result should be one or a few files. In this case the
+ only file is parsing/g_vernac.ml4. In the case of many files,
+ only one is the good one.
+2. open the file and search for Lemma:
+ thm_tok:
+ [ [ "Theorem" -> <:ast< "THEOREM" >>
+ | IDENT "Lemma" -> <:ast< "LEMMA" >>
+ | IDENT "Fact" -> <:ast< "FACT" >>
+ | IDENT "Remark" -> <:ast< "REMARK" >>
+ | IDENT "Decl" -> <:ast< "DECL" >> ] ]
+
+ so a Lemma is mapped into an ast of phylum thm_tok.
+ Let's search for thm_tok. Many occurrences are found,
+ but the only one that matches the form to recognize is
+
+ gallina:
+ (* Definition, Goal *)
+ [ [ thm = thm_tok; id = identarg; ":"; c = constrarg ->
+ <:ast< (StartProof $thm $id $c) >>
+
+ So the ast created is tagged StartProof
+3. grep "StartProof" */*.ml (usually toplevel/...)
+ Open the file and search for StartProof.
+ This is found:
+ let _ =
+ add "StartProof"
+ (function
+ | [VARG_STRING kind;VARG_IDENTIFIER s;VARG_CONSTR com] ->
+ ...
+4. edit xmltheoryentries.ml and copy the entry for another rule,
+ substituting StartProof as the parameter for set_hook and
+ using the above match (with V. added where appropriate) after function:
+
+let module V = Vernacinterp in
+ set_hook "StartProof"
+ (function
+ [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
+ ???
+ | _ -> fail ()
+ )
+;;
+
+ Finally, write OCaml code to print to XML the availables interesting
+ infos. In our case the code becomes
+
+let module V = Vernacinterp in
+ set_hook "StartProof"
+ (function
+ [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
+ IXml.output
+ (Xml.xml_empty
+ "THEOREM"
+ ["uri", Names.string_of_id s ^ ".con"; "as",kind]
+ )
+ | _ -> fail ()
+ )
+;;
+
+ IXml.output should always be present and the code inside
+ (that is simply XML written in OCaml form) should be changed.
+ The syntax is
+ Xml.xml_empty "name" ["att1","value1" ; ... ; "attn","valuen"]
+ to create an empty element name with attributes att1 ... attn.
+ To create a non-empty element, use
+ Xml.xml_nempty "name" ["att1","value1" ; ... ; "attn","valuen"]
+ stream
+ where stream is an OCaml stream of other XML elements, as:
+ * another Xml.xml_nempty
+ * an Xml.xml_empty
+ * [< stream1 ; ... ; streamk >]
--- /dev/null
+Declare ML Module "iXml" "xmltheoryentries".
+
+(*Vecchio, ma funzionante
+Grammar vernac vernac : ast :=
+ xml_theory_begin [ "XmlTheory" "Begin" stringarg($s) stringarg($f) "." ] ->
+ [(XMLTHEORYBEGIN $s $f)]
+| xml_theory_end [ "XmlTheory" "End" "." ] ->
+ [(XMLTHEORYEND)].
+*)
+
+Grammar vernac vernac : ast :=
+ xml_theory_begin [ "XmlTheory" "Begin" identarg($s) stringarg($f) "." ] ->
+ [(XMLTHEORYBEGIN $s $f)]
+| xml_theory_end [ "XmlTheory" "End" "." ] ->
+ [(XMLTHEORYEND)].
--- /dev/null
+exception NoOpenNonEmptyElements
+
+type sectionTree =
+ Leaf of Xml.token Stream.t
+ | Node of string * (string * string) list * sectionTree list ref
+;;
+
+let rec token_stream_of_section_tree_list =
+ function
+ he::tl ->
+ [< token_stream_of_section_tree_list tl; token_stream_of_section_tree he >]
+ | [] -> [<>]
+and token_stream_of_section_tree =
+ function
+ Leaf t -> [< t >]
+ | Node (elem_name, attr_list, section_tree) ->
+ Xml.xml_nempty elem_name attr_list
+ (token_stream_of_section_tree_list !section_tree)
+;;
+
+let section_stack = ref [];;
+let xmloutput = ref (ref []);;
+let filename = ref "";;
+
+let reset_output fname =
+ filename := fname ;
+ xmloutput := ref [] ;
+ section_stack := []
+;;
+
+let output n =
+ let xmloutput = !xmloutput in
+ xmloutput := (Leaf n) :: !xmloutput
+;;
+
+let open_non_empty_element elem_name attr_list =
+ let newxmloutput = ref [] in
+ !xmloutput := (Node (elem_name, attr_list, newxmloutput)) :: !(!xmloutput) ;
+ section_stack := !xmloutput :: !section_stack ;
+ xmloutput := newxmloutput
+;;
+
+let close_non_empty_element () =
+ match !section_stack with
+ oldxmloutput::oldsection_stack ->
+ xmloutput := oldxmloutput ;
+ section_stack := oldsection_stack
+ | _ -> raise NoOpenNonEmptyElements
+;;
+
+let print_output () =
+ Xml.pp (token_stream_of_section_tree_list !(!xmloutput)) (Some !filename)
+;;
--- /dev/null
+exception NoOpenNonEmptyElements
+
+val reset_output : string -> unit
+val output : Xml.token Stream.t -> unit
+val open_non_empty_element : string -> (string * string) list -> unit
+val close_non_empty_element : unit -> unit
+val print_output : unit -> unit
--- /dev/null
+(*********************)
+(* Utility functions *)
+(*********************)
+
+let fail () =
+ Pp.warning "XmlTheory: AST not recognized"
+;;
+
+(* name is the name of the function to hook *)
+(* hook is an hook partial-function to recognize particular inputs *)
+let set_hook name hook =
+ let module V = Vernacinterp in
+ let old = V.vinterp_map name in
+ V.vinterp_add name
+ (fun l () ->
+ old l () ;
+ hook l
+ )
+;;
+
+
+(*****************************************************)
+(* Vernacular administrative commands for the module *)
+(*****************************************************)
+
+let header =
+"<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ^
+"<!DOCTYPE Theory SYSTEM \"http://www.cs.unibo.it/helm/dtd/maththeory.dtd\">\n"
+;;
+
+(*Vecchio, ma funzionante
+let module V = Vernacinterp in
+ V.vinterp_add "XMLTHEORYBEGIN"
+ (function
+ [V.VARG_STRING curi ; V.VARG_STRING filename] ->
+ fun () ->
+ IXml.reset_output filename ;
+ IXml.output (Xml.xml_cdata header) ;
+ IXml.open_non_empty_element "Theory" ["uri","cic:" ^ curi]
+ | _ -> V.bad_vernac_args "XMLTHEORYBEGIN"
+ )
+;;
+*)
+
+let module V = Vernacinterp in
+let module L = Library in
+let module S = System in
+let module N = Names in
+ V.vinterp_add "XMLTHEORYBEGIN"
+ (function
+ [V.VARG_IDENTIFIER id ; V.VARG_STRING root_dir] ->
+ fun () ->
+ let s = N.string_of_id id in
+ let lpe,_ =
+ S.find_file_in_path (L.get_load_path ()) (s^".v")
+ in
+ let curi = "/" ^ String.concat "/" lpe.S.coq_dirpath in
+ let dirname = root_dir ^ curi in
+ Unix.system ("mkdir -p " ^ dirname) ;
+ let filename = dirname ^ "/" ^ s ^ ".theory" in
+ IXml.reset_output filename ;
+ IXml.output (Xml.xml_cdata header) ;
+ IXml.open_non_empty_element "Theory" ["uri","cic:" ^ curi ^ "/" ^ s]
+ | _ -> V.bad_vernac_args "XMLTHEORYBEGIN"
+ )
+;;
+
+let module V = Vernacinterp in
+ V.vinterp_add "XMLTHEORYEND"
+ (function
+ [] ->
+ fun () ->
+ IXml.close_non_empty_element () ;
+ IXml.print_output ()
+ | _ -> V.bad_vernac_args "XMLTHEORYEND"
+ )
+;;
+
+
+(**********************************************************)
+(* All the vernacular commands on which one is interested *)
+(* should be overridden here *)
+(**********************************************************)
+
+let module V = Vernacinterp in
+let module N = Names in
+let module S = System in
+let module L = Library in
+ set_hook "Require"
+ (function
+ [V.VARG_STRING import; V.VARG_STRING specif; V.VARG_IDENTIFIER id] ->
+ (* id is the identifier of the module, but we need the absolute *)
+ (* identifier as an URI. *)
+ (* E.g.: Logic ==> theory:/Coq/Init/Logic.theory *)
+ let name = N.string_of_id id in
+ let ({S.coq_dirpath = coq_dirpath},_) = L.module_filename name in
+ let uri =
+ "theory:/" ^ (String.concat "/" coq_dirpath) ^ "/" ^ name ^ ".theory"
+ in
+ IXml.output
+ (Xml.xml_nempty "vernacular" []
+ (Xml.xml_empty
+ "Require"
+ ["import",import; "specif",specif; "uri",uri]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+let module T = Nametab in
+let module N = Names in
+ set_hook "HintsResolve"
+ (function
+ (V.VARG_VARGLIST l)::lh ->
+ IXml.output
+ (Xml.xml_nempty "vernacular" []
+ (Xml.xml_nempty
+ "HintsResolve" []
+ [< Xml.xml_nempty "dbs" []
+ (List.fold_right
+ (function
+ (V.VARG_IDENTIFIER x) ->
+ (function i ->
+ [< Xml.xml_empty "db" ["name",N.string_of_id x];
+ i
+ >]
+ )
+ | _ -> Vernacinterp.bad_vernac_args "HintsResolve"
+ )
+ l [<>]) ;
+ Xml.xml_nempty "hints" []
+ (List.fold_right
+ (function
+ (V.VARG_QUALID x) ->
+ (function i ->
+ [< Xml.xml_empty "hint" ["name",T.string_of_qualid x];
+ i
+ >]
+ )
+ | _ -> Vernacinterp.bad_vernac_args "HintsResolve"
+ )
+ lh [<>]
+ )
+ >]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "IMPLICIT_ARGS_ON"
+ (function
+ [] ->
+ IXml.output
+ (Xml.xml_nempty "vernacular" []
+ (Xml.xml_empty
+ "ImplicitArguments"
+ ["status","ON"]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "DEFINITION"
+ (function
+ (* Coq anomaly: a Local definition is a Definition at the syntax *)
+ (* level but a Variable at the logical level. Here we have to *)
+ (* recognize the two cases and treat them differently *)
+ (V.VARG_STRING "LOCAL":: V.VARG_IDENTIFIER id:: V.VARG_CONSTR c:: rest) ->
+ IXml.output
+ (Xml.xml_nempty "VARIABLES" ["as","LOCAL"]
+ (Xml.xml_empty
+ "VARIABLE"
+ ["uri",Names.string_of_id id ^ ".var"]
+ )
+ )
+ | (V.VARG_STRING kind:: V.VARG_IDENTIFIER id:: V.VARG_CONSTR c :: rest) ->
+ IXml.output
+ (Xml.xml_empty
+ "DEFINITION"
+ ["uri", Names.string_of_id id ^ ".con" ; "as",kind]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "BeginSection"
+ (function
+ [V.VARG_IDENTIFIER id] ->
+ IXml.open_non_empty_element "SECTION" ["uri", Names.string_of_id id]
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "EndSection"
+ (function
+ [V.VARG_IDENTIFIER id] ->
+ IXml.close_non_empty_element ()
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "StartProof"
+ (function
+ [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
+ IXml.output
+ (Xml.xml_empty
+ "THEOREM"
+ ["uri", Names.string_of_id s ^ ".con"; "as",kind]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "MUTUALINDUCTIVE"
+ (function
+ [V.VARG_STRING f; V.VARG_VARGLIST indl] ->
+ (* we need the name of the first inductive defined *)
+ (* type in the block to get the URI *)
+ let name =
+ match indl with
+ (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
+ | _ -> assert false
+ in
+ IXml.output
+ (Xml.xml_empty
+ "DEFINITION"
+ ["uri", Names.string_of_id name ^ ".ind"; "as",f]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "VARIABLE"
+ (function
+ [V.VARG_STRING kind; V.VARG_BINDERLIST slcl] ->
+ (* here we need all the names *)
+ let names =
+ List.flatten (List.map fst slcl)
+ in
+ IXml.output
+ (Xml.xml_nempty "VARIABLES" ["as",kind]
+ (List.fold_right
+ (fun name s ->
+ [< (Xml.xml_empty
+ "VARIABLE"
+ ["uri",Names.string_of_id name ^ ".var"]
+ ) ; s
+ >]
+ ) names [<>]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+let module T = Nametab in
+let module N = Names in
+ set_hook "COERCION"
+ (function
+ [V.VARG_STRING kind; V.VARG_STRING identity; V.VARG_QUALID qid;
+ V.VARG_QUALID qids; V.VARG_QUALID qidt] ->
+ (* let's substitute empty strings with non-empty strings *)
+ (* to get a stricter DTD *)
+ let remove_empty_string s = if s = "" then "UNSPECIFIED" else s in
+ let kind = remove_empty_string kind in
+ let identity = remove_empty_string identity in
+ IXml.output
+ (Xml.xml_nempty "vernacular" []
+ (Xml.xml_empty
+ "Coercion"
+ ["kind",kind; "identity",identity ; "name",T.string_of_qualid qid ;
+ "source",T.string_of_qualid qids;"target",T.string_of_qualid qidt]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "MUTUALRECURSIVE"
+ (function
+ [V.VARG_VARGLIST lmi] ->
+ (* we need the name of the first inductive defined *)
+ (* type in the block to get the URI *)
+ let name =
+ match lmi with
+ (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
+ | _ -> assert false
+ in
+ IXml.output
+ (Xml.xml_empty
+ "DEFINITION"
+ ["uri", Names.string_of_id name ^ ".con" ; "as","Fixpoint"]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "MUTUALCORECURSIVE"
+ (function
+ [V.VARG_VARGLIST lmi] ->
+ (* we need the name of the first inductive defined *)
+ (* type in the block to get the URI *)
+ let name =
+ match lmi with
+ (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
+ | _ -> assert false
+ in
+ IXml.output
+ (Xml.xml_empty
+ "DEFINITION"
+ ["uri", Names.string_of_id name ^ ".con" ; "as","CoFixpoint"]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "RECORD"
+ (function
+ [V.VARG_STRING coe;
+ V.VARG_IDENTIFIER struc;
+ V.VARG_BINDERLIST binders;
+ V.VARG_CONSTR sort;
+ V.VARG_VARGLIST namec;
+ V.VARG_VARGLIST cfs] ->
+ IXml.output
+ (Xml.xml_empty
+ "DEFINITION"
+ ["uri", Names.string_of_id struc ^ ".ind" ; "as","Record"]
+ )
+ | _ -> fail ()
+ )
+;;
+
+let module V = Vernacinterp in
+ set_hook "PARAMETER"
+ (function
+ [V.VARG_STRING kind; V.VARG_BINDERLIST slcl] ->
+ (* here we need all the names *)
+ let names =
+ List.flatten (List.map fst slcl)
+ in
+ IXml.output
+ (Xml.xml_nempty "AXIOMS" ["as",kind]
+ (List.fold_right
+ (fun name s ->
+ [< (Xml.xml_empty
+ "AXIOM"
+ ["uri",Names.string_of_id name ^ ".con"]
+ ) ; s
+ >]
+ ) names [<>]
+ )
+ )
+ | _ -> fail ()
+ )
+;;
--- /dev/null
+<?xml encoding="ISO-8859-1"?>
+
+<!--*****************************************************************-->
+<!-- DTD FOR THEORY OBJECTS AT LEVEL OF CIC XML FILES: -->
+<!-- First draft: May 10 2000, Claudio Sacerdoti Coen, Irene Schena -->
+<!-- Revised: February 2001, Claudio Sacerdoti Coen -->
+<!-- Revised: May 01 2001, Claudio Sacerdoti Coen -->
+<!--*****************************************************************-->
+
+<!ENTITY % mathstructure '(AXIOMS|DEFINITION|THEOREM|VARIABLES|SECTION|vernacular)*'>
+
+<!ELEMENT Theory (%mathstructure;)>
+<!ATTLIST Theory
+ uri CDATA #REQUIRED>
+
+<!ELEMENT AXIOMS (AXIOM*)>
+<!ATTLIST AXIOMS
+ as (AXIOM|PARAMETER|PARAMETERS) #REQUIRED>
+
+<!ELEMENT AXIOM EMPTY>
+<!ATTLIST AXIOM
+ uri CDATA #REQUIRED>
+
+<!ELEMENT DEFINITION EMPTY>
+<!ATTLIST DEFINITION
+ uri CDATA #REQUIRED
+ as (DEFINITION|Inductive|CoInductive|Fixpoint|CoFixpoint|Record) #REQUIRED>
+
+<!ELEMENT THEOREM EMPTY>
+<!ATTLIST THEOREM
+ uri CDATA #REQUIRED
+ as (THEOREM|LEMMA|FACT|REMARK|DECL) #REQUIRED>
+
+<!ELEMENT VARIABLES (VARIABLE*)>
+<!ATTLIST VARIABLES
+ as (VARIABLE|VARIABLES|HYPOTHESIS|HYPOTHESES|LOCAL) #REQUIRED>
+
+<!ELEMENT VARIABLE EMPTY>
+<!ATTLIST VARIABLE
+ uri CDATA #REQUIRED>
+
+<!ELEMENT SECTION (%mathstructure;)>
+<!ATTLIST SECTION
+ uri CDATA #REQUIRED>
+
+<!ELEMENT vernacular (Require|ImplicitArguments|Coercion|HintsResolve)>
+
+<!ELEMENT Require EMPTY>
+<!ATTLIST Require
+ import (EXPORT|IMPORT) #REQUIRED
+ specif (UNSPECIFIED|IMPLEMENTATION|SPECIFICATION) #REQUIRED
+ uri CDATA #REQUIRED>
+
+<!ELEMENT ImplicitArguments (EMPTY)>
+<!ATTLIST ImplicitArguments
+ status (ON) #REQUIRED>
+
+<!ELEMENT Coercion EMPTY>
+<!ATTLIST Coercion
+ kind (LOCAL|UNSPECIFIED) #REQUIRED
+ identity (IDENTITY|UNSPECIFIED) #REQUIRED
+ name CDATA #REQUIRED
+ source CDATA #REQUIRED
+ target CDATA #REQUIRED>
+
+<!ELEMENT HintsResolve (dbs,hints)>
+
+<!ELEMENT dbs (db*)>
+
+<!ELEMENT db (EMPTY)>
+<!ATTLIST db
+ name CDATA #REQUIRED>
+
+<!ELEMENT hints (hint*)>
+
+<!ELEMENT hint (EMPTY)>
+<!ATTLIST hint
+ name CDATA #REQUIRED>
--- /dev/null
+start-xaland:
+ java -ss1024K -oss8192K \
+ xaland 12345 12346 \
+ $(HELM_STYLES_DIR)/rootcontent.xsl \
+ $(HELM_STYLES_DIR)/annotatedpres.xsl \
+ $(HELM_STYLES_DIR)/theory_content.xsl \
+ $(HELM_STYLES_DIR)/theory_pres.xsl
+
+start-xaland-2:
+ java -ss1024K -oss8192K \
+ xaland2 12345 12346 \
+ $(HELM_STYLES_DIR)/rootcontent.xsl \
+ $(HELM_STYLES_DIR)/annotatedpres.xsl \
+ $(HELM_STYLES_DIR)/theory_content.xsl \
+ $(HELM_STYLES_DIR)/theory_pres.xsl
+
+start-xaland-old:
+ java xaland 12345 12346 \
+ $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/rootcontent.xsl \
+ $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/annotatedpres.xsl \
+ $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/theory_content.xsl \
+ $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/theory_pres.xsl
+
+start-xaland3:
+ java xaland 12347 12348 \
+ $(HELM_STYLES_DIR)/rootcontent.xsl \
+ $(HELM_STYLES_DIR)/annotatedpres.xsl \
+ $(HELM_STYLES_DIR)/theory_content.xsl \
+ $(HELM_STYLES_DIR)/theory_pres.xsl
--- /dev/null
+#! /bin/sh
+
+export PATH=~/HELM/installation/jdk118/bin:$PATH
+
+#export CLASSPATH=/home/cadet/sacerdot/xalan-j_1_1/xalan.jar:/home/cadet/sacerdot/xalan-j_1_1/xerces.jar:.
+export CLASSPATH=~/HELM/installation/xalan-j_1_2/xalan.jar:~/HELM/installation/xalan-j_1_2/xerces.jar:.
+#export CLASSPATH=~/HELM/installation/xalan-j_1_2_1/xalan.jar:~/HELM/installation/xalan-j_1_2_1/xerces.jar:.
+#export CLASSPATH=/home/cadet/sacerdot/xalan-j_2_0_D01/bin/xalan.jar:/home/cadet/sacerdot/xalan-j_2_0_D01/bin/xerces.jar:.
+
+export HELM_STYLES_DIR=../V6.2/examples/style
+#export HELM_STYLES_DIR=../V7/examples/style
--- /dev/null
+#! /bin/sh
+
+export PATH=$PATH:/opt/java/jdk118/bin/
+
+export CLASSPATH=.
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xalan.jar
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/xalan_1_1/xerces.jar
+export CLASSPATH=$CLASSPATH:/home/lpadovan/helm/java/saxon-5.3.2/saxon.jar
+
+export HELM_STYLES_DIR=../V6.2/examples/style
--- /dev/null
+// Base header file. Must be first.
+#include <Include/PlatformDefinitions.hpp>
+
+#include <iostream>
+#include <fstream>
+
+#include <util/PlatformUtils.hpp>
+
+#include <PlatformSupport/DOMStringHelper.hpp>
+
+#include <DOMSupport/DOMSupportDefault.hpp>
+
+#include <XPath/XObjectFactoryDefault.hpp>
+#include <XPath/XPathSupportDefault.hpp>
+#include <XPath/XPathFactoryDefault.hpp>
+
+#include <XSLT/StylesheetConstructionContextDefault.hpp>
+#include <XSLT/StylesheetExecutionContextDefault.hpp>
+#include <XSLT/XSLTEngineImpl.hpp>
+#include <XSLT/XSLTInit.hpp>
+#include <XSLT/XSLTInputSource.hpp>
+#include <XSLT/XSLTProcessorEnvSupportDefault.hpp>
+#include <XSLT/XSLTResultTarget.hpp>
+
+#include <XercesParserLiaison/XercesDOMSupport.hpp>
+#include <XercesParserLiaison/XercesParserLiaison.hpp>
+
+int main(int argc, const char* [])
+{
+#if !defined(XALAN_NO_NAMESPACES)
+ using std::cerr;
+ using std::endl;
+ using std::ofstream;
+#endif
+
+ if (argc != 1) {
+ cerr << "Usage: SimpleTransform"
+ << endl
+ << endl;
+ } else {
+ try {
+ // Call the static initializer for Xerces...
+ XMLPlatformUtils::Initialize();
+
+ {
+ // Initialize the Xalan XSLT subsystem...
+ XSLTInit theInit;
+
+ // Create the support objects that are necessary for
+ // running the processor...
+ XercesDOMSupport theDOMSupport;
+ XercesParserLiaison theParserLiaison(theDOMSupport);
+ XPathSupportDefault theXPathSupport(theDOMSupport);
+ XSLTProcessorEnvSupportDefault theXSLTProcessorEnvSupport;
+ XObjectFactoryDefault theXObjectFactory;
+ XPathFactoryDefault theXPathFactory;
+
+ // Create a processor...
+ XSLTEngineImpl theProcessor(
+ theParserLiaison,
+ theXPathSupport,
+ theXSLTProcessorEnvSupport,
+ theDOMSupport,
+ theXObjectFactory,
+ theXPathFactory);
+
+ // Connect the processor to the support object...
+ theXSLTProcessorEnvSupport.setProcessor(&theProcessor);
+
+ // Create a stylesheet construction context, and a stylesheet
+ // execution context...
+ StylesheetConstructionContextDefault theConstructionContext(
+ theProcessor,
+ theXSLTProcessorEnvSupport,
+ theXPathFactory);
+
+ StylesheetExecutionContextDefault theExecutionContext(
+ theProcessor,
+ theXSLTProcessorEnvSupport,
+ theXPathSupport,
+ theXObjectFactory);
+
+ // Our input files...The assumption is that the executable will be
+ // run from same directory as the input files.
+ const XalanDOMString theXMLFileName("foo.xml");
+ const XalanDOMString theXSLFileName("foo.xsl");
+
+ // Our input sources...
+ XSLTInputSource theInputSource(c_wstr(theXMLFileName));
+ XSLTInputSource theStylesheetSource(c_wstr(theXSLFileName));
+
+ // Our output target...
+ const XalanDOMString theOutputFileName("foo.out");
+ XSLTResultTarget theResultTarget(theOutputFileName);
+
+ theProcessor.process(
+ theInputSource,
+ theStylesheetSource,
+ theResultTarget,
+ theConstructionContext,
+ theExecutionContext);
+
+ }
+
+ // Call the static terminator for Xerces...
+ XMLPlatformUtils::Terminate();
+ }
+ catch(...) {
+ cerr << "Exception caught!!!"
+ << endl
+ << endl;
+ }
+ }
+
+ return 0;
+}
+
+/**************************************************/
+/*
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! * /
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
+
+*/
--- /dev/null
+import java.net.*;
+
+public class rompi {
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
+ {
+ /* Wait forever ;-) */
+ DatagramSocket socket2 = new DatagramSocket(12346);
+ DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
+ System.out.println("Ho preso il socket e non lo lascio piu', caro pu, caro pu");
+ socket2.receive(packet2);
+ }
+}
--- /dev/null
+import java.net.*;
+
+public class sped {
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
+ {
+ String input = argv[0];
+ String out1 = argv[1];
+ String out2 = argv[2];
+
+ String sent = input + " " + out1 + " " + out2;
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket = new DatagramSocket();
+
+ int strlen = sent.length();
+ byte buf[] = new byte[strlen];
+ sent.getBytes(0,strlen,buf,0);
+ DatagramPacket packet = new DatagramPacket(buf,strlen,address,12345);
+
+ socket.send(packet);
+
+
+ /* Wait for answer (or forever ;-) */
+ DatagramSocket socket2 = new DatagramSocket(12346);
+ DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
+ socket2.receive(packet2);
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+/*
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+*/
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor =
+ XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+import org.apache.xalan.xslt.*;
+import java.net.*;
+import java.io.*;
+
+public class xaland {
+ public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
+ XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
+ style.process(xmlSource, xmlResult);
+ }
+
+ public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot theory_style1 =
+ theory_processor.processStylesheet(theory_xsl1);
+ theory_processor.reset();
+ StylesheetRoot theory_style2 =
+ theory_processor.processStylesheet(theory_xsl2);
+ theory_processor.setStylesheet(theory_style2);
+
+ XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
+ StylesheetRoot style1 = processor.processStylesheet(xsl1);
+ processor.reset();
+ StylesheetRoot style2 = processor.processStylesheet(xsl2);
+ processor.setStylesheet(style2);
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ processor.setDocumentHandler(style2.getSAXSerializer(fout));
+ XSLTResultTarget content = new XSLTResultTarget(processor);
+ style1.process(new XSLTInputSource(input), content);
+ } else if (mode.equals("theory")) {
+ theory_processor.setDocumentHandler(
+ theory_style2.getSAXSerializer(fout));
+ XSLTResultTarget content =
+ new XSLTResultTarget(theory_processor);
+ theory_style1.process(new XSLTInputSource(input), content);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
--- /dev/null
+import java.net.*;
+import java.io.*;
+
+// Imported TraX classes
+import org.apache.trax.Processor;
+import org.apache.trax.Templates;
+import org.apache.trax.Transformer;
+import org.apache.trax.Result;
+import org.apache.trax.ProcessorException;
+import org.apache.trax.ProcessorFactoryException;
+import org.apache.trax.TransformException;
+
+// Imported SAX classes
+import org.xml.sax.InputSource;
+import org.xml.sax.SAXException;
+import org.xml.sax.Parser;
+import org.xml.sax.helpers.ParserAdapter;
+import org.xml.sax.helpers.XMLReaderFactory;
+import org.xml.sax.XMLReader;
+import org.xml.sax.ContentHandler;
+import org.xml.sax.ext.LexicalHandler;
+
+// Imported DOM classes
+import org.w3c.dom.Node;
+
+// Imported Serializer classes
+import org.apache.serialize.OutputFormat;
+import org.apache.serialize.Serializer;
+import org.apache.serialize.SerializerFactory;
+
+// Imported JAVA API for XML Parsing 1.0 classes
+import javax.xml.parsers.DocumentBuilder;
+import javax.xml.parsers.DocumentBuilderFactory;
+import javax.xml.parsers.ParserConfigurationException;
+
+
+public class xaland2 {
+ public static void main(String argv[]) throws IOException, MalformedURLException, SAXException, ParserConfigurationException
+ {
+ int port = Integer.parseInt(argv[0]);
+ int port2 = Integer.parseInt(argv[1]);
+ String xsl1 = argv[2];
+ String xsl2 = argv[3];
+ String theory_xsl1 = argv[4];
+ String theory_xsl2 = argv[5];
+
+ Processor theory_processor = Processor.newInstance("xslt");
+ Templates theory_style1 = theory_processor.process(new InputSource(theory_xsl1));
+ Transformer theory_transformer1 = theory_style1.newTransformer();
+
+ Templates theory_style2 = theory_processor.process(new InputSource(theory_xsl2));
+ Transformer theory_transformer2 = theory_style2.newTransformer();
+
+
+ Processor processor = Processor.newInstance("xslt");
+ Templates style1 = processor.process(new InputSource(xsl1));
+ Transformer transformer1 = style1.newTransformer();
+
+ Templates style2 = processor.process(new InputSource(xsl2));
+ Transformer transformer2 = style2.newTransformer();
+
+
+ DatagramSocket socket = new DatagramSocket(port);
+
+ System.out.println("Demon activated on input port " + port +
+ " and output port " + port2);
+ while(true) {
+ System.out.print("Ready...");
+
+ /* Warning: the packet must be a fresh one! */
+ DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
+ socket.receive(packet);
+ byte data[] = packet.getData();
+ int datalen = packet.getLength();
+ String received = new String(data,0,datalen);
+
+ int first = received.indexOf(' ');
+ int last = received.lastIndexOf(' ');
+ String mode = received.substring(0,first);
+ String input = received.substring(first+1,last);
+ String output = received.substring(last+1);
+
+ System.out.println("request received! Parameters are");
+ System.out.println("Mode: " + mode + " ");
+ System.out.println("Input file: \"" + input + "\"");
+ System.out.println("Output file: \"" + output + "\"\n");
+
+ if ((new File(output)).exists()) {
+ System.out.println("Using cached version\n");
+ } else {
+ FileOutputStream fout = new FileOutputStream(output);
+ if (mode.equals("cic")) {
+ XMLReader reader = XMLReaderFactory.createXMLReader();
+ ContentHandler chandler = transformer1.getInputContentHandler();
+ reader.setContentHandler(chandler);
+ if (chandler instanceof LexicalHandler)
+ reader.setProperty("http://xml.org/sax/properties/lexical-handler", chandler);
+ else
+ reader.setProperty("http://xml.org/sax/properties/lexical-handler", null);
+
+ transformer1.setContentHandler(transformer2.getInputContentHandler());
+ Serializer serializer = SerializerFactory.getSerializer("xml");
+ serializer.setOutputStream(fout);
+ transformer2.setContentHandler(serializer.asContentHandler());
+
+ reader.parse(input);
+ } else if (mode.equals("theory")) {
+ XMLReader reader = XMLReaderFactory.createXMLReader();
+ ContentHandler chandler = theory_transformer1.getInputContentHandler();
+ reader.setContentHandler(chandler);
+ if (chandler instanceof LexicalHandler)
+ reader.setProperty("http://xml.org/sax/properties/lexical-handler", chandler);
+ else
+ reader.setProperty("http://xml.org/sax/properties/lexical-handler", null);
+
+ theory_transformer1.setContentHandler(theory_transformer2.getInputContentHandler());
+ Serializer serializer = SerializerFactory.getSerializer("xml");
+ serializer.setOutputStream(fout);
+ theory_transformer2.setContentHandler(serializer.asContentHandler());
+
+ reader.parse(input);
+ }
+ }
+
+ InetAddress address = InetAddress.getLocalHost();
+ DatagramSocket socket2 = new DatagramSocket();
+
+ byte buf[] = new byte[0];
+ DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
+
+ socket2.send(packet2);
+ }
+ }
+}
projects / helm.git / commitdiff