{-# OPTIONS --without-K #-} data _≡_ {A : Set} (x : A) : A → Set where refl : x ≡ x cong : ∀ (A B : Set) (f : A → B) (x y : A) (eq : x ≡ y) → f x ≡ f y cong A B f x .x refl = {!!} UIP : ∀ (A : Set) (x y : A) (p q : x ≡ y) → p ≡ q UIP A x .x refl q = {!q!} K : ∀ (A : Set) (x : A) (p : x ≡ x) → p ≡ refl K A x p = {!p!}