Share the proofs of ×-comm and ⊎-comm of type isomorphisms and add a pairing operation #2868
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
The functions
Function.Related.TypeIsomorphism.⊎-commandData.Sum.Properties.swap-↔are the same, thus this PR points one to the other.Function.Related.TypeIsomorphism.∃∃↔∃∃is similar as well.To make things parallel, this PR keeps only the name of
Function.Related.TypeIsomorphism.×-command moves its implementation toData.Product.Properties.Finally, this PR adds
_,′-↔_ : A ↔ C → B ↔ D → (A × B) ↔ (C × D)that pairs two type isomorphisms.(The type of
_,′-↔_can't be expressed as_×_ Preserves₂ _↔_ ⟶ _↔_ ⟶ _↔_because that requiresAandCto have identicalLevels and similarlyBandDwould need to have the sameLevel.)