Skip to content

Commit 6ce70a4

Browse files
authored
Added transportIsoToPath and transportIsoToPath⁻ (agda#1109)
* Added transportIsoToPath and transportIsoToPath⁻ * fixed whitespace
1 parent a10e25a commit 6ce70a4

File tree

1 file changed

+6
-0
lines changed

1 file changed

+6
-0
lines changed

Cubical/Foundations/Isomorphism.agda

+6
Original file line numberDiff line numberDiff line change
@@ -217,3 +217,9 @@ rightInv (Iso≡Set hA hB f g hfun hinv i) x j =
217217
isSet→isSet' hB (rightInv f x) (rightInv g x) (λ i hfun (hinv x i) i) refl i j
218218
leftInv (Iso≡Set hA hB f g hfun hinv i) x j =
219219
isSet→isSet' hA (leftInv f x) (leftInv g x) (λ i hinv (hfun x i) i) refl i j
220+
221+
transportIsoToPath : (f : Iso A B) (x : A) transport (isoToPath f) x ≡ f .fun x
222+
transportIsoToPath f x = transportRefl _
223+
224+
transportIsoToPath⁻ : (f : Iso A B) (x : B) transport (sym (isoToPath f)) x ≡ f .inv x
225+
transportIsoToPath⁻ f x = cong (f .inv) (transportRefl _)

0 commit comments

Comments
 (0)