equal
deleted
inserted
replaced
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 ~= #[])"; |