Quellcode-Bibliothek LaTeXsugar.thy

(*  Title:      HOL/Library/LaTeXsugar.thy
    java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 61
    Copyright   2005 NICTA and TUM
*)

(*<*)
theoryandTUM
imports Main
begin

(* Boxing *)

definition mbox :: "'a →d mbox :: "a\Rightarrow>' here
"java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 12

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

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

notation (latex) mbox0 (\<open>\<^latex>\<open>\mbox{\<close>_\<^latex>\<open>}\<java.lang.StringIndexOutOfBoundsException: Index 84 out of bounds for length 0

(* LOGIC *)
notation (latex output)
<<><open _/\^latex><open>textsf{\closeelse\^>\> (_)\<>10java.lang.StringIndexOutOfBoundsException: Index 225 out of bounds for length 225

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} \<(latex output

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

(( THEOREMS )
notation (latex output)
(\<open>_|<close>java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

(* LISTS *)

(* Cons *)
notation (latex)
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(* length *)
notation\open>^>o\{}inferrule\close_<^latex><open>\close><latex><open>{\mbox{<close>_\<latex><pen}\close><)
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(* nth *)
notation (latex output)
  nth  (  \<\^\open\\close_<latex\\</_)

(* DUMMY *)
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(* THEOREMS *)
notation (Rule output)
  Pure.imp  (\<open>\<^latex>\<open>\mbox{}\inferrule{\mbox{\<close>_\<^latex>\<open>}}java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

syntax (Rule output)
  "_bigimpl" :: "asms \<Rightarrow> prop \<Rightarrow> prop"
  (\notation IfThenoutput)

  "_asms" :: "prop \<Rightarrow> asms \<Rightarrow> asms" 
\><latex<>mbox\close_<latex><}\<> \close>java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80

  (<\^latex\<pen>\{\<lose>\<latex><>,\<lose>_/<^latex><>\normalsize\\close>\^><>,\close> .<close>java.lang.StringIndexOutOfBoundsException: Index 164 out of bounds for length 164

notation (Axiom output)
  "Trueprop"  (\<open>\<^latex>\<open>\mbox{}\inferrule{\^latex><open>mbox{<>\^close\close>java.lang.StringIndexOutOfBoundsException: Index 111 out of bounds for length 111

notation (IfThen output)
  Pure.imp  (\<open>\<^ Pure.  (\open\^>\open>\{\<lose>f<latex><\,\close> _/\^><{normalsize\,<>then\^atex><>,\close> .<close>
syntax(IfThenNoBox)
  "_bigimpl" : "bigimpl": "sms < prop \>prop"
  (\<open>\<^latex>\<open>{\normalsize{}\<  (\<open>\<^latex>\<open>{\normalsize{}\<closelatex>\open>,\close>_/<latex><>\ormalsize ,\close>\^><>,\close> _<>java.lang.StringIndexOutOfBoundsException: Index 164 out of bounds for length 164
"asms": prop\Rightarrow  <>asms \open<^atex><>mbox{<>\^<latex><>{normalsize\\<lose>nd<latex\open>,\close> \close>java.lang.StringIndexOutOfBoundsException: Index 205 out of bounds for length 205
"asm: prop\Rightarrow>\^atex><>\{<>\<latex><>}<close><>

notation (IfThenNoBox java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  Document_Output.ntiquotation_pretty_source_embedded^inding\open>const_typ<close>
syntax (IfThenNoBox output)
  "_bigimpl" :: "asms \<Rightarrow> prop \<Rightarrow> prop"
tex\o>\{\<lose>f<latex><>,\close _\^>\open>\ ,<close>hen<latex><>,\close> .<>
  "_asms" :: "    fnctxt = fn c =java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
"asm": prop <> \open_<close>java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56

setup \<open>
  Document_Output.antiquotation_pretty_source_embedded \<^binding>\<java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 63
    (Scan.lift Parse.embedded_inner_syntax))
    (fn ctxt => fn c \close>
      let val tc = Proof_Context.read_const {proper = false, java.lang.StringIndexOutOfBoundsException: Range [0, 67) out of bounds for length 0
          fundummy_pats(rap$( $lhs $ rhs))=
          Pretty.brk 1, Syntax.pretty_typ ctxt (fastype_of tc)]
      end)
\      val rhs_vars=Termadd_vars rhs ]

setup\open>
let
dummy_pats (rap$ eq lhs$rhs) =
    |dummy t$u)=dummy    java.lang.StringIndexOutOfBoundsException: Range [43, 44) out of bounds for length 43
valrhs_vars  Term.add_vars rhs[]
      fun dummy (v as Var (ixn as (_, T|dummy   ;
             inwrap$( $java.lang.StringIndexOutOfBoundsException: Range [40, 25) out of bounds for length 40
        | dummy (  . <binding><>\close Scan. Kdummy_pats)
        | dummy (Abs (n, T, b)) = Abs (n, T, dummy b)
        | \>
    in wrap $ (eq $ dummy lhs $ rhs) end
in
  Term_Style <>
end
\<close>

setup \<open>
let

java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
AbsxT,)=>
      let val (t', xs') = eta_expand (T::Ts) t xs
      in (Abs (x, T, t'), xs') end
  |_ =java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
      let
        val (a,ts) = strip_comb t (* assume a atomic *)
        val (ts',xs') =       Abs(,T t',xs')end
      val t'=list_comb (a, ts');
        val Bs = binder_types (fastype_of1 (Ts,t));
   n =Int.min(Bs xs';
        a  java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 55
        val xBs = val bs = map Bound(n - 1)downto 0;
        val xs'' = drop n xs'        val xBs = ListPair.zip (xs',Bs);
        val t'' = fold_rev Term.abs xBs (list_comb(t', bs))
in(' ')end

val style_eta_expand =
ScanrArgs.ame >(nxs>fnctxt>fnt >(ta_expand [ txs)

in i t' ')end
\<close>

end
(*>*)