diff -r 3d4ad560b2ff -r ac335b2f4a39 src/HOL/Bali/AxSound.thy --- a/src/HOL/Bali/AxSound.thy Fri Nov 01 10:35:50 2002 +0100 +++ b/src/HOL/Bali/AxSound.thy Fri Nov 01 13:16:28 2002 +0100 @@ -569,7 +569,11 @@ ultimately show ?thesis using Q by simp qed qed -next +next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (AVar A P Q R e1 e2) have valid_e1: "G,A|\\{ {Normal P} e1-\ {Q} }" . have valid_e2: "\ a. G,A|\\{ {Q\In1 a} e2-\ {\Val:i:. avar G i a ..; R} }" @@ -879,6 +883,10 @@ qed qed next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (BinOp A P Q R binop e1 e2) assume valid_e1: "G,A|\\{ {Normal P} e1-\ {Q} }" have valid_e2: "\ v1. G,A|\\{ {Q\In1 v1} @@ -1216,6 +1224,10 @@ qed qed next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (Call A P Q R S accC' args e mn mode pTs' statT) have valid_e: "G,A|\\{ {Normal P} e-\ {Q} }" . have valid_args: "\ a. G,A|\\{ {Q\In1 a} args\\ {R a} }" @@ -1799,6 +1811,10 @@ qed qed next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (Lab A P Q c l) have valid_c: "G,A|\\{ {Normal P} .c. {abupd (absorb l) .; Q} }". show "G,A|\\{ {Normal P} .l\ c. {Q} }" @@ -2202,6 +2218,10 @@ qed qed next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (Jmp A P j) show "G,A|\\{ {Normal (abupd (\a. Some (Jump j)) .; P\\)} .Jmp j. {P} }" proof (rule valid_stmt_NormalI) @@ -2473,6 +2493,10 @@ qed qed next +-- {* +\par +*} (* dummy text command to break paragraph for latex; + large paragraphs exhaust memory of debian pdflatex *) case (Done A C P) show "G,A|\\{ {Normal (P\\ \. initd C)} .Init C. {P} }" proof (rule valid_stmt_NormalI)