doc-src/TutorialI/Types/document/Numbers.tex
author wenzelm
Mon, 08 Oct 2001 12:28:43 +0200
changeset 11708 d27253c4594f
parent 11480 0fba0357c04c
child 11866 fbd097aec213
permissions -rw-r--r--
*** empty log message ***
paulson@10602
     1
%
paulson@11187
     2
\begin{isabellebody}%
paulson@11187
     3
\def\isabellecontext{Numbers}%
paulson@10602
     4
\isanewline
paulson@11187
     5
\isacommand{theory}\ Numbers\ {\isacharequal}\ Real{\isacharcolon}\isanewline
paulson@10602
     6
\isanewline
paulson@11187
     7
\isacommand{ML}\ {\isachardoublequote}Pretty{\isachardot}setmargin\ {\isadigit{6}}{\isadigit{4}}{\isachardoublequote}\isanewline
paulson@11187
     8
\isacommand{ML}\ {\isachardoublequote}IsarOutput{\isachardot}indent\ {\isacharcolon}{\isacharequal}\ {\isadigit{0}}{\isachardoublequote}%
paulson@11187
     9
\begin{isamarkuptext}%
paulson@10602
    10
numeric literals; default simprules; can re-orient%
paulson@11187
    11
\end{isamarkuptext}%
wenzelm@11708
    12
\isacommand{lemma}\ {\isachardoublequote}{\isadigit{2}}\ {\isacharasterisk}\ m\ {\isacharequal}\ m\ {\isacharplus}\ m{\isachardoublequote}%
paulson@11187
    13
\begin{isamarkuptxt}%
paulson@11187
    14
\begin{isabelle}%
wenzelm@11708
    15
\ {\isadigit{1}}{\isachardot}\ {\isacharparenleft}{\isadigit{2}}{\isasymColon}{\isacharprime}a{\isacharparenright}\ {\isacharasterisk}\ m\ {\isacharequal}\ m\ {\isacharplus}\ m%
paulson@11187
    16
\end{isabelle}%
paulson@11187
    17
\end{isamarkuptxt}%
paulson@10878
    18
\isacommand{oops}\isanewline
paulson@10878
    19
\isanewline
paulson@11187
    20
\isacommand{consts}\ h\ {\isacharcolon}{\isacharcolon}\ {\isachardoublequote}nat\ {\isasymRightarrow}\ nat{\isachardoublequote}\isanewline
paulson@11187
    21
\isacommand{recdef}\ h\ {\isachardoublequote}{\isacharbraceleft}{\isacharbraceright}{\isachardoublequote}\isanewline
wenzelm@11708
    22
{\isachardoublequote}h\ i\ {\isacharequal}\ {\isacharparenleft}if\ i\ {\isacharequal}\ {\isadigit{3}}\ then\ {\isadigit{2}}\ else\ i{\isacharparenright}{\isachardoublequote}%
paulson@11187
    23
\begin{isamarkuptext}%
wenzelm@11708
    24
\isa{h\ {\isadigit{3}}\ {\isacharequal}\ {\isadigit{2}}}
paulson@11187
    25
\isa{h\ i\ {\isacharequal}\ i}%
paulson@11187
    26
\end{isamarkuptext}%
paulson@10878
    27
%
paulson@11187
    28
\begin{isamarkuptext}%
paulson@11187
    29
\begin{isabelle}%
wenzelm@11708
    30
Numeral{\isadigit{0}}\ {\isacharequal}\ {\isadigit{0}}%
paulson@11187
    31
\end{isabelle}
paulson@11174
    32
\rulename{numeral_0_eq_0}
paulson@11187
    33
paulson@11187
    34
\begin{isabelle}%
wenzelm@11708
    35
Numeral{\isadigit{1}}\ {\isacharequal}\ {\isadigit{1}}%
paulson@10602
    36
\end{isabelle}
paulson@11187
    37
\rulename{numeral_1_eq_1}
paulson@10602
    38
paulson@11187
    39
\begin{isabelle}%
wenzelm@11708
    40
{\isadigit{2}}\ {\isacharplus}\ n\ {\isacharequal}\ Suc\ {\isacharparenleft}Suc\ n{\isacharparenright}%
paulson@10602
    41
\end{isabelle}
paulson@11187
    42
\rulename{add_2_eq_Suc}
paulson@10602
    43
paulson@11187
    44
\begin{isabelle}%
wenzelm@11708
    45
