Date: 2014-01-08 05:17 pm (UTC)
data _≡_ {A : Set} : A → A → Set where
  refl : ∀ x → x ≡ x

data _≐_ {A : Set} (x : A) : A → Set where
  refl' : x ≐ x

lem1 : {A : Set} (x y : A) →  x ≡ y → x ≐ y
lem1 x .x (refl .x) = refl'

lem2 : {A : Set} (x y : A) →  x ≐ y → x ≡ y
lem2 x .x refl' = refl x

:)

Конфлюэнтность же никто не отменял. Тайпчекер приводит то, что требуется уравнять, к нормальной форме, тупо пользуясь definitional equality там, где это возможно, и сравнивает. В первом случае от делает это в трех местах
ex : (x : ℕ) → zero + suc x ≡ suc (zero + x)
ex x = refl (zero + zero + suc x)
, а во втором в двух. Но нормальная форма единственна (suc x), поэтому разницы нет.
This account has disabled anonymous posting.
If you don't have an account you can create one now.
HTML doesn't work in the subject.
More info about formatting

Profile

deniok: (Default)
deniok

February 2022

S M T W T F S
  12345
6789101112
13141516171819
20212223 242526
2728     

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Jul. 9th, 2025 05:52 pm
Powered by Dreamwidth Studios