view Paper/src/agda/syllogism.agda.replaced @ 5:339fb67b4375

INIT rbt.agda
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Sun, 07 Nov 2021 00:51:16 +0900
parents 9176dff8f38a
children
line wrap: on
line source

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)