n\ {\isacharplus}\ {\isadigit{2}}\ {\isacharequal}\ Suc\ {\isacharparenleft}Suc\ n{\isacharparenright}%
paulson@10602
    46
\end{isabelle}
paulson@11187
    47
\rulename{add_2_eq_Suc'}
paulson@10602
    48
paulson@11187
    49
\begin{isabelle}%
paulson@11187
    50
m\ {\isacharplus}\ n\ {\isacharplus}\ k\ {\isacharequal}\ m\ {\isacharplus}\ {\isacharparenleft}n\ {\isacharplus}\ k{\isacharparenright}%
paulson@10602
    51
\end{isabelle}
paulson@11187
    52
\rulename{add_assoc}
paulson@10602
    53
paulson@11187
    54
\begin{isabelle}%
paulson@11187
    55
m\ {\isacharplus}\ n\ {\isacharequal}\ n\ {\isacharplus}\ m%
paulson@10602
    56
\end{isabelle}
paulson@11187
    57
\rulename{add_commute}
paulson@10602
    58
paulson@11187
    59
\begin{isabelle}%
paulson@11187
    60
x\ {\isacharplus}\ {\isacharparenleft}y\ {\isacharplus}\ z{\isacharparenright}\ {\isacharequal}\ y\ {\isacharplus}\ {\isacharparenleft}x\ {\isacharplus}\ z{\isacharparenright}%
paulson@10602
    61
\end{isabelle}
paulson@11174
    62
\rulename{add_left_commute}
paulson@10602
    63
paulson@10602
    64
these form add_ac; similarly there is mult_ac%
paulson@11187
    65
\end{isamarkuptext}%
paulson@11187
    66
\isacommand{lemma}\ {\isachardoublequote}Suc{\isacharparenleft}i\ {\isacharplus}\ j{\isacharasterisk}l{\isacharasterisk}k\ {\isacharplus}\ m{\isacharasterisk}n{\isacharparenright}\ {\isacharequal}\ f\ {\isacharparenleft}n{\isacharasterisk}m\ {\isacharplus}\ i\ {\isacharplus}\ k{\isacharasterisk}j{\isacharasterisk}l{\isacharparenright}{\isachardoublequote}%
paulson@11187
    67
\begin{isamarkuptxt}%
paulson@11187
    68
\begin{isabelle}%
paulson@11187
    69
\ {\isadigit{1}}{\isachardot}\ Suc\ {\isacharparenleft}i\ {\isacharplus}\ j\ {\isacharasterisk}\ l\ {\isacharasterisk}\ k\ {\isacharplus}\ m\ {\isacharasterisk}\ n{\isacharparenright}\ {\isacharequal}\ f\ {\isacharparenleft}n\ {\isacharasterisk}\ m\ {\isacharplus}\ i\ {\isacharplus}\ k\ {\isacharasterisk}\ j\ {\isacharasterisk}\ l{\isacharparenright}%
paulson@11187
    70
\end{isabelle}%
paulson@11187
    71
\end{isamarkuptxt}%
paulson@11187
    72
\isacommand{apply}\ {\isacharparenleft}simp\ add{\isacharcolon}\ add{\isacharunderscore}ac\ mult{\isacharunderscore}ac{\isacharparenright}%
paulson@11187
    73
\begin{isamarkuptxt}%
paulson@11187
    74
\begin{isabelle}%
paulson@11187
    75
\ {\isadigit{1}}{\isachardot}\ Suc\ {\isacharparenleft}i\ {\isacharplus}\ {\isacharparenleft}m\ {\isacharasterisk}\ n\ {\isacharplus}\ j\ {\isacharasterisk}\ {\isacharparenleft}k\ {\isacharasterisk}\ l{\isacharparenright}{\isacharparenright}{\isacharparenright}\ {\isacharequal}\isanewline
paulson@11187
    76
\isaindent{\ {\isadigit{1}}{\isachardot}\ }f\ {\isacharparenleft}i\ {\isacharplus}\ {\isacharparenleft}m\ {\isacharasterisk}\ n\ {\isacharplus}\ j\ {\isacharasterisk}\ {\isacharparenleft}k\ {\isacharasterisk}\ l{\isacharparenright}{\isacharparenright}{\isacharparenright}%
paulson@11187
    77
\end{isabelle}%
paulson@11187
    78
\end{isamarkuptxt}%
paulson@11187
    79
\isacommand{oops}%
paulson@11187
    80
\begin{isamarkuptext}%
paulson@11187
    81
\begin{isabelle}%
paulson@11187
    82
{\isasymlbrakk}i\ {\isasymle}\ j{\isacharsemicolon}\ k\ {\isasymle}\ l{\isasymrbrakk}\ {\isasymLongrightarrow}\ i\ {\isacharasterisk}\ k\ {\isasymle}\ j\ {\isacharasterisk}\ l%
paulson@10602
    83
\end{isabelle}
paulson@11187
    84
\rulename{mult_le_mono}
paulson@11187
    85
paulson@11187
    86
\begin{isabelle}%
paulson@11187
    87
{\isasymlbrakk}i\ {\isacharless}\ j{\isacharsemicolon}\ {\isadigit{0}}\ {\isacharless}\ k{\isasymrbrakk}\ {\isasymLongrightarrow}\ i\ {\isacharasterisk}\ k\ {\isacharless}\ j\ {\isacharasterisk}\ k%
paulson@11174
    88
\end{isabelle}
paulson@11187
    89
\rulename{mult_less_mono1}
paulson@11187
    90
paulson@11187
    91
\begin{isabelle}%
paulson@11187
    92
m\ {\isasymle}\ n\ {\isasymLongrightarrow}\ m\ div\ k\ {\isasymle}\ n\ div\ k%
paulson@11174
    93
\end{isabelle}
paulson@11187
    94
\rulename{div_le_mono}
paulson@10602
    95
paulson@11187
    96
\begin{isabelle}%
paulson@11187
    97
{\isacharparenleft}m\ {\isacharplus}\ n{\isacharparenright}\ {\isacharasterisk}\ k\ {\isacharequal}\ m\ {\isacharasterisk}\ k\ {\isacharplus}\ n\ {\isacharasterisk}\ k%
paulson@10602
    98
\end{isabelle}
paulson@11187
    99
\rulename{add_mult_distrib}
paulson@10602
   100
paulson@11187
   101
\begin{isabelle}%
paulson@11187
   102
{\isacharparenleft}m\ {\isacharminus}\ n{\isacharparenright}\ {\isacharasterisk}\ k\ {\isacharequal}\ m\ {\isacharasterisk}\ k\ {\isacharminus}\ n\ {\isacharasterisk}\ k%
paulson@10602
   103
\end{isabelle}
paulson@11187
   104
\rulename{diff_mult_distrib}
paulson@10602
   105
paulson@11187
   106
\begin{isabelle}%
paulson@11187
   107
m\ mod\ n\ {\isacharasterisk}\ k\ {\isacharequal}\ m\ {\isacharasterisk}\ k\ mod\ {\isacharparenleft}n\ {\isacharasterisk}\ k{\isacharparenright}%
paulson@10602
   108
\end{isabelle}
paulson@11187
   109
\rulename{mod_mult_distrib}
paulson@10602
   110
paulson@11187
   111
\begin{isabelle}%
paulson@11187
   112
P\ {\isacharparenleft}a\ {\isacharminus}\ b{\isacharparenright}\ {\isacharequal}\ {\isacharparenleft}{\isacharparenleft}a\ {\isacharless}\ b\ {\isasymlongrightarrow}\ P\ {\isadigit{0}}{\isacharparenright}\ {\isasymand}\ {\isacharparenleft}{\isasymforall}d{\isachardot}\ a\ {\isacharequal}\ b\ {\isacharplus}\ d\ {\isasymlongrightarrow}\ P\ d{\isacharparenright}{\isacharparenright}%
paulson@10602
   113
\end{isabelle}
paulson@11187
   114
\rulename{nat_diff_split}%
paulson@11187
   115
\end{isamarkuptext}%
wenzelm@11708
   116
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}n\ {\isacharminus}\ {\isadigit{2}}{\isacharparenright}\ {\isacharasterisk}\ {\isacharparenleft}n\ {\isacharplus}\ {\isadigit{2}}{\isacharparenright}\ {\isacharequal}\ n\ {\isacharasterisk}\ n\ {\isacharminus}\ {\isacharparenleft}{\isadigit{4}}{\isacharcolon}{\isacharcolon}nat{\isacharparenright}{\isachardoublequote}\isanewline
paulson@11480
   117
