We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent a10e25a commit 6ce70a4Copy full SHA for 6ce70a4
Cubical/Foundations/Isomorphism.agda
@@ -217,3 +217,9 @@ rightInv (Iso≡Set hA hB f g hfun hinv i) x j =
217
isSet→isSet' hB (rightInv f x) (rightInv g x) (λ i → hfun (hinv x i) i) refl i j
218
leftInv (Iso≡Set hA hB f g hfun hinv i) x j =
219
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