feat: port Logic.Equiv.Fintype (#2524)

Mathlib.lean

@@ -892,6 +892,7 @@ import Mathlib.Logic.Equiv.Basic
 import Mathlib.Logic.Equiv.Defs
 import Mathlib.Logic.Equiv.Embedding
 import Mathlib.Logic.Equiv.Fin
+import Mathlib.Logic.Equiv.Fintype
 import Mathlib.Logic.Equiv.List
 import Mathlib.Logic.Equiv.LocalEquiv
 import Mathlib.Logic.Equiv.MfldSimpsAttr

Mathlib/Logic/Equiv/Fintype.lean

@@ -0,0 +1,146 @@
+/-
+Copyright (c) 2021 Yakov Pechersky. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Yakov Pechersky
+
+! This file was ported from Lean 3 source module logic.equiv.fintype
+! leanprover-community/mathlib commit 9407b03373c8cd201df99d6bc5514fc2db44054f
+! Please do not edit these lines, except to modify the commit id
+! if you have ported upstream changes.
+-/
+import Mathlib.Data.Fintype.Basic
+import Mathlib.GroupTheory.Perm.Sign
+import Mathlib.Logic.Equiv.Defs
+
+/-! # Equivalence between fintypes
+
+This file contains some basic results on equivalences where one or both
+sides of the equivalence are `Fintype`s.
+
+# Main definitions
+
+ - `Function.Embedding.toEquivRange`: computably turn an embedding of a
+   fintype into an `Equiv` of the domain to its range
+ - `Equiv.Perm.viaFintypeEmbedding : Perm α → (α ↪ β) → Perm β` extends the domain of
+   a permutation, fixing everything outside the range of the embedding
+
+# Implementation details
+
+ - `Function.Embedding.toEquivRange` uses a computable inverse, but one that has poor
+   computational performance, since it operates by exhaustive search over the input `Fintype`s.
+-/
+
+
+variable {α β : Type _} [Fintype α] [DecidableEq β] (e : Equiv.Perm α) (f : α ↪ β)
+
+/-- Computably turn an embedding `f : α ↪ β` into an equiv `α ≃ Set.range f`,
+if `α` is a `Fintype`. Has poor computational performance, due to exhaustive searching in
+constructed inverse. When a better inverse is known, use `Equiv.ofLeftInverse'` or
+`Equiv.ofLeftInverse` instead. This is the computable version of `Equiv.ofInjective`.
+-/
+def Function.Embedding.toEquivRange : α ≃ Set.range f :=
+  ⟨fun a => ⟨f a, Set.mem_range_self a⟩, f.invOfMemRange, fun _ => by simp, fun _ => by simp⟩
+#align function.embedding.to_equiv_range Function.Embedding.toEquivRange
+
+@[simp]
+theorem Function.Embedding.toEquivRange_apply (a : α) :
+    f.toEquivRange a = ⟨f a, Set.mem_range_self a⟩ :=
+  rfl
+#align function.embedding.to_equiv_range_apply Function.Embedding.toEquivRange_apply
+
+@[simp]
+theorem Function.Embedding.toEquivRange_symm_apply_self (a : α) :
+    f.toEquivRange.symm ⟨f a, Set.mem_range_self a⟩ = a := by simp [Equiv.symm_apply_eq]
+#align function.embedding.to_equiv_range_symm_apply_self Function.Embedding.toEquivRange_symm_apply_self
+
+theorem Function.Embedding.toEquivRange_eq_ofInjective :
+    f.toEquivRange = Equiv.ofInjective f f.injective := by
+  ext
+  simp
+#align function.embedding.to_equiv_range_eq_of_injective Function.Embedding.toEquivRange_eq_ofInjective
+
+/-- Extend the domain of `e : Equiv.Perm α`, mapping it through `f : α ↪ β`.
+Everything outside of `Set.range f` is kept fixed. Has poor computational performance,
+due to exhaustive searching in constructed inverse due to using `Function.Embedding.toEquivRange`.
+When a better `α ≃ Set.range f` is known, use `Equiv.Perm.viaSetRange`.
+When `[Fintype α]` is not available, a noncomputable version is available as
+`Equiv.Perm.viaEmbedding`.
+-/
+def Equiv.Perm.viaFintypeEmbedding : Equiv.Perm β :=
+  e.extendDomain f.toEquivRange
+#align equiv.perm.via_fintype_embedding Equiv.Perm.viaFintypeEmbedding
+
+@[simp]
+theorem Equiv.Perm.viaFintypeEmbedding_apply_image (a : α) :
+    e.viaFintypeEmbedding f (f a) = f (e a) := by
+  rw [Equiv.Perm.viaFintypeEmbedding]
+  convert Equiv.Perm.extendDomain_apply_image e (Function.Embedding.toEquivRange f) a
+#align equiv.perm.via_fintype_embedding_apply_image Equiv.Perm.viaFintypeEmbedding_apply_image
+
+theorem Equiv.Perm.viaFintypeEmbedding_apply_mem_range {b : β} (h : b ∈ Set.range f) :
+    e.viaFintypeEmbedding f b = f (e (f.invOfMemRange ⟨b, h⟩)) := by
+  simp only [viaFintypeEmbedding, Function.Embedding.invOfMemRange]
+  rw [Equiv.Perm.extendDomain_apply_subtype]
+  congr
+#align equiv.perm.via_fintype_embedding_apply_mem_range Equiv.Perm.viaFintypeEmbedding_apply_mem_range
+
+theorem Equiv.Perm.viaFintypeEmbedding_apply_not_mem_range {b : β} (h : b ∉ Set.range f) :
+    e.viaFintypeEmbedding f b = b := by
+  rwa [Equiv.Perm.viaFintypeEmbedding, Equiv.Perm.extendDomain_apply_not_subtype]
+#align equiv.perm.via_fintype_embedding_apply_not_mem_range Equiv.Perm.viaFintypeEmbedding_apply_not_mem_range
+
+@[simp]
+theorem Equiv.Perm.viaFintypeEmbedding_sign [DecidableEq α] [Fintype β] :
+    Equiv.Perm.sign (e.viaFintypeEmbedding f) = Equiv.Perm.sign e := by
+  simp [Equiv.Perm.viaFintypeEmbedding]
+#align equiv.perm.via_fintype_embedding_sign Equiv.Perm.viaFintypeEmbedding_sign
+
+namespace Equiv
+
+variable {p q : α → Prop} [DecidablePred p] [DecidablePred q]
+
+/-- If `e` is an equivalence between two subtypes of a fintype `α`, `e.toCompl`
+is an equivalence between the complement of those subtypes.
+
+See also `Equiv.compl`, for a computable version when a term of type
+`{e' : α ≃ α // ∀ x : {x // p x}, e' x = e x}` is known. -/
+noncomputable def toCompl (e : { x // p x } ≃ { x // q x }) : { x // ¬p x } ≃ { x // ¬q x } :=
+  Classical.choice
+    (Fintype.card_eq.mp (Fintype.card_compl_eq_card_compl _ _ (Fintype.card_congr e)))
+#align equiv.to_compl Equiv.toCompl
+
+/-- If `e` is an equivalence between two subtypes of a fintype `α`, `e.extendSubtype`
+is a permutation of `α` acting like `e` on the subtypes and doing something arbitrary outside.
+
+Note that when `p = q`, `Equiv.Perm.subtypeCongr e (Equiv.refl _)` can be used instead. -/
+noncomputable abbrev extendSubtype (e : { x // p x } ≃ { x // q x }) : Perm α :=
+  subtypeCongr e e.toCompl
+#align equiv.extend_subtype Equiv.extendSubtype
+
+theorem extendSubtype_apply_of_mem (e : { x // p x } ≃ { x // q x }) (x) (hx : p x) :
+    e.extendSubtype x = e ⟨x, hx⟩ := by
+  dsimp only [extendSubtype]
+  simp only [subtypeCongr, Equiv.trans_apply, Equiv.sumCongr_apply]
+  rw [sumCompl_apply_symm_of_pos _ _ hx, Sum.map_inl, sumCompl_apply_inl]
+#align equiv.extend_subtype_apply_of_mem Equiv.extendSubtype_apply_of_mem
+
+theorem extendSubtype_mem (e : { x // p x } ≃ { x // q x }) (x) (hx : p x) :
+    q (e.extendSubtype x) := by
+  convert (e ⟨x, hx⟩).2
+  rw [e.extendSubtype_apply_of_mem _ hx]
+#align equiv.extend_subtype_mem Equiv.extendSubtype_mem
+
+theorem extendSubtype_apply_of_not_mem (e : { x // p x } ≃ { x // q x }) (x) (hx : ¬p x) :
+    e.extendSubtype x = e.toCompl ⟨x, hx⟩ := by
+  dsimp only [extendSubtype]
+  simp only [subtypeCongr, Equiv.trans_apply, Equiv.sumCongr_apply]
+  rw [sumCompl_apply_symm_of_neg _ _ hx, Sum.map_inr, sumCompl_apply_inr]
+#align equiv.extend_subtype_apply_of_not_mem Equiv.extendSubtype_apply_of_not_mem
+
+theorem extendSubtype_not_mem (e : { x // p x } ≃ { x // q x }) (x) (hx : ¬p x) :
+    ¬q (e.extendSubtype x) := by
+  convert (e.toCompl ⟨x, hx⟩).2
+  rw [e.extendSubtype_apply_of_not_mem _ hx]
+#align equiv.extend_subtype_not_mem Equiv.extendSubtype_not_mem
+
+end Equiv