diff -r e7ee815b04bf -r feebdaa346e5 src/HOL/Rat.thy --- a/src/HOL/Rat.thy Sun Nov 15 07:17:05 2020 +0000 +++ b/src/HOL/Rat.thy Sun Nov 15 07:17:06 2020 +0000 @@ -998,12 +998,18 @@ text \Quickcheck\ -definition (in term_syntax) +context + includes term_syntax +begin + +definition valterm_fract :: "int \ (unit \ Code_Evaluation.term) \ int \ (unit \ Code_Evaluation.term) \ rat \ (unit \ Code_Evaluation.term)" where [code_unfold]: "valterm_fract k l = Code_Evaluation.valtermify Fract {\} k {\} l" +end + instantiation rat :: random begin