src/HOL/MicroJava/J/JListExample.thy
changeset 13890 90611b4e0054
parent 13672 b95d12325b51
child 15531 08c8dad8e399
equal deleted inserted replaced
13889:6676ac2527fa 13890:90611b4e0054
    87   let fun nr i = if p (hp (loc i)) then (loc i, none) else nr (i+1);
    87   let fun nr i = if p (hp (loc i)) then (loc i, none) else nr (i+1);
    88   in nr 0 end;
    88   in nr 0 end;
    89 *}
    89 *}
    90 
    90 
    91 generate_code
    91 generate_code
    92   test = "example_prg\<turnstile>Norm (Map.empty, Map.empty)
    92   test = "example_prg\<turnstile>Norm (empty, empty)
    93     -(Expr (l1_name::=NewC list_name);;
    93     -(Expr (l1_name::=NewC list_name);;
    94       Expr ({list_name}(LAcc l1_name)..val_name:=Lit (Intg 1));;
    94       Expr ({list_name}(LAcc l1_name)..val_name:=Lit (Intg 1));;
    95       Expr (l2_name::=NewC list_name);;
    95       Expr (l2_name::=NewC list_name);;
    96       Expr ({list_name}(LAcc l2_name)..val_name:=Lit (Intg 2));;
    96       Expr ({list_name}(LAcc l2_name)..val_name:=Lit (Intg 2));;
    97       Expr (l3_name::=NewC list_name);;
    97       Expr (l3_name::=NewC list_name);;