src/HOL/ex/Landau.thy
changeset 36635 080b755377c0
parent 31381 b3a785a69538
child 36809 354b15d5b4ca
equal deleted inserted replaced
36634:f9b43d197d16 36635:080b755377c0
   185 interpretation fun_order: preorder_equiv less_eq_fun less_fun
   185 interpretation fun_order: preorder_equiv less_eq_fun less_fun
   186   where "preorder_equiv.equiv less_eq_fun = equiv_fun"
   186   where "preorder_equiv.equiv less_eq_fun = equiv_fun"
   187 proof -
   187 proof -
   188   interpret preorder_equiv less_eq_fun less_fun proof
   188   interpret preorder_equiv less_eq_fun less_fun proof
   189   qed (simp_all add: less_fun_def less_eq_fun_refl, auto intro: less_eq_fun_trans)
   189   qed (simp_all add: less_fun_def less_eq_fun_refl, auto intro: less_eq_fun_trans)
   190   show "preorder_equiv less_eq_fun less_fun" using preorder_equiv_axioms .
   190   show "class.preorder_equiv less_eq_fun less_fun" using preorder_equiv_axioms .
   191   show "preorder_equiv.equiv less_eq_fun = equiv_fun"
   191   show "preorder_equiv.equiv less_eq_fun = equiv_fun"
   192     by (simp add: expand_fun_eq equiv_def equiv_fun_less_eq_fun)
   192     by (simp add: expand_fun_eq equiv_def equiv_fun_less_eq_fun)
   193 qed
   193 qed
   194 
   194 
   195 
   195