src/HOL/RealDef.thy
changeset 45818 53a697f5454a
parent 45184 426dbd896c9e
child 45859 36ff12b5663b
equal deleted inserted replaced
45817:bb39fba83e9b 45818:53a697f5454a
  1727 
  1727 
  1728 instantiation real :: exhaustive
  1728 instantiation real :: exhaustive
  1729 begin
  1729 begin
  1730 
  1730 
  1731 definition
  1731 definition
  1732   "exhaustive f d = exhaustive (%r. f (Ratreal r)) d"
  1732   "exhaustive_real f d = Quickcheck_Exhaustive.exhaustive (%r. f (Ratreal r)) d"
  1733 
  1733 
  1734 instance ..
  1734 instance ..
  1735 
  1735 
  1736 end
  1736 end
  1737 
  1737 
  1738 instantiation real :: full_exhaustive
  1738 instantiation real :: full_exhaustive
  1739 begin
  1739 begin
  1740 
  1740 
  1741 definition
  1741 definition
  1742   "full_exhaustive f d = full_exhaustive (%r. f (valterm_ratreal r)) d"
  1742   "full_exhaustive_real f d = Quickcheck_Exhaustive.full_exhaustive (%r. f (valterm_ratreal r)) d"
  1743 
  1743 
  1744 instance ..
  1744 instance ..
  1745 
  1745 
  1746 end
  1746 end
  1747 
  1747