\isacommand{apply}\ {\isacharparenleft}clarsimp\ split{\isacharcolon}\ nat{\isacharunderscore}diff{\isacharunderscore}split{\isacharparenright}\isanewline
paulson@11480
   118
\ %
paulson@11480
   119
\isamarkupcmt{\begin{isabelle}%
wenzelm@11708
   120
\ {\isadigit{1}}{\isachardot}\ {\isasymAnd}d{\isachardot}\ {\isasymlbrakk}n\ {\isacharless}\ {\isadigit{2}}{\isacharsemicolon}\ n\ {\isacharasterisk}\ n\ {\isacharequal}\ {\isadigit{4}}\ {\isacharplus}\ d{\isasymrbrakk}\ {\isasymLongrightarrow}\ d\ {\isacharequal}\ {\isadigit{0}}%
paulson@11480
   121
\end{isabelle}%
paulson@11480
   122
}
paulson@11480
   123
\isanewline
paulson@11480
   124
\isacommand{apply}\ {\isacharparenleft}subgoal{\isacharunderscore}tac\ {\isachardoublequote}n{\isacharequal}{\isadigit{0}}\ {\isacharbar}\ n{\isacharequal}{\isadigit{1}}{\isachardoublequote}{\isacharcomma}\ force{\isacharcomma}\ arith{\isacharparenright}\isanewline
paulson@11187
   125
