changeset 80768 | c7723cc15de8 |
parent 70009 | 435fb018e8ee |
child 80786 | 70076ba563d2 |
--- a/src/HOL/ex/Code_Lazy_Demo.thy Sun Aug 25 20:54:20 2024 +0200 +++ b/src/HOL/ex/Code_Lazy_Demo.thy Sun Aug 25 21:10:01 2024 +0200 @@ -40,6 +40,7 @@ | LCons (lhd: 'a) (ltl: "'a llist") (infixr "###" 65) syntax "_llist" :: "args => 'a list" ("\<^bold>\<lbrakk>(_)\<^bold>\<rbrakk>") +syntax_consts "_llist" == LCons translations "\<^bold>\<lbrakk>x, xs\<^bold>\<rbrakk>" == "x###\<^bold>\<lbrakk>xs\<^bold>\<rbrakk>" "\<^bold>\<lbrakk>x\<^bold>\<rbrakk>" == "x###\<^bold>\<lbrakk>\<^bold>\<rbrakk>"