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.6 2007/05/06 11:33:39 nipkow Exp $
    Author:     Gerwin Klain, Tobias Nipkow
    Copyright   2005 NICTA and TUM
*)
(*<*)
theory OptionalSugar
imports LaTeXsugar
begin

(* set *)
translations
  "xs" <= "set xs"

(* 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 *)
notation (tab output)
  "op ="  ("(_) }\putisatab\isa{\ =}\putisatab\isa{ (_)" [50,49] 50) and
  "=="  ("(_) }\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
(*>*)