\isacommand{done}%
paulson@11187
   126
\begin{isamarkuptext}%
paulson@11187
   127
\begin{isabelle}%
paulson@11187
   128
m\ mod\ n\ {\isacharequal}\ {\isacharparenleft}if\ m\ {\isacharless}\ n\ then\ m\ else\ {\isacharparenleft}m\ {\isacharminus}\ n{\isacharparenright}\ mod\ n{\isacharparenright}%
paulson@11187
   129
\end{isabelle}
paulson@11187
   130
\rulename{mod_if}
paulson@10602
   131
paulson@11187
   132
\begin{isabelle}%
paulson@11187
   133
m\ div\ n\ {\isacharasterisk}\ n\ {\isacharplus}\ m\ mod\ n\ {\isacharequal}\ m%
paulson@10602
   134
\end{isabelle}
paulson@11187
   135
\rulename{mod_div_equality}
paulson@10602
   136
paulson@11187
   137
paulson@11187
   138
\begin{isabelle}%
paulson@11187
   139
a\ {\isacharasterisk}\ b\ div\ c\ {\isacharequal}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ div\ c{\isacharparenright}\ {\isacharplus}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ mod\ c{\isacharparenright}\ div\ c%
paulson@10602
   140
\end{isabelle}
paulson@11187
   141
\rulename{div_mult1_eq}
paulson@11187
   142
paulson@11187
   143
\begin{isabelle}%
paulson@11187
   144
a\ {\isacharasterisk}\ b\ mod\ c\ {\isacharequal}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ mod\ c{\isacharparenright}\ mod\ c%
paulson@10602
   145
\end{isabelle}
paulson@11187
   146
\rulename{mod_mult1_eq}
paulson@10602
   147
paulson@11187
   148
\begin{isabelle}%
paulson@11187
   149
a\ div\ {\isacharparenleft}b\ {\isacharasterisk}\ c{\isacharparenright}\ {\isacharequal}\ a\ div\ b\ div\ c%
paulson@10602
   150
\end{isabelle}
paulson@11187
   151
\rulename{div_mult2_eq}
paulson@10602
   152
paulson@11187
   153
\begin{isabelle}%
paulson@11187
   154
a\ mod\ {\isacharparenleft}b\ {\isacharasterisk}\ c{\isacharparenright}\ {\isacharequal}\ b\ {\isacharasterisk}\ {\isacharparenleft}a\ div\ b\ mod\ c{\isacharparenright}\ {\isacharplus}\ a\ mod\ b%
paulson@11187
   155
\end{isabelle}
paulson@11187
   156
\rulename{mod_mult2_eq}
paulson@10602
   157
paulson@11187
   158
\begin{isabelle}%
paulson@11187
   159
{\isadigit{0}}\ {\isacharless}\ c\ {\isasymLongrightarrow}\ c\ {\isacharasterisk}\ a\ div\ {\isacharparenleft}c\ {\isacharasterisk}\ b{\isacharparenright}\ {\isacharequal}\ a\ div\ b%
paulson@10602
   160
\end{isabelle}
paulson@11187
   161
\rulename{div_mult_mult1}
paulson@10602
   162
paulson@11187
   163
\begin{isabelle}%
paulson@11187
   164
