src/HOL/TLA/Buffer/Buffer.ML
changeset 9517 f58863b1406a
parent 6255 db63752140c7
child 13601 fd3e3d6b37b2
equal deleted inserted replaced
9516:72b5d28aae58 9517:f58863b1406a
    24 qed "Deq_visible";
    24 qed "Deq_visible";
    25 
    25 
    26 (* Enabling condition for dequeue -- NOT NEEDED *)
    26 (* Enabling condition for dequeue -- NOT NEEDED *)
    27 Goalw [temp_rewrite Deq_visible]
    27 Goalw [temp_rewrite Deq_visible]
    28    "!!q. basevars (ic,q,oc) ==> |- Enabled (<Deq ic q oc>_(ic,q,oc)) = (q ~= #[])";
    28    "!!q. basevars (ic,q,oc) ==> |- Enabled (<Deq ic q oc>_(ic,q,oc)) = (q ~= #[])";
    29 by (force_tac (claset() addSEs [base_enabled,enabledE], simpset() addsimps [Deq_def]) 1);
    29 by (force_tac (claset() addSEs [base_enabled,enabledE], 
       
    30                simpset() addsimps [Deq_def]) 1);
    30 qed "Deq_enabled";
    31 qed "Deq_enabled";
    31 
    32 
    32 (* For the left-to-right implication, we don't need the base variable stuff *)
    33 (* For the left-to-right implication, we don't need the base variable stuff *)
    33 Goalw [temp_rewrite Deq_visible] 
    34 Goalw [temp_rewrite Deq_visible] 
    34    "|- Enabled (<Deq ic q oc>_(ic,q,oc)) --> (q ~= #[])";
    35    "|- Enabled (<Deq ic q oc>_(ic,q,oc)) --> (q ~= #[])";