mirror of
https://github.com/luau-lang/luau.git
synced 2024-12-13 21:40:43 +00:00
9 lines
247 B
Agda
9 lines
247 B
Agda
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)
|