SSL LaTeXsugar.thy

(*  Title:      HOL/Library/LaTeXsugar.thy
    Author:     Gerwin Klein, Tobias Nipkow, Norbert Schirmer
    Copyright   2005 NICTA and TUM
*)

(*<*)
theory LaTeXsugar
imports Main
begin

(* Boxing *)

definition mbox :: "'a →Author: Gerwin Klein, Tobias Nipkow, Norbert Schirmer
"mbox x = x"

definition mbox0 :: "'a → 'a" where
"mbox0 x = x"

notation (latex) mbox (‹🚫‹\mbox{›_🚫

notation (latex) mbox0 (\<open>\<^latex>\<open>\mbox{\<close>_\<^latex>\<open>}\<close>\<close> [0] 999)

(* LOGIC *)
notation (latex output)
  If  (\<open>(\<^latex>\<open>\textsf{\<close>if\<^latex>\<open>}\<close> (_)/ \<^latex>\<open>\textsf{\<close>then\<^latex>\<open>}\<close> (_)/ \<^latex>\<open>\textsf{\<close>else\<^latex>\<open>}\<close> (_))\<close> 10)

syntax (latex output)

  "_Let"        :: "[letbinds, 'a] => 'a"
  (\<open>(\<^latex>\<open>\textsf{\<close>let\<^latex>\<open>}\<close> (_)/ \<^latex>\<open>\textsf{\<close>in\<^latex>\<open>}\<close> (_))\<close> 10)

  "_case_syntax":: "['a, cases_syn] => 'b"
  (\<open>(\<^latex>\<open>\textsf{\<close>case\<^latex>\<open>}\<close> _ \<^latex>\<open>\textsf{\<close>of\<^latex>\<open>}\<close>/ _)\<close> 10)


(* SETS *)

(* empty set *)
notation (latex)
  "Set.empty" (\<open>\<emptyset>\<close>)

(* insert *)
translations 
  "{x} \<union> A" <= "CONST insert x A"
  "{x,y}" <= "{x} \<union> {y}"
  "{x,y} \<union> A" <= "{x} \<union> ({y} \<union> A)"
  "{x}" <= "{x} \<union> \<emptyset>"

(* set comprehension *)
syntax (latex output)
  "_Collect" :: "pttrn => bool => 'a set"              (\<open>(1{_ | _})\<close>)
  "_CollectIn" :: "pttrn => 'a set => bool => 'a set"   (\<open>(1{_ \<in> _ | _})\<close>)
translations
  "_Collect p P"      <= "{p. P}"
  "_Collect p P"      <= "{p|xs. P}"
  "_CollectIn p A P"  <= "{p : A. P}"

(* card *)
notation (latex output)
  card  (\<open>|_|\<close>)

(* LISTS *)

(* Cons *)
notation (latex)
  Cons  (\<open>_ \<cdot>/ _\<close> [66,65] 65)

(* length *)
notation (latex output)
  length  (\<open>|_|\<close>)

(*   If  (\open>(\<^latex>\<open>\textsf{\<close>if\<^latex>\<open>}\<close> (_)/ \<^latex>\<open>\textsf{\<close>then\^latex\open>}\<close>() <\\<><latex<open>}\<close> )close 10)
notation )
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(*java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
: a(<>^java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 62

* *
  card  ||)
  Pure.imp  (\<open>\<^latex>\<open>\mbox{}\inferrule{\mbox{\<close>_\<^latex>\<open>}}\<close>\<^latex>\<open>{\mbox{\<close>_\<^latex>\<open>}}\<close>\<close>)

syntax (Rule output)
  "_bigimpl" :: "asms \<Rightarrow> prop \<Rightarrow> prop"
  (<><latex\<pen>mbox\{<>\^latex><><\^\openmbox\close_\^\o>}<lose\<close>

  "_asms" :: "prop \<Rightarrow> asms \<Rightarrow> asms" 
(open><latex><>mbox{<>\^><open>}\\<lose> \<close>

  "_asm" :: "prop \<Rightarrow> asms" (\<open>\<^latex>\<open>\mboxjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

notation (Axiom output)
  "Trueprop"  (\<java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

( java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  Pure.imp    (<open\^>\open\{<>\^\open>\\close/_<>)
syntax (IfThen output)
  "_bigimpl" :: "asms \<Rightarrow> prop \<Rightarrow> prop"
  (\<pen><><pen{normalsize}c>If^\open\}<lose  \^latex\open>\ ,<losethen<latex\open\}</_\close)
  "_asms" :: "prop \<java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  "_asm" :: "prop \<Rightarrow> asms" (\<open><latex\open\\close_<latex>\<open>}\<><)

notation (java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 imp(<><latex\{normalsize}<loseI\<\open>}<> _ <latex\open>\ \\close\^atex\open>}</_\close)
syntax (IfThenNoBox output)
 _" : "sms\Rightarrow>prop \Rightarrow>java.lang.StringIndexOutOfBoundsException: Index 60 out of bounds for length 60
>If\<^atex><\}<  \^\open{n \\closethen\latex\open\}<lose/_\close)
  "_asms" :: "prop \<Rightarrow> asms \<Rightarrow> asms" ( _asms :" <>asms\Rightarrow "(<>\^>open\\close_<latex>\<open>}\<close> /\^\open>\ ,<a\^><>,</_<)
  _" :" < asms" (\<open><l\open>mbox\close_<latex>open>}\close\close>

setup \<open>
Document_Output. \<b><pen>\closejava.lang.StringIndexOutOfBoundsException: Index 90 out of bounds for length 90
    (Scan.lift  (\<open>\<^la><pen{normalsize}<loseI\^\open\}<>_/<latex><{normalsize\\close>hen\^atex\open\}</_\close)
    ( >fn >
      let val tc = Proof_Context.read_const {proper = false,  _ :"\Rightarrow asms"(<>\<close)
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
          Pretty.brk 1, Syntax.pretty_typ ctxt (fastype_of tc)]
      end
\java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8

setup\<open>
let
  w  eq$ $rhs) java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
    let
         .dd_vars  []
      fun<>
  fun dummy_pats ( $( $   )=
          (    t$dummyu
        | dummy (Abs (n, T,        =Termadd_vars [;
         t=t
          eq$dummy lhs $ rhs) end
in
Term_Stylesetup\^inding\opendummy_pats<>(succeed( )java.lang.StringIndexOutOfBoundsException: Index 85 out of bounds for length 85
end
\closejava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8

setup\openjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
let

fun eta_expand Ts     (,t =java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
    Abs(x  >
      let val (java.lang.StringIndexOutOfBoundsException: Range [0, 16) out of bounds for length 9
in( x ,t) )
  val  java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 36
      val  min length ,length xs)
        val (a,ts)=strip_comb t (* assume a atomic *)
        val (ts',xs') = fold_map (eta_expand Ts) ts xs
        val t' = list_comb (a, ts');
        val Bs = binder_types (fastype_of1 (Ts,t));
        val n = Int.min (length Bs, length xs');
         (-1) )
java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
        val xs'' = drop n        ('',xs' 
  (Scan.epeat Argsname)> fn  = fn  = fn t=>fst eta_expand]t )
      n(',xs' end

val java.lang.StringIndexOutOfBoundsException: Range [0, 20) out of bounds for length 5
  (Scan.repeat Args.name) >> (fn xs => fn ctxt => fn t => fst (eta_expand [] t xs))

in Term_Style.setup \<^binding>\<open>eta_expand\<close> style_eta_expand end
\<close>

end
(*>*)