equal
deleted
inserted
replaced
16 "P(res bind f) = ((res = Fail --> P Fail) & (!s. res = Ok s --> P(f s)))"; |
16 "P(res bind f) = ((res = Fail --> P Fail) & (!s. res = Ok s --> P(f s)))"; |
17 by (maybe.induct_tac "res" 1); |
17 by (maybe.induct_tac "res" 1); |
18 by (fast_tac (HOL_cs addss !simpset) 1); |
18 by (fast_tac (HOL_cs addss !simpset) 1); |
19 by (Asm_simp_tac 1); |
19 by (Asm_simp_tac 1); |
20 qed "expand_bind"; |
20 qed "expand_bind"; |
|
21 |
|
22 goal Maybe.thy "!!x. x = Ok y ==> x ~= Fail"; |
|
23 by(Asm_simp_tac 1); |
|
24 qed "eq_OkD"; |