equal
deleted
inserted
replaced
7 theory List |
7 theory List |
8 imports Presburger Code_Numeral Quotient Lifting_Set Lifting_Option Lifting_Product |
8 imports Presburger Code_Numeral Quotient Lifting_Set Lifting_Option Lifting_Product |
9 begin |
9 begin |
10 |
10 |
11 datatype_new (set: 'a) list (map: map rel: list_all2) = |
11 datatype_new (set: 'a) list (map: map rel: list_all2) = |
12 =: Nil (defaults tl: "[]") ("[]") |
12 Nil (defaults tl: "[]") ("[]") |
13 | Cons (hd: 'a) (tl: "'a list") (infixr "#" 65) |
13 | Cons (hd: 'a) (tl: "'a list") (infixr "#" 65) |
14 datatype_compat list |
14 datatype_compat list |
15 |
15 |
16 lemma [case_names Nil Cons, cases type: list]: |
16 lemma [case_names Nil Cons, cases type: list]: |
17 -- {* for backward compatibility -- names of variables differ *} |
17 -- {* for backward compatibility -- names of variables differ *} |