src/HOL/Tools/Nitpick/nitpick.ML
changeset 38857 97775f3e8722
parent 38517 ba8027440fb0
child 39316 b6c4385ab400
equal deleted inserted replaced
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)