Mercurial Mercurial > repos > isabelle / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/MiniML/Maybe.ML
changeset 2058 ff04984186e9
parent 2031 03a843f0f447
child 2525 477c05586286
equal deleted inserted replaced
2057:4d7a4b25a11f 2058:ff04984186e9 
    20 qed "expand_bind";
 
    20 qed "expand_bind";
 
    21 
    21 
    22 goal Maybe.thy
 
    22 goal Maybe.thy
 
    23   "((m bind f) = Fail) = ((m=Fail) | (? p. m = Ok p & f p = Fail))";
 
    23   "((m bind f) = Fail) = ((m=Fail) | (? p. m = Ok p & f p = Fail))";
 
    24 by (simp_tac (!simpset setloop (split_tac [expand_bind])) 1);
 
    24 by (simp_tac (!simpset setloop (split_tac [expand_bind])) 1);
 
    25 by (fast_tac HOL_cs 1);
 
       
    26 qed "bind_eq_Fail";
 
    25 qed "bind_eq_Fail";
 
    27 
    26 
    28 Addsimps [bind_eq_Fail];
 
    27 Addsimps [bind_eq_Fail];
isabelle