auto gitdoc commit

This commit is contained in:
Michael Zhang 2024-04-22 01:39:32 +00:00
parent c10e2405f8
commit b99ce50aac

View file

@ -87,11 +87,11 @@ apd {l₁} {l₂} {A} {P} {x} {y} f p =
TODO
```
transportconst : {A : Set} {x y : A} (B : Set) → (p : x ≡ y) → (b : B)
transportconst : {l₁ l₂ : Level} {A : Set l₁} {x y : A} (B : Set l₂) → (p : x ≡ y) → (b : B)
→ transport (λ _ → B) p b ≡ b
transportconst {A} {x} B p b =
transportconst {l₁} {l₂} {A} {x} B p b =
let
D : (x y : A) → (p : x ≡ y) → Set
D : (x y : A) → (p : x ≡ y) → Set l₂
D x y p = transport (λ _ → B) p b ≡ b
d : (x : A) → D x x refl