a\ div\ {\isadigit{0}}\ {\isacharequal}\ {\isadigit{0}}%
paulson@10602
   165
\end{isabelle}
paulson@11187
   166
\rulename{DIVISION_BY_ZERO_DIV}
paulson@10602
   167
paulson@11187
   168
\begin{isabelle}%
paulson@11187
   169
a\ mod\ {\isadigit{0}}\ {\isacharequal}\ a%
paulson@10602
   170
\end{isabelle}
paulson@11187
   171
\rulename{DIVISION_BY_ZERO_MOD}
paulson@10602
   172
paulson@11187
   173
\begin{isabelle}%
paulson@11187
   174
{\isasymlbrakk}m\ dvd\ n{\isacharsemicolon}\ n\ dvd\ m{\isasymrbrakk}\ {\isasymLongrightarrow}\ m\ {\isacharequal}\ n%
paulson@10602
   175
\end{isabelle}
paulson@11187
   176
\rulename{dvd_anti_sym}
paulson@10602
   177
paulson@11187
   178
\begin{isabelle}%
paulson@11187
   179
{\isasymlbrakk}k\ dvd\ m{\isacharsemicolon}\ k\ dvd\ n{\isasymrbrakk}\ {\isasymLongrightarrow}\ k\ dvd\ m\ {\isacharplus}\ n%
paulson@10602
   180
\end{isabelle}
paulson@11174
   181
\rulename{dvd_add}
paulson@10602
   182
paulson@10602
   183
For the integers, I'd list a few theorems that somehow involve negative 
paulson@10602
   184
numbers.  
paulson@10602
   185
paulson@10602
   186
Division, remainder of negatives
paulson@10602
   187
paulson@10602
   188
paulson@11187
   189
\begin{isabelle}%
wenzelm@11708
   190
Numeral{\isadigit{0}}\ {\isacharless}\ b\ {\isasymLongrightarrow}\ Numeral{\isadigit{0}}\ {\isasymle}\ a\ mod\ b%
paulson@11187
   191
\end{isabelle}
paulson@11174
   192
\rulename{pos_mod_sign}
paulson@11187
   193
paulson@11187
   194
\begin{isabelle}%
wenzelm@11708
   195
Numeral{\isadigit{0}}\ {\isacharless}\ b\ {\isasymLongrightarrow}\ a\ mod\ b\ {\isacharless}\ b%
paulson@10602
   196
\end{isabelle}
paulson@11187
   197
\rulename{pos_mod_bound}
paulson@10602
   198
paulson@11187
   199
\begin{isabelle}%
wenzelm@11708
   200
b\ {\isacharless}\ Numeral{\isadigit{0}}\ {\isasymLongrightarrow}\ a\ mod\ b\ {\isasymle}\ Numeral{\isadigit{0}}%
paulson@10602
   201
\end{isabelle}
paulson@11187
   202
\rulename{neg_mod_sign}
paulson@10602
   203
paulson@11187
   204
\begin{isabelle}%
wenzelm@11708
   205
b\ {\isacharless}\ Numeral{\isadigit{0}}\ {\isasymLongrightarrow}\ b\ {\isacharless}\ a\ mod\ b%
paulson@10602
   206
\end{isabelle}
paulson@11187
   207
\rulename{neg_mod_bound}
paulson@10602
   208
paulson@11187
   209
\begin{isabelle}%
paulson@11187
   210
{\isacharparenleft}a\ {\isacharplus}\ b{\isacharparenright}\ div\ c\ {\isacharequal}\ a\ div\ c\ {\isacharplus}\ b\ div\ c\ {\isacharplus}\ {\isacharparenleft}a\ mod\ c\ {\isacharplus}\ b\ mod\ c{\isacharparenright}\ div\ c%
paulson@10602
   211
\end{isabelle}
paulson@11187
   212
\rulename{zdiv_zadd1_eq}
paulson@10602
   213
paulson@11187
   214
\begin{isabelle}%
paulson@11187
   215
{\isacharparenleft}a\ {\isacharplus}\ b{\isacharparenright}\ mod\ c\ {\isacharequal}\ {\isacharparenleft}a\ mod\ c\ {\isacharplus}\ b\ mod\ c{\isacharparenright}\ mod\ c%
paulson@10602
   216
\end{isabelle}
paulson@11187
   217
\rulename{zmod_zadd1_eq}
paulson@10602
   218
paulson@11187
   219
\begin{isabelle}%
paulson@11187
   220
