Modus ponens by nrolland

module Theorem where

import Level

modus-ponens : ∀ {a b} {P : Set a} {Q : Set b} → (P → Q) → P → Q
modus-ponens pq p = pq p