src/HOL/Lifting.thy
changeset 56517 7e8a369eb10d
parent 55945 e96383acecf9
child 56518 beb3b6851665
     1.1 --- a/src/HOL/Lifting.thy	Thu Apr 10 15:14:38 2014 +0200
     1.2 +++ b/src/HOL/Lifting.thy	Thu Apr 10 17:48:13 2014 +0200
     1.3 @@ -48,9 +48,9 @@
     1.4    where "left_unique R \<longleftrightarrow> (\<forall>x y z. R x z \<longrightarrow> R y z \<longrightarrow> x = y)"
     1.5  
     1.6  lemma left_unique_transfer [transfer_rule]:
     1.7 -  assumes [transfer_rule]: "right_total A"
     1.8 -  assumes [transfer_rule]: "right_total B"
     1.9 -  assumes [transfer_rule]: "bi_unique A"
    1.10 +  assumes "right_total A"
    1.11 +  assumes "right_total B"
    1.12 +  assumes "bi_unique A"
    1.13    shows "((A ===> B ===> op=) ===> implies) left_unique left_unique"
    1.14  using assms unfolding left_unique_def[abs_def] right_total_def bi_unique_def rel_fun_def
    1.15  by metis