changeset 38857 | 97775f3e8722 |
parent 38517 | ba8027440fb0 |
child 39316 | b6c4385ab400 |
38856:168dba35ecf3 | 38857:97775f3e8722 |
---|---|
180 | passed_deadline (SOME time) = Time.compare (Time.now (), time) <> LESS |
180 | passed_deadline (SOME time) = Time.compare (Time.now (), time) <> LESS |
181 |
181 |
182 fun none_true assigns = forall (not_equal (SOME true) o snd) assigns |
182 fun none_true assigns = forall (not_equal (SOME true) o snd) assigns |
183 |
183 |
184 val syntactic_sorts = |
184 val syntactic_sorts = |
185 @{sort "{default,zero,one,plus,minus,uminus,times,inverse,abs,sgn,ord,eq}"} @ |
185 @{sort "{default,zero,one,plus,minus,uminus,times,inverse,abs,sgn,ord,equal}"} @ |
186 @{sort number} |
186 @{sort number} |
187 fun has_tfree_syntactic_sort (TFree (_, S as _ :: _)) = |
187 fun has_tfree_syntactic_sort (TFree (_, S as _ :: _)) = |
188 subset (op =) (S, syntactic_sorts) |
188 subset (op =) (S, syntactic_sorts) |
189 | has_tfree_syntactic_sort _ = false |
189 | has_tfree_syntactic_sort _ = false |
190 val has_syntactic_sorts = exists_type (exists_subtype has_tfree_syntactic_sort) |
190 val has_syntactic_sorts = exists_type (exists_subtype has_tfree_syntactic_sort) |