a\ {\isacharasterisk}\ b\ div\ c\ {\isacharequal}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ div\ c{\isacharparenright}\ {\isacharplus}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ mod\ c{\isacharparenright}\ div\ c%
paulson@10602
   221
\end{isabelle}
paulson@11187
   222
\rulename{zdiv_zmult1_eq}
paulson@10602
   223
paulson@11187
   224
\begin{isabelle}%
paulson@11187
   225
a\ {\isacharasterisk}\ b\ mod\ c\ {\isacharequal}\ a\ {\isacharasterisk}\ {\isacharparenleft}b\ mod\ c{\isacharparenright}\ mod\ c%
paulson@10602
   226
\end{isabelle}
paulson@11187
   227
\rulename{zmod_zmult1_eq}
paulson@10602
   228
paulson@11187
   229
\begin{isabelle}%
wenzelm@11708
   230
Numeral{\isadigit{0}}\ {\isacharless}\ c\ {\isasymLongrightarrow}\ a\ div\ {\isacharparenleft}b\ {\isacharasterisk}\ c{\isacharparenright}\ {\isacharequal}\ a\ div\ b\ div\ c%
paulson@10602
   231
\end{isabelle}
paulson@11187
   232
\rulename{zdiv_zmult2_eq}
paulson@10602
   233
paulson@11187
   234
\begin{isabelle}%
wenzelm@11708
   235
Numeral{\isadigit{0}}\ {\isacharless}\ c\ {\isasymLongrightarrow}\ a\ mod\ {\isacharparenleft}b\ {\isacharasterisk}\ c{\isacharparenright}\ {\isacharequal}\ b\ {\isacharasterisk}\ {\isacharparenleft}a\ div\ b\ mod\ c{\isacharparenright}\ {\isacharplus}\ a\ mod\ b%
paulson@10602
   236
\end{isabelle}
paulson@11187
   237
\rulename{zmod_zmult2_eq}
paulson@10602
   238
paulson@11187
   239
\begin{isabelle}%
paulson@11187
   240
{\isasymbar}x\ {\isacharasterisk}\ y{\isasymbar}\ {\isacharequal}\ {\isasymbar}x{\isasymbar}\ {\isacharasterisk}\ {\isasymbar}y{\isasymbar}%
paulson@10602
   241
\end{isabelle}
paulson@11187
   242
\rulename{abs_mult}%
paulson@11187
   243
\end{isamarkuptext}%
paulson@11187
   244
\isacommand{lemma}\ {\isachardoublequote}abs\ {\isacharparenleft}x{\isacharplus}y{\isacharparenright}\ {\isasymle}\ abs\ x\ {\isacharplus}\ abs\ {\isacharparenleft}y\ {\isacharcolon}{\isacharcolon}\ int{\isacharparenright}{\isachardoublequote}\isanewline
paulson@11174
   245
\isacommand{by}\ arith\isanewline
paulson@11174
   246
\isanewline
wenzelm@11708
   247
\isacommand{lemma}\ {\isachardoublequote}abs\ {\isacharparenleft}{\isadigit{2}}{\isacharasterisk}x{\isacharparenright}\ {\isacharequal}\ {\isadigit{2}}\ {\isacharasterisk}\ abs\ {\isacharparenleft}x\ {\isacharcolon}{\isacharcolon}\ int{\isacharparenright}{\isachardoublequote}\isanewline
paulson@11187
   248
\isacommand{by}\ {\isacharparenleft}simp\ add{\isacharcolon}\ zabs{\isacharunderscore}def{\isacharparenright}%
paulson@11187
   249
\begin{isamarkuptext}%
wenzelm@10776
   250
REALS
wenzelm@10776
   251
paulson@11187
   252
\begin{isabelle}%
paulson@11187
   253
{\isasymbar}r{\isasymbar}\ {\isacharcircum}\ n\ {\isacharequal}\ {\isasymbar}r\ {\isacharcircum}\ n{\isasymbar}%
paulson@11187
   254
\end{isabelle}
paulson@11174
   255
\rulename{realpow_abs}
paulson@11187
   256
paulson@11187
   257
\begin{isabelle}%
paulson@11187
   258
x\ {\isacharless}\ y\ {\isasymLongrightarrow}\ {\isasymexists}r{\isachardot}\ x\ {\isacharless}\ r\ {\isasymand}\ r\ {\isacharless}\ y%
wenzelm@10776
   259
