Quelle  Base_FDS.thy

section "Common Basis Theory"

theory Base_FDS
imports "HOL-Library.Pattern_Aliases"
begin

declare Let_def [simp]

text ‹Lemma ‹size_prod_measure›, when declared with the ‹measure_function› attribute,
 enables ‹fun› to prove termination of a larger class of functions automatically.
 By default, ‹fun› only tries lexicographic combinations of the sizes of the parameters.
 With ‹size_prod_measure› enabled it also tries measures based on the sum of the sizes
 of different parameters.
 
 To alert the reader whenever such a more subtle termination proof is taking place
 the lemma is not enabled all the time but only when it is needed.
 ›

lemma size_prod_measure: 
  "is_measure f ==> is_measure g ==> is_measure (size_prod f g)"
by (rule is_measure_trivial)

end