Theory OptionalSugar (Isabelle2005: October 2005)

# Theory OptionalSugar

Up to index of Isabelle/HOL/Library

theory OptionalSugar
imports LaTeXsugar
begin

    (*  Title:      HOL/Library/OptionalSugar.thy
        ID:         $Id: OptionalSugar.thy,v 1.2 2005/01/27 12:33:21 nipkow Exp $
        Author:     Gerwin Klain, Tobias Nipkow
        Copyright   2005 NICTA and TUM
    *)
    (*<*)
    theory OptionalSugar
    imports LaTeXsugar
    begin

    (* append *)
    syntax (latex output)
      "appendL" :: "'a list => 'a list => 'a list" (infixl "\isacharat" 65)
    translations
      "appendL xs ys" <= "xs @ ys"
      "appendL (appendL xs ys) zs" <= "appendL xs (appendL ys zs)"

    (* aligning equations *)
    syntax (tab output)
      "op =" :: "'a => 'a => 'a" ("(_) }\putisatab\isa{\ =}\putisatab\isa{ (_)" [50,49] 50)
      "==" :: "prop => prop => prop" ("(_) }\putisatab\isa{\ ≡}\putisatab\isa{ (_)")

    (* Let *)
    translations
      "_bind (p,DUMMY) e" <= "_bind p (fst e)"
      "_bind (DUMMY,p) e" <= "_bind p (snd e)"

      "_tuple_args x (_tuple_args y z)" ==
        "_tuple_args x (_tuple_arg (_tuple y z))"

      "_bind (Some p) e" <= "_bind p (the e)"
      "_bind (p#DUMMY) e" <= "_bind p (hd e)"
      "_bind (DUMMY#p) e" <= "_bind p (tl e)"

    end
    (*>*)