\end{isabelle}
paulson@11187
   260
\rulename{real_dense}
paulson@11174
   261
paulson@11187
   262
\begin{isabelle}%
paulson@11187
   263
{\isasymbar}r{\isasymbar}\ {\isacharcircum}\ n\ {\isacharequal}\ {\isasymbar}r\ {\isacharcircum}\ n{\isasymbar}%
paulson@11174
   264
\end{isabelle}
paulson@11187
   265
\rulename{realpow_abs}
paulson@11174
   266
paulson@11187
   267
\begin{isabelle}%
paulson@11187
   268
x\ {\isacharasterisk}\ {\isacharparenleft}y\ {\isacharslash}\ z{\isacharparenright}\ {\isacharequal}\ x\ {\isacharasterisk}\ y\ {\isacharslash}\ z%
paulson@11174
   269
\end{isabelle}
paulson@11187
   270
\rulename{real_times_divide1_eq}
wenzelm@10776
   271
paulson@11187
   272
\begin{isabelle}%
paulson@11187
   273
y\ {\isacharslash}\ z\ {\isacharasterisk}\ x\ {\isacharequal}\ y\ {\isacharasterisk}\ x\ {\isacharslash}\ z%
wenzelm@10776
   274
\end{isabelle}
paulson@11187
   275
\rulename{real_times_divide2_eq}
wenzelm@10776
   276
paulson@11187
   277
\begin{isabelle}%
paulson@11187
   278
x\ {\isacharslash}\ {\isacharparenleft}y\ {\isacharslash}\ z{\isacharparenright}\ {\isacharequal}\ x\ {\isacharasterisk}\ z\ {\isacharslash}\ y%
wenzelm@10776
   279
\end{isabelle}
paulson@11187
   280
\rulename{real_divide_divide1_eq}
wenzelm@10776
   281
paulson@11187
   282
\begin{isabelle}%
paulson@11187
   283
x\ {\isacharslash}\ y\ {\isacharslash}\ z\ {\isacharequal}\ x\ {\isacharslash}\ {\isacharparenleft}y\ {\isacharasterisk}\ z{\isacharparenright}%
wenzelm@10776
   284
\end{isabelle}
paulson@11187
   285
\rulename{real_divide_divide2_eq}
wenzelm@10776
   286
paulson@11187
   287
\begin{isabelle}%
paulson@11187
   288
{\isacharminus}\ x\ {\isacharslash}\ y\ {\isacharequal}\ {\isacharminus}\ {\isacharparenleft}x\ {\isacharslash}\ y{\isacharparenright}%
wenzelm@10776
   289
\end{isabelle}
paulson@11187
   290
\rulename{real_minus_divide_eq}
wenzelm@10776
   291
paulson@11187
   292
\begin{isabelle}%
paulson@11187
   293
x\ {\isacharslash}\ {\isacharminus}\ y\ {\isacharequal}\ {\isacharminus}\ {\isacharparenleft}x\ {\isacharslash}\ y{\isacharparenright}%
wenzelm@10776
   294
\end{isabelle}
paulson@11174
   295
\rulename{real_divide_minus_eq}
wenzelm@10776
   296
wenzelm@10776
   297
This last NOT a simprule
wenzelm@10776
   298
paulson@11187
   299
\begin{isabelle}%
paulson@11187
   300
{\isacharparenleft}x\ {\isacharplus}\ y{\isacharparenright}\ {\isacharslash}\ z\ {\isacharequal}\ x\ {\isacharslash}\ z\ {\isacharplus}\ y\ {\isacharslash}\ z%
nipkow@10790
   301
\end{isabelle}
paulson@11187
   302
\rulename{real_add_divide_distrib}%
paulson@11187
   303
\end{isamarkuptext}%
wenzelm@11708
   304
\isacommand{lemma}\ {\isachardoublequote}{\isadigit{3}}{\isacharslash}{\isadigit{4}}\ {\isacharless}\ {\isacharparenleft}{\isadigit{7}}{\isacharslash}{\isadigit{8}}\ {\isacharcolon}{\isacharcolon}\ real{\isacharparenright}{\isachardoublequote}\isanewline
paulson@11187
   305
\isacommand{by}\ simp\ \isanewline
paulson@11174
   306
\isanewline
wenzelm@11708
   307
