Modus ponens by notogawa

module Theorem where

import Level
open import Function

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