Theory Deriving.Compare_Real

(*
    Author:      René Thiemann
    License:     LGPL
*)
subsection ‹Compare Instance for Real Numbers›

theory Compare_Real
imports
  Compare_Generator
  HOL.Real
begin
  
derive (linorder) compare_order real

lemma invert_order_compare_real[simp]: "⋀ x y :: real. invert_order (compare x y) = compare y x" 
  by (simp add: comparator_of_def compare_is_comparator_of)


end