module 2023-11-27-asdf where

open import Relation.Binary.Core
open import Relation.Binary.Definitions
open import Relation.Binary.PropositionalEquality as Eq

postulate
    S1 : Set
    base : S1
    loop : base ≡ base

asdf : (c : S1)
    → ((x : A) → x ≡ c)