src/Pure/Pure.thy
changeset 22933 338c7890c96f
parent 21627 b822c7e61701
child 23432 cec811764a38
equal deleted inserted replaced
22932:53005f898665 22933:338c7890c96f
    92 lemma conjunction_imp:
    92 lemma conjunction_imp:
    93   includes meta_conjunction_syntax
    93   includes meta_conjunction_syntax
    94   shows "(PROP A && PROP B ==> PROP C) == (PROP A ==> PROP B ==> PROP C)"
    94   shows "(PROP A && PROP B ==> PROP C) == (PROP A ==> PROP B ==> PROP C)"
    95 proof
    95 proof
    96   assume r: "PROP A && PROP B ==> PROP C"
    96   assume r: "PROP A && PROP B ==> PROP C"
    97   assume "PROP A" and "PROP B"
    97   assume ab: "PROP A" "PROP B"
    98   show "PROP C" by (rule r) -
    98   show "PROP C"
       
    99   proof (rule r)
       
   100     from ab show "PROP A && PROP B" .
       
   101   qed
    99 next
   102 next
   100   assume r: "PROP A ==> PROP B ==> PROP C"
   103   assume r: "PROP A ==> PROP B ==> PROP C"
   101   assume conj: "PROP A && PROP B"
   104   assume conj: "PROP A && PROP B"
   102   show "PROP C"
   105   show "PROP C"
   103   proof (rule r)
   106   proof (rule r)