module Properties.Remember where

open import Agda.Builtin.Equality using (_≡_; refl)

data Remember {A : Set} (a : A) : Set where
  _,_ : ∀ b → (a ≡ b) → Remember(a)
  
remember : ∀ {A} (a : A) → Remember(a)
remember a = (a , refl)