syllogism : {A B C : Set} !$\rightarrow$! ((A !$\rightarrow$! B) !$\wedge$! (B !$\rightarrow$! C)) !$\rightarrow$! (A !$\rightarrow$! C) syllogism x a = _!$\wedge$!_.p2 x (_!$\wedge$!_.p1 x a)