\isacommand{lemma}\ {\isachardoublequote}P\ {\isacharparenleft}{\isacharparenleft}{\isadigit{3}}{\isacharslash}{\isadigit{4}}{\isacharparenright}\ {\isacharasterisk}\ {\isacharparenleft}{\isadigit{8}}{\isacharslash}{\isadigit{1}}{\isadigit{5}}\ {\isacharcolon}{\isacharcolon}\ real{\isacharparenright}{\isacharparenright}{\isachardoublequote}%
paulson@11187
   308
\begin{isamarkuptxt}%
paulson@11187
   309
\begin{isabelle}%
wenzelm@11708
   310
\ {\isadigit{1}}{\isachardot}\ P\ {\isacharparenleft}{\isadigit{3}}\ {\isacharslash}\ {\isadigit{4}}\ {\isacharasterisk}\ {\isacharparenleft}{\isadigit{8}}\ {\isacharslash}\ {\isadigit{1}}{\isadigit{5}}{\isacharparenright}{\isacharparenright}%
paulson@11187
   311
\end{isabelle}%
paulson@11187
   312
\end{isamarkuptxt}%
paulson@11187
   313
\isacommand{apply}\ simp%
paulson@11187
   314
\begin{isamarkuptxt}%
paulson@11187
   315
\begin{isabelle}%
wenzelm@11708
   316
\ {\isadigit{1}}{\isachardot}\ P\ {\isacharparenleft}{\isadigit{2}}\ {\isacharslash}\ {\isadigit{5}}{\isacharparenright}%
paulson@11187
   317
\end{isabelle}%
paulson@11187
   318
\end{isamarkuptxt}%
paulson@11174
   319
\isacommand{oops}\isanewline
paulson@11174
   320
\isanewline
wenzelm@11708
   321
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isadigit{3}}{\isacharslash}{\isadigit{4}}{\isacharparenright}\ {\isacharasterisk}\ {\isacharparenleft}{\isadigit{8}}{\isacharslash}{\isadigit{1}}{\isadigit{5}}{\isacharparenright}\ {\isacharless}\ {\isacharparenleft}x\ {\isacharcolon}{\isacharcolon}\ real{\isacharparenright}{\isachardoublequote}%
paulson@11187
   322
\begin{isamarkuptxt}%
paulson@11187
   323
\begin{isabelle}%
wenzelm@11708
   324
\ {\isadigit{1}}{\isachardot}\ {\isadigit{3}}\ {\isacharslash}\ {\isadigit{4}}\ {\isacharasterisk}\ {\isacharparenleft}{\isadigit{8}}\ {\isacharslash}\ {\isadigit{1}}{\isadigit{5}}{\isacharparenright}\ {\isacharless}\ x%
paulson@11187
   325
\end{isabelle}%
paulson@11187
   326
\end{isamarkuptxt}%
paulson@11187
   327
\isacommand{apply}\ simp%
paulson@11187
   328
\begin{isamarkuptxt}%
paulson@11187
   329
\begin{isabelle}%
wenzelm@11708
   330
\ {\isadigit{1}}{\isachardot}\ {\isadigit{2}}\ {\isacharless}\ x\ {\isacharasterisk}\ {\isadigit{5}}%
paulson@11187
   331
\end{isabelle}%
paulson@11187
   332
\end{isamarkuptxt}%
paulson@11174
   333
\isacommand{oops}\isanewline
paulson@11174
   334
\isanewline
wenzelm@11708
   335
\isacommand{lemma}\ {\isachardoublequote}{\isacharparenleft}{\isadigit{3}}{\isacharslash}{\isadigit{4}}{\isacharparenright}\ {\isacharasterisk}\ {\isacharparenleft}{\isadigit{1}}{\isadigit{0}}{\isacharcircum}{\isadigit{1}}{\isadigit{5}}{\isacharparenright}\ {\isacharless}\ {\isacharparenleft}x\ {\isacharcolon}{\isacharcolon}\ real{\isacharparenright}{\isachardoublequote}\isanewline
paulson@11187
   336
\isacommand{apply}\ simp\ \isanewline
paulson@11187
   337
\isacommand{oops}\isanewline
paulson@11187
   338
\isanewline
paulson@11174
   339
\isanewline
paulson@11174
   340
\isanewline
paulson@10602
   341
\isacommand{end}\isanewline
paulson@11187
   342
\end{isabellebody}%
paulson@10602
   343
%%% Local Variables:
paulson@10602
   344
%%% mode: latex
paulson@10602
   345
%%% TeX-master: "root"
paulson@10602
   346
%%% End: