src/HOL/Fun.thy
changeset 27165 e1c49eb8cee6
parent 27125 0733f575b51e
child 27188 e47b069cab35
     1.1 --- a/src/HOL/Fun.thy	Thu Jun 12 11:51:47 2008 +0200
     1.2 +++ b/src/HOL/Fun.thy	Thu Jun 12 14:10:41 2008 +0200
     1.3 @@ -460,7 +460,7 @@
     1.4    thus "inj_on f A" by simp 
     1.5  next
     1.6    assume "inj_on f A"
     1.7 -  with A show "inj_on (swap a b f) A" by (iprover intro: inj_on_imp_inj_on_swap)
     1.8 +  with A show "inj_on (swap a b f) A" by(iprover intro: inj_on_imp_inj_on_swap)
     1.9  qed
    1.10  
    1.11  lemma surj_imp_surj_swap: "surj f ==> surj (swap a b f)"
    1.12 @@ -482,6 +482,7 @@
    1.13  lemma bij_swap_iff: "bij (swap a b f) = bij f"
    1.14  by (simp add: bij_def)
    1.15  
    1.16 +hide const swap
    1.17  
    1.18  subsection {* Proof tool setup *} 
    1.19