mirror of
https://github.com/luau-lang/luau.git
synced 2024-11-15 22:35:43 +08:00
17 lines
500 B
Agda
17 lines
500 B
Agda
module Luau.Var where
|
|
|
|
open import Agda.Builtin.Bool using (true; false)
|
|
open import Agda.Builtin.Equality using (_≡_)
|
|
open import Agda.Builtin.String using (String; primStringEquality)
|
|
open import Agda.Builtin.TrustMe using (primTrustMe)
|
|
open import Properties.Dec using (Dec; yes; no; ⊥)
|
|
|
|
Var : Set
|
|
Var = String
|
|
|
|
_≡ⱽ_ : (a b : Var) → Dec (a ≡ b)
|
|
a ≡ⱽ b with primStringEquality a b
|
|
a ≡ⱽ b | false = no p where postulate p : (a ≡ b) → ⊥
|
|
a ≡ⱽ b | true = yes primTrustMe
|
|
|