changeset 13093 | ab0335307905 |
parent 12554 | 671b4d632c34 |
child 13367 | ad307f0d80db |
13092:eae72c47d07f | 13093:ab0335307905 |
---|---|
114 "snd" ("snd") |
114 "snd" ("snd") |
115 |
115 |
116 "Nil" ("[]") |
116 "Nil" ("[]") |
117 "Cons" ("(_ ::/ _)") |
117 "Cons" ("(_ ::/ _)") |
118 |
118 |
119 "wfrec" ("wf'_rec?") |
|
120 |
|
121 ML {* fun wf_rec f x = f (wf_rec f) x; *} |
|
122 |
|
119 lemma [code]: "((n::nat) < 0) = False" by simp |
123 lemma [code]: "((n::nat) < 0) = False" by simp |
120 declare less_Suc_eq [code] |
124 declare less_Suc_eq [code] |
121 |
125 |
122 end |
126 end |