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/MicroJava/BV/Err.thy
changeset 11549 e7265e70fd7c
parent 11225 01181fdbc9f0
child 12516 d09d0f160888
equal deleted inserted replaced
11548:0028bd06a19c 11549:e7265e70fd7c 
   255 proof -
 
   255 proof -
 
   256   have plus_le_conv3: "!!A x y z f r. 
   256   have plus_le_conv3: "!!A x y z f r. 
   257     [| semilat (A,r,f); x +_f y <=_r z; x:A; y:A; z:A |] 
   257     [| semilat (A,r,f); x +_f y <=_r z; x:A; y:A; z:A |] 
   258     ==> x <=_r z \<and> y <=_r z"
 
   258     ==> x <=_r z \<and> y <=_r z"
 
   259     by (rule plus_le_conv [THEN iffD1])
 
   259     by (rule plus_le_conv [THEN iffD1])
 
   260   case antecedent
 
   260   case rule_context
 
   261   thus ?thesis
 
   261   thus ?thesis
 
   262   apply (rule_tac iffI)
 
   262   apply (rule_tac iffI)
 
   263    apply clarify
 
   263    apply clarify
 
   264    apply (drule OK_le_err_OK [THEN iffD2])
 
   264    apply (drule OK_le_err_OK [THEN iffD2])
 
   265    apply (drule OK_le_err_OK [THEN iffD2])
 
   265    apply (drule OK_le_err_OK [THEN iffD2])
isabelle