author | wenzelm |
Mon, 06 Dec 2021 15:10:15 +0100 | |
changeset 74886 | fa5476c54731 |
parent 74885 | 2df334453c4c |
child 74887 | 56247fdb8bbb |
--- a/src/HOL/BNF_Def.thy Mon Dec 06 12:39:59 2021 +0100 +++ b/src/HOL/BNF_Def.thy Mon Dec 06 15:10:15 2021 +0100 @@ -139,7 +139,7 @@ lemma pick_middlep: "(P OO Q) a c \<Longrightarrow> P a (pick_middlep P Q a c) \<and> Q (pick_middlep P Q a c) c" - unfolding pick_middlep_def apply(rule someI_ex) by auto + unfolding pick_middlep_def by (rule someI_ex) auto definition fstOp where "fstOp P Q ac = (fst ac, pick_middlep P Q (fst ac) (snd ac))"