changeset 45818 | 53a697f5454a |
parent 45184 | 426dbd896c9e |
child 45859 | 36ff12b5663b |
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 |