1180 (@{const_name plus_rat_inst.plus_rat}, @{const_name Nitpick.plus_frac}), |
1180 (@{const_name plus_rat_inst.plus_rat}, @{const_name Nitpick.plus_frac}), |
1181 (@{const_name times_rat_inst.times_rat}, @{const_name Nitpick.times_frac}), |
1181 (@{const_name times_rat_inst.times_rat}, @{const_name Nitpick.times_frac}), |
1182 (@{const_name uminus_rat_inst.uminus_rat}, @{const_name Nitpick.uminus_frac}), |
1182 (@{const_name uminus_rat_inst.uminus_rat}, @{const_name Nitpick.uminus_frac}), |
1183 (@{const_name number_rat_inst.number_of_rat}, @{const_name Nitpick.number_of_frac}), |
1183 (@{const_name number_rat_inst.number_of_rat}, @{const_name Nitpick.number_of_frac}), |
1184 (@{const_name inverse_rat_inst.inverse_rat}, @{const_name Nitpick.inverse_frac}), |
1184 (@{const_name inverse_rat_inst.inverse_rat}, @{const_name Nitpick.inverse_frac}), |
|
1185 (@{const_name ord_rat_inst.less_rat}, @{const_name Nitpick.less_frac}), |
1185 (@{const_name ord_rat_inst.less_eq_rat}, @{const_name Nitpick.less_eq_frac}), |
1186 (@{const_name ord_rat_inst.less_eq_rat}, @{const_name Nitpick.less_eq_frac}), |
1186 (@{const_name field_char_0_class.of_rat}, @{const_name Nitpick.of_frac}), |
1187 (@{const_name field_char_0_class.of_rat}, @{const_name Nitpick.of_frac}), |
1187 (@{const_name field_char_0_class.Rats}, @{const_abbrev UNIV})] |
1188 (@{const_name field_char_0_class.Rats}, @{const_abbrev UNIV})] |
1188 *} |
1189 *} |
1189 |
1190 |
1190 lemmas [nitpick_def] = inverse_rat_inst.inverse_rat |
1191 lemmas [nitpick_def] = inverse_rat_inst.inverse_rat |
1191 number_rat_inst.number_of_rat one_rat_inst.one_rat ord_rat_inst.less_eq_rat |
1192 number_rat_inst.number_of_rat one_rat_inst.one_rat ord_rat_inst.less_rat |
1192 plus_rat_inst.plus_rat times_rat_inst.times_rat uminus_rat_inst.uminus_rat |
1193 ord_rat_inst.less_eq_rat plus_rat_inst.plus_rat times_rat_inst.times_rat |
1193 zero_rat_inst.zero_rat |
1194 uminus_rat_inst.uminus_rat zero_rat_inst.zero_rat |
1194 |
1195 |
1195 subsection{* Float syntax *} |
1196 subsection{* Float syntax *} |
1196 |
1197 |
1197 syntax "_Float" :: "float_const \<Rightarrow> 'a" ("_") |
1198 syntax "_Float" :: "float_const \<Rightarrow> 'a" ("_") |
1198 |
1199 |