algebra.lie.free | Mathlib porting status

Changes since the initial port

The following section lists changes to this file in mathlib3 and mathlib4 that occured after the initial port. Most recent changes are shown first. Hovering over a commit will show all commits associated with the same mathlib3 commit.

Changes in mathlib3

841ac1a3

(last sync)

Changes in mathlib3port

mathlib3

mathlib3port

6b31d1ee

bump to nightly-2023-09-24-06

mathlib commit https://github.com/leanprover-community/mathlib/commit/ce64cd319bb6b3e82f31c2d38e79080d377be451

5655435f

Diff

@@ -3,10 +3,10 @@ Copyright (c) 2021 Oliver Nash. All rights reserved.
 Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Oliver Nash
 -/
-import Mathbin.Algebra.Lie.OfAssociative
-import Mathbin.Algebra.Lie.NonUnitalNonAssocAlgebra
-import Mathbin.Algebra.Lie.UniversalEnveloping
-import Mathbin.Algebra.FreeNonUnitalNonAssocAlgebra
+import Algebra.Lie.OfAssociative
+import Algebra.Lie.NonUnitalNonAssocAlgebra
+import Algebra.Lie.UniversalEnveloping
+import Algebra.FreeNonUnitalNonAssocAlgebra
 
 #align_import algebra.lie.free from "leanprover-community/mathlib"@"6b31d1eebd64eab86d5bd9936bfaada6ca8b5842"

6b31d1ee

bump to nightly-2023-07-20-09

mathlib commit https://github.com/leanprover-community/mathlib/commit/8ea5598db6caeddde6cb734aa179cc2408dbd345

9c56d0dd

Diff

@@ -2,17 +2,14 @@
 Copyright (c) 2021 Oliver Nash. All rights reserved.
 Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Oliver Nash
-
-! This file was ported from Lean 3 source module algebra.lie.free
-! leanprover-community/mathlib commit 6b31d1eebd64eab86d5bd9936bfaada6ca8b5842
-! Please do not edit these lines, except to modify the commit id
-! if you have ported upstream changes.
 -/
 import Mathbin.Algebra.Lie.OfAssociative
 import Mathbin.Algebra.Lie.NonUnitalNonAssocAlgebra
 import Mathbin.Algebra.Lie.UniversalEnveloping
 import Mathbin.Algebra.FreeNonUnitalNonAssocAlgebra
 
+#align_import algebra.lie.free from "leanprover-community/mathlib"@"6b31d1eebd64eab86d5bd9936bfaada6ca8b5842"
+
 /-!
 # Free Lie algebras

6b31d1ee

bump to nightly-2023-06-13-21

mathlib commit https://github.com/leanprover-community/mathlib/commit/9fb8964792b4237dac6200193a0d533f1b3f7423

829520ac

Diff

@@ -63,21 +63,16 @@ noncomputable section
 
 variable (R : Type u) (X : Type v) [CommRing R]
 
--- mathport name: exprlib
 /- We save characters by using Bourbaki's name `lib` (as in «libre») for
 `free_non_unital_non_assoc_algebra` in this file. -/
 local notation "lib" => FreeNonUnitalNonAssocAlgebra
 
--- mathport name: «exprlib.lift»
 local notation "lib.lift" => FreeNonUnitalNonAssocAlgebra.lift
 
--- mathport name: «exprlib.of»
 local notation "lib.of" => FreeNonUnitalNonAssocAlgebra.of
 
--- mathport name: «exprlib.lift_of_apply»
 local notation "lib.lift_of_apply" => FreeNonUnitalNonAssocAlgebra.lift_of_apply
 
--- mathport name: «exprlib.lift_comp_of»
 local notation "lib.lift_comp_of" => FreeNonUnitalNonAssocAlgebra.lift_comp_of
 
 namespace FreeLieAlgebra
@@ -97,28 +92,38 @@ inductive Rel : lib R X → lib R X → Prop
 
 variable {R X}
 
+#print FreeLieAlgebra.Rel.addLeft /-
 theorem Rel.addLeft (a : lib R X) {b c : lib R X} (h : Rel R X b c) : Rel R X (a + b) (a + c) := by
   rw [add_comm _ b, add_comm _ c]; exact h.add_right _
 #align free_lie_algebra.rel.add_left FreeLieAlgebra.Rel.addLeft
+-/
 
+#print FreeLieAlgebra.Rel.neg /-
 theorem Rel.neg {a b : lib R X} (h : Rel R X a b) : Rel R X (-a) (-b) := by
   simpa only [neg_one_smul] using h.smul (-1)
 #align free_lie_algebra.rel.neg FreeLieAlgebra.Rel.neg
+-/
 
+#print FreeLieAlgebra.Rel.subLeft /-
 theorem Rel.subLeft (a : lib R X) {b c : lib R X} (h : Rel R X b c) : Rel R X (a - b) (a - c) := by
   simpa only [sub_eq_add_neg] using h.neg.add_left a
 #align free_lie_algebra.rel.sub_left FreeLieAlgebra.Rel.subLeft
+-/
 
+#print FreeLieAlgebra.Rel.subRight /-
 theorem Rel.subRight {a b : lib R X} (c : lib R X) (h : Rel R X a b) : Rel R X (a - c) (b - c) := by
   simpa only [sub_eq_add_neg] using h.add_right (-c)
 #align free_lie_algebra.rel.sub_right FreeLieAlgebra.Rel.subRight
+-/
 
+#print FreeLieAlgebra.Rel.smulOfTower /-
 theorem Rel.smulOfTower {S : Type _} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] (t : S)
     (a b : lib R X) (h : Rel R X a b) : Rel R X (t • a) (t • b) :=
   by
   rw [← smul_one_smul R t a, ← smul_one_smul R t b]
   exact h.smul _
 #align free_lie_algebra.rel.smul_of_tower FreeLieAlgebra.Rel.smulOfTower
+-/
 
 end FreeLieAlgebra
 
@@ -191,26 +196,35 @@ def of : X → FreeLieAlgebra R X := fun x => Quot.mk _ (lib.of R x)
 
 variable {L : Type w} [LieRing L] [LieAlgebra R L]
 
+#print FreeLieAlgebra.liftAux /-
 /-- An auxiliary definition used to construct the equivalence `lift` below. -/
 def liftAux (f : X → CommutatorRing L) :=
   lib.lift R f
 #align free_lie_algebra.lift_aux FreeLieAlgebra.liftAux
+-/
 
+#print FreeLieAlgebra.liftAux_map_smul /-
 theorem liftAux_map_smul (f : X → L) (t : R) (a : lib R X) :
     liftAux R f (t • a) = t • liftAux R f a :=
   NonUnitalAlgHom.map_smul _ t a
 #align free_lie_algebra.lift_aux_map_smul FreeLieAlgebra.liftAux_map_smul
+-/
 
+#print FreeLieAlgebra.liftAux_map_add /-
 theorem liftAux_map_add (f : X → L) (a b : lib R X) :
     liftAux R f (a + b) = liftAux R f a + liftAux R f b :=
   NonUnitalAlgHom.map_add _ a b
 #align free_lie_algebra.lift_aux_map_add FreeLieAlgebra.liftAux_map_add
+-/
 
+#print FreeLieAlgebra.liftAux_map_mul /-
 theorem liftAux_map_mul (f : X → L) (a b : lib R X) :
     liftAux R f (a * b) = ⁅liftAux R f a, liftAux R f b⁆ :=
   NonUnitalAlgHom.map_mul _ a b
 #align free_lie_algebra.lift_aux_map_mul FreeLieAlgebra.liftAux_map_mul
+-/
 
+#print FreeLieAlgebra.liftAux_spec /-
 theorem liftAux_spec (f : X → L) (a b : lib R X) (h : FreeLieAlgebra.Rel R X a b) :
     liftAux R f a = liftAux R f b := by
   induction h
@@ -222,7 +236,9 @@ theorem liftAux_spec (f : X → L) (a b : lib R X) (h : FreeLieAlgebra.Rel R X a
   case mul_left a' b' c' h₁ h₂ => simp only [lift_aux_map_mul, h₂]
   case mul_right a' b' c' h₁ h₂ => simp only [lift_aux_map_mul, h₂]
 #align free_lie_algebra.lift_aux_spec FreeLieAlgebra.liftAux_spec
+-/
 
+#print FreeLieAlgebra.mk /-
 /-- The quotient map as a `non_unital_alg_hom`. -/
 def mk : lib R X →ₙₐ[R] CommutatorRing (FreeLieAlgebra R X)
     where
@@ -232,7 +248,9 @@ def mk : lib R X →ₙₐ[R] CommutatorRing (FreeLieAlgebra R X)
   map_add' a b := rfl
   map_mul' a b := rfl
 #align free_lie_algebra.mk FreeLieAlgebra.mk
+-/
 
+#print FreeLieAlgebra.lift /-
 /-- The functor `X ↦ free_lie_algebra R X` from the category of types to the category of Lie
 algebras over `R` is adjoint to the forgetful functor in the other direction. -/
 def lift : (X → L) ≃ (FreeLieAlgebra R X →ₗ⁅R⁆ L)
@@ -250,43 +268,57 @@ def lift : (X → L) ≃ (FreeLieAlgebra R X →ₗ⁅R⁆ L)
     let F' := F.to_non_unital_alg_hom.comp (mk R)
     exact NonUnitalAlgHom.congr_fun (lib.lift_comp_of R F') a
 #align free_lie_algebra.lift FreeLieAlgebra.lift
+-/
 
+#print FreeLieAlgebra.lift_symm_apply /-
 @[simp]
 theorem lift_symm_apply (F : FreeLieAlgebra R X →ₗ⁅R⁆ L) : (lift R).symm F = F ∘ of R :=
   rfl
 #align free_lie_algebra.lift_symm_apply FreeLieAlgebra.lift_symm_apply
+-/
 
 variable {R}
 
+#print FreeLieAlgebra.of_comp_lift /-
 @[simp]
 theorem of_comp_lift (f : X → L) : lift R f ∘ of R = f :=
   (lift R).left_inv f
 #align free_lie_algebra.of_comp_lift FreeLieAlgebra.of_comp_lift
+-/
 
+#print FreeLieAlgebra.lift_unique /-
 @[simp]
 theorem lift_unique (f : X → L) (g : FreeLieAlgebra R X →ₗ⁅R⁆ L) : g ∘ of R = f ↔ g = lift R f :=
   (lift R).symm_apply_eq
 #align free_lie_algebra.lift_unique FreeLieAlgebra.lift_unique
+-/
 
+#print FreeLieAlgebra.lift_of_apply /-
 @[simp]
 theorem lift_of_apply (f : X → L) (x) : lift R f (of R x) = f x := by
   rw [← Function.comp_apply (lift R f) (of R) x, of_comp_lift]
 #align free_lie_algebra.lift_of_apply FreeLieAlgebra.lift_of_apply
+-/
 
+#print FreeLieAlgebra.lift_comp_of /-
 @[simp]
 theorem lift_comp_of (F : FreeLieAlgebra R X →ₗ⁅R⁆ L) : lift R (F ∘ of R) = F := by
   rw [← lift_symm_apply]; exact (lift R).apply_symm_apply F
 #align free_lie_algebra.lift_comp_of FreeLieAlgebra.lift_comp_of
+-/
 
+#print FreeLieAlgebra.hom_ext /-
 @[ext]
 theorem hom_ext {F₁ F₂ : FreeLieAlgebra R X →ₗ⁅R⁆ L} (h : ∀ x, F₁ (of R x) = F₂ (of R x)) :
     F₁ = F₂ :=
   have h' : (lift R).symm F₁ = (lift R).symm F₂ := by ext; simp [h]
   (lift R).symm.Injective h'
 #align free_lie_algebra.hom_ext FreeLieAlgebra.hom_ext
+-/
 
 variable (R X)
 
+#print FreeLieAlgebra.universalEnvelopingEquivFreeAlgebra /-
 /-- The universal enveloping algebra of the free Lie algebra is just the free unital associative
 algebra. -/
 @[simps]
@@ -296,6 +328,7 @@ def universalEnvelopingEquivFreeAlgebra :
     (FreeAlgebra.lift R <| UniversalEnvelopingAlgebra.ι R ∘ FreeLieAlgebra.of R) (by ext; simp)
     (by ext; simp)
 #align free_lie_algebra.universal_enveloping_equiv_free_algebra FreeLieAlgebra.universalEnvelopingEquivFreeAlgebra
+-/
 
 end FreeLieAlgebra

6b31d1ee

bump to nightly-2023-06-10-03

mathlib commit https://github.com/leanprover-community/mathlib/commit/a3e83f0fa4391c8740f7d773a7a9b74e311ae2a3

e13a28eb

Diff

@@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Oliver Nash
 
 ! This file was ported from Lean 3 source module algebra.lie.free
-! leanprover-community/mathlib commit 841ac1a3d9162bf51c6327812ecb6e5e71883ac4
+! leanprover-community/mathlib commit 6b31d1eebd64eab86d5bd9936bfaada6ca8b5842
 ! Please do not edit these lines, except to modify the commit id
 ! if you have ported upstream changes.
 -/
@@ -16,6 +16,9 @@ import Mathbin.Algebra.FreeNonUnitalNonAssocAlgebra
 /-!
 # Free Lie algebras
 
+> THIS FILE IS SYNCHRONIZED WITH MATHLIB4.
+> Any changes to this file require a corresponding PR to mathlib4.
+
 Given a commutative ring `R` and a type `X` we construct the free Lie algebra on `X` with
 coefficients in `R` together with its universal property.

841ac1a3

bump to nightly-2023-06-08-23

mathlib commit https://github.com/leanprover-community/mathlib/commit/31c24aa72e7b3e5ed97a8412470e904f82b81004

d3cfe2e3

Diff

@@ -79,6 +79,7 @@ local notation "lib.lift_comp_of" => FreeNonUnitalNonAssocAlgebra.lift_comp_of
 
 namespace FreeLieAlgebra
 
+#print FreeLieAlgebra.Rel /-
 /-- The quotient of `lib R X` by the equivalence relation generated by this relation will give us
 the free Lie algebra. -/
 inductive Rel : lib R X → lib R X → Prop
@@ -89,6 +90,7 @@ inductive Rel : lib R X → lib R X → Prop
   | mul_left (a : lib R X) {b c : lib R X} : Rel b c → Rel (a * b) (a * c)
   | mul_right {a b : lib R X} (c : lib R X) : Rel a b → Rel (a * c) (b * c)
 #align free_lie_algebra.rel FreeLieAlgebra.Rel
+-/
 
 variable {R X}
 
@@ -117,11 +119,13 @@ theorem Rel.smulOfTower {S : Type _} [Monoid S] [DistribMulAction S R] [IsScalar
 
 end FreeLieAlgebra
 
+#print FreeLieAlgebra /-
 /-- The free Lie algebra on the type `X` with coefficients in the commutative ring `R`. -/
 def FreeLieAlgebra :=
   Quot (FreeLieAlgebra.Rel R X)
 deriving Inhabited
 #align free_lie_algebra FreeLieAlgebra
+-/
 
 namespace FreeLieAlgebra
 
@@ -175,10 +179,12 @@ instance : LieAlgebra R (FreeLieAlgebra R X)
 
 variable {X}
 
+#print FreeLieAlgebra.of /-
 /-- The embedding of `X` into the free Lie algebra of `X` with coefficients in the commutative ring
 `R`. -/
 def of : X → FreeLieAlgebra R X := fun x => Quot.mk _ (lib.of R x)
 #align free_lie_algebra.of FreeLieAlgebra.of
+-/
 
 variable {L : Type w} [LieRing L] [LieAlgebra R L]

841ac1a3

bump to nightly-2023-06-01-16

mathlib commit https://github.com/leanprover-community/mathlib/commit/cca40788df1b8755d5baf17ab2f27dacc2e17acb

b9c87c70

Diff

@@ -119,7 +119,8 @@ end FreeLieAlgebra
 
 /-- The free Lie algebra on the type `X` with coefficients in the commutative ring `R`. -/
 def FreeLieAlgebra :=
-  Quot (FreeLieAlgebra.Rel R X)deriving Inhabited
+  Quot (FreeLieAlgebra.Rel R X)
+deriving Inhabited
 #align free_lie_algebra FreeLieAlgebra
 
 namespace FreeLieAlgebra

841ac1a3

bump to nightly-2023-05-28-04

mathlib commit https://github.com/leanprover-community/mathlib/commit/917c3c072e487b3cccdbfeff17e75b40e45f66cb

6797a637

Diff

@@ -92,10 +92,8 @@ inductive Rel : lib R X → lib R X → Prop
 
 variable {R X}
 
-theorem Rel.addLeft (a : lib R X) {b c : lib R X} (h : Rel R X b c) : Rel R X (a + b) (a + c) :=
-  by
-  rw [add_comm _ b, add_comm _ c]
-  exact h.add_right _
+theorem Rel.addLeft (a : lib R X) {b c : lib R X} (h : Rel R X b c) : Rel R X (a + b) (a + c) := by
+  rw [add_comm _ b, add_comm _ c]; exact h.add_right _
 #align free_lie_algebra.rel.add_left FreeLieAlgebra.Rel.addLeft
 
 theorem Rel.neg {a b : lib R X} (h : Rel R X a b) : Rel R X (-a) (-b) := by
@@ -163,20 +161,10 @@ on `lib R X` into a `has_bracket` on `free_lie_algebra`. -/
 instance : LieRing (FreeLieAlgebra R X)
     where
   bracket := Quot.map₂ (· * ·) (fun _ _ _ => Rel.mul_left _) fun _ _ _ => Rel.mul_right _
-  add_lie := by
-    rintro ⟨a⟩ ⟨b⟩ ⟨c⟩
-    change Quot.mk _ _ = Quot.mk _ _
-    rw [add_mul]
-  lie_add := by
-    rintro ⟨a⟩ ⟨b⟩ ⟨c⟩
-    change Quot.mk _ _ = Quot.mk _ _
-    rw [mul_add]
-  lie_self := by
-    rintro ⟨a⟩
-    exact Quot.sound (rel.lie_self a)
-  leibniz_lie := by
-    rintro ⟨a⟩ ⟨b⟩ ⟨c⟩
-    exact Quot.sound (rel.leibniz_lie a b c)
+  add_lie := by rintro ⟨a⟩ ⟨b⟩ ⟨c⟩; change Quot.mk _ _ = Quot.mk _ _; rw [add_mul]
+  lie_add := by rintro ⟨a⟩ ⟨b⟩ ⟨c⟩; change Quot.mk _ _ = Quot.mk _ _; rw [mul_add]
+  lie_self := by rintro ⟨a⟩; exact Quot.sound (rel.lie_self a)
+  leibniz_lie := by rintro ⟨a⟩ ⟨b⟩ ⟨c⟩; exact Quot.sound (rel.leibniz_lie a b c)
 
 instance : LieAlgebra R (FreeLieAlgebra R X)
     where lie_smul := by
@@ -241,21 +229,11 @@ def lift : (X → L) ≃ (FreeLieAlgebra R X →ₗ⁅R⁆ L)
     where
   toFun f :=
     { toFun := fun c => Quot.liftOn c (liftAux R f) (liftAux_spec R f)
-      map_add' := by
-        rintro ⟨a⟩ ⟨b⟩
-        rw [← lift_aux_map_add]
-        rfl
-      map_smul' := by
-        rintro t ⟨a⟩
-        rw [← lift_aux_map_smul]
-        rfl
-      map_lie' := by
-        rintro ⟨a⟩ ⟨b⟩
-        rw [← lift_aux_map_mul]
-        rfl }
+      map_add' := by rintro ⟨a⟩ ⟨b⟩; rw [← lift_aux_map_add]; rfl
+      map_smul' := by rintro t ⟨a⟩; rw [← lift_aux_map_smul]; rfl
+      map_lie' := by rintro ⟨a⟩ ⟨b⟩; rw [← lift_aux_map_mul]; rfl }
   invFun F := F ∘ of R
-  left_inv f := by
-    ext x
+  left_inv f := by ext x;
     simp only [lift_aux, of, Quot.liftOn_mk, LieHom.coe_mk, Function.comp_apply, lib.lift_of_apply]
   right_inv F := by
     ext ⟨a⟩
@@ -286,10 +264,8 @@ theorem lift_of_apply (f : X → L) (x) : lift R f (of R x) = f x := by
 #align free_lie_algebra.lift_of_apply FreeLieAlgebra.lift_of_apply
 
 @[simp]
-theorem lift_comp_of (F : FreeLieAlgebra R X →ₗ⁅R⁆ L) : lift R (F ∘ of R) = F :=
-  by
-  rw [← lift_symm_apply]
-  exact (lift R).apply_symm_apply F
+theorem lift_comp_of (F : FreeLieAlgebra R X →ₗ⁅R⁆ L) : lift R (F ∘ of R) = F := by
+  rw [← lift_symm_apply]; exact (lift R).apply_symm_apply F
 #align free_lie_algebra.lift_comp_of FreeLieAlgebra.lift_comp_of
 
 @[ext]
@@ -307,13 +283,8 @@ algebra. -/
 def universalEnvelopingEquivFreeAlgebra :
     UniversalEnvelopingAlgebra R (FreeLieAlgebra R X) ≃ₐ[R] FreeAlgebra R X :=
   AlgEquiv.ofAlgHom (UniversalEnvelopingAlgebra.lift R <| FreeLieAlgebra.lift R <| FreeAlgebra.ι R)
-    (FreeAlgebra.lift R <| UniversalEnvelopingAlgebra.ι R ∘ FreeLieAlgebra.of R)
-    (by
-      ext
-      simp)
-    (by
-      ext
-      simp)
+    (FreeAlgebra.lift R <| UniversalEnvelopingAlgebra.ι R ∘ FreeLieAlgebra.of R) (by ext; simp)
+    (by ext; simp)
 #align free_lie_algebra.universal_enveloping_equiv_free_algebra FreeLieAlgebra.universalEnvelopingEquivFreeAlgebra
 
 end FreeLieAlgebra

841ac1a3

bump to nightly-2023-02-21-16

mathlib commit https://github.com/leanprover-community/mathlib/commit/bd9851ca476957ea4549eb19b40e7b5ade9428cc

1107b979

Changes in mathlib4

mathlib3

mathlib4

841ac1a3

chore: remove mathport name: <expression> lines (#11928)

Quoting [@digama0](https://github.com/digama0):

These were actually never meant to go in the file, they are basically debugging information and only useful on significantly broken mathport files. You can safely remove all of them.

11431c65

Diff

@@ -57,21 +57,16 @@ noncomputable section
 
 variable (R : Type u) (X : Type v) [CommRing R]
 
--- mathport name: exprlib
 /- We save characters by using Bourbaki's name `lib` (as in «libre») for
 `FreeNonUnitalNonAssocAlgebra` in this file. -/
 local notation "lib" => FreeNonUnitalNonAssocAlgebra
 
--- mathport name: «exprlib.lift»
 local notation "lib.lift" => FreeNonUnitalNonAssocAlgebra.lift
 
--- mathport name: «exprlib.of»
 local notation "lib.of" => FreeNonUnitalNonAssocAlgebra.of
 
--- mathport name: «exprlib.lift_of_apply»
 local notation "lib.lift_of_apply" => FreeNonUnitalNonAssocAlgebra.lift_of_apply
 
--- mathport name: «exprlib.lift_comp_of»
 local notation "lib.lift_comp_of" => FreeNonUnitalNonAssocAlgebra.lift_comp_of
 
 namespace FreeLieAlgebra

841ac1a3

chore: Move scalar compatibility instance for ℤ and ℕ on rings to their own files (#9455)

Part of #9411.

Also corrects some instance names in the docstrings.

Co-authored-by: Eric Wieser <wieser.eric@gmail.com>

cf880ce2

Diff

@@ -3,10 +3,10 @@ Copyright (c) 2021 Oliver Nash. All rights reserved.
 Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Oliver Nash
 -/
-import Mathlib.Algebra.Lie.OfAssociative
+import Mathlib.Algebra.FreeNonUnitalNonAssocAlgebra
 import Mathlib.Algebra.Lie.NonUnitalNonAssocAlgebra
 import Mathlib.Algebra.Lie.UniversalEnveloping
-import Mathlib.Algebra.FreeNonUnitalNonAssocAlgebra
+import Mathlib.GroupTheory.GroupAction.Ring
 
 #align_import algebra.lie.free from "leanprover-community/mathlib"@"841ac1a3d9162bf51c6327812ecb6e5e71883ac4"

841ac1a3

style: use cases x with | ... instead of cases x; case => ... (#9321)

This converts usages of the pattern

cases h
case inl h' => ...
case inr h' => ...

which derive from mathported code, to the "structured cases" syntax:

cases h with
| inl h' => ...
| inr h' => ...

The case where the subgoals are handled with · instead of case is more contentious (and much more numerous) so I left those alone. This pattern also appears with cases', induction, induction', and rcases. Furthermore, there is a similar transformation for by_cases:

by_cases h : cond
case pos => ...
case neg => ...

is replaced by:

if h : cond then
  ...
else
  ...

Co-authored-by: Mario Carneiro <di.gama@gmail.com>

e04a464d

Diff

@@ -201,14 +201,14 @@ theorem liftAux_map_mul (f : X → L) (a b : lib R X) :
 
 theorem liftAux_spec (f : X → L) (a b : lib R X) (h : FreeLieAlgebra.Rel R X a b) :
     liftAux R f a = liftAux R f b := by
-  induction h
-  case lie_self a' => simp only [liftAux_map_mul, NonUnitalAlgHom.map_zero, lie_self]
-  case leibniz_lie a' b' c' =>
+  induction h with
+  | lie_self a' => simp only [liftAux_map_mul, NonUnitalAlgHom.map_zero, lie_self]
+  | leibniz_lie a' b' c' =>
     simp only [liftAux_map_mul, liftAux_map_add, sub_add_cancel, lie_lie]
-  case smul t a' b' _ h₂ => simp only [liftAux_map_smul, h₂]
-  case add_right a' b' c' _ h₂ => simp only [liftAux_map_add, h₂]
-  case mul_left a' b' c' _ h₂ => simp only [liftAux_map_mul, h₂]
-  case mul_right a' b' c' _ h₂ => simp only [liftAux_map_mul, h₂]
+  | smul b' _ h₂ => simp only [liftAux_map_smul, h₂]
+  | add_right c' _ h₂ => simp only [liftAux_map_add, h₂]
+  | mul_left c' _ h₂ => simp only [liftAux_map_mul, h₂]
+  | mul_right c' _ h₂ => simp only [liftAux_map_mul, h₂]
 #align free_lie_algebra.lift_aux_spec FreeLieAlgebra.liftAux_spec
 
 /-- The quotient map as a `NonUnitalAlgHom`. -/

841ac1a3

chore: Replace (· op ·) a by (a op ·) (#8843)

I used the regex $\(· (.) ·$ (.)\), replacing with ($2 $1 ·).

d14658b4

Diff

@@ -123,7 +123,7 @@ instance : Inhabited (FreeLieAlgebra R X) := by rw [FreeLieAlgebra]; infer_insta
 namespace FreeLieAlgebra
 
 instance {S : Type*} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] :
-    SMul S (FreeLieAlgebra R X) where smul t := Quot.map ((· • ·) t) (Rel.smulOfTower t)
+    SMul S (FreeLieAlgebra R X) where smul t := Quot.map (t • ·) (Rel.smulOfTower t)
 
 instance {S : Type*} [Monoid S] [DistribMulAction S R] [DistribMulAction Sᵐᵒᵖ R]
     [IsScalarTower S R R] [IsCentralScalar S R] : IsCentralScalar S (FreeLieAlgebra R X) where

841ac1a3

style: fix wrapping of where (#7149)

084cfb35

Diff

@@ -126,18 +126,18 @@ instance {S : Type*} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] :
     SMul S (FreeLieAlgebra R X) where smul t := Quot.map ((· • ·) t) (Rel.smulOfTower t)
 
 instance {S : Type*} [Monoid S] [DistribMulAction S R] [DistribMulAction Sᵐᵒᵖ R]
-    [IsScalarTower S R R] [IsCentralScalar S R] : IsCentralScalar S (FreeLieAlgebra R X)
-    where op_smul_eq_smul t := Quot.ind fun a => congr_arg (Quot.mk _) (op_smul_eq_smul t a)
+    [IsScalarTower S R R] [IsCentralScalar S R] : IsCentralScalar S (FreeLieAlgebra R X) where
+  op_smul_eq_smul t := Quot.ind fun a => congr_arg (Quot.mk _) (op_smul_eq_smul t a)
 
 instance : Zero (FreeLieAlgebra R X) where zero := Quot.mk _ 0
 
-instance : Add (FreeLieAlgebra R X)
-    where add := Quot.map₂ (· + ·) (fun _ _ _ => Rel.addLeft _) fun _ _ _ => Rel.add_right _
+instance : Add (FreeLieAlgebra R X) where
+  add := Quot.map₂ (· + ·) (fun _ _ _ => Rel.addLeft _) fun _ _ _ => Rel.add_right _
 
 instance : Neg (FreeLieAlgebra R X) where neg := Quot.map Neg.neg fun _ _ => Rel.neg
 
-instance : Sub (FreeLieAlgebra R X)
-    where sub := Quot.map₂ Sub.sub (fun _ _ _ => Rel.subLeft _) fun _ _ _ => Rel.subRight _
+instance : Sub (FreeLieAlgebra R X) where
+  sub := Quot.map₂ Sub.sub (fun _ _ _ => Rel.subLeft _) fun _ _ _ => Rel.subRight _
 
 instance : AddGroup (FreeLieAlgebra R X) :=
   Function.Surjective.addGroup (Quot.mk _) (surjective_quot_mk _) rfl (fun _ _ => rfl)

841ac1a3

chore: banish Type _ and Sort _ (#6499)

We remove all possible occurences of Type _ and Sort _ in favor of Type* and Sort*.

This has nice performance benefits.

32de3f67

Diff

@@ -105,7 +105,7 @@ theorem Rel.subRight {a b : lib R X} (c : lib R X) (h : Rel R X a b) : Rel R X (
   simpa only [sub_eq_add_neg] using h.add_right (-c)
 #align free_lie_algebra.rel.sub_right FreeLieAlgebra.Rel.subRight
 
-theorem Rel.smulOfTower {S : Type _} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] (t : S)
+theorem Rel.smulOfTower {S : Type*} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] (t : S)
     (a b : lib R X) (h : Rel R X a b) : Rel R X (t • a) (t • b) := by
   rw [← smul_one_smul R t a, ← smul_one_smul R t b]
   exact h.smul _
@@ -122,10 +122,10 @@ instance : Inhabited (FreeLieAlgebra R X) := by rw [FreeLieAlgebra]; infer_insta
 
 namespace FreeLieAlgebra
 
-instance {S : Type _} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] :
+instance {S : Type*} [Monoid S] [DistribMulAction S R] [IsScalarTower S R R] :
     SMul S (FreeLieAlgebra R X) where smul t := Quot.map ((· • ·) t) (Rel.smulOfTower t)
 
-instance {S : Type _} [Monoid S] [DistribMulAction S R] [DistribMulAction Sᵐᵒᵖ R]
+instance {S : Type*} [Monoid S] [DistribMulAction S R] [DistribMulAction Sᵐᵒᵖ R]
     [IsScalarTower S R R] [IsCentralScalar S R] : IsCentralScalar S (FreeLieAlgebra R X)
     where op_smul_eq_smul t := Quot.ind fun a => congr_arg (Quot.mk _) (op_smul_eq_smul t a)
 
@@ -150,7 +150,7 @@ instance : AddCommGroup (FreeLieAlgebra R X) :=
   { (inferInstance : AddGroup (FreeLieAlgebra R X)),
     (inferInstance :  AddCommSemigroup (FreeLieAlgebra R X)) with }
 
-instance {S : Type _} [Semiring S] [Module S R] [IsScalarTower S R R] :
+instance {S : Type*} [Semiring S] [Module S R] [IsScalarTower S R R] :
     Module S (FreeLieAlgebra R X) :=
   Function.Surjective.module S ⟨⟨Quot.mk (Rel R X), rfl⟩, fun _ _ => rfl⟩
     (surjective_quot_mk _) (fun _ _ => rfl)

841ac1a3

chore: script to replace headers with #align_import statements (#5979)

depends on: #5966

Co-authored-by: Eric Wieser <wieser.eric@gmail.com> Co-authored-by: Scott Morrison <scott.morrison@gmail.com>

89aa3a3b

Diff

@@ -2,17 +2,14 @@
 Copyright (c) 2021 Oliver Nash. All rights reserved.
 Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Oliver Nash
-
-! This file was ported from Lean 3 source module algebra.lie.free
-! leanprover-community/mathlib commit 841ac1a3d9162bf51c6327812ecb6e5e71883ac4
-! Please do not edit these lines, except to modify the commit id
-! if you have ported upstream changes.
 -/
 import Mathlib.Algebra.Lie.OfAssociative
 import Mathlib.Algebra.Lie.NonUnitalNonAssocAlgebra
 import Mathlib.Algebra.Lie.UniversalEnveloping
 import Mathlib.Algebra.FreeNonUnitalNonAssocAlgebra
 
+#align_import algebra.lie.free from "leanprover-community/mathlib"@"841ac1a3d9162bf51c6327812ecb6e5e71883ac4"
+
 /-!
 # Free Lie algebras

841ac1a3

chore: cleanup whitespace (#5988)

Grepping for [^ .:{-] [^ :] and reviewing the results. Once I started I couldn't stop. :-)

Co-authored-by: Scott Morrison <scott.morrison@gmail.com>

12343aa5

Diff

@@ -258,7 +258,7 @@ theorem lift_unique (f : X → L) (g : FreeLieAlgebra R X →ₗ⁅R⁆ L) : g 
 
 @[simp]
 theorem lift_of_apply (f : X → L) (x) : lift R f (of R x) = f x := by
-  rw [← @Function.comp_apply  _ _ _ (lift R f) (of R) x, of_comp_lift]
+  rw [← @Function.comp_apply _ _ _ (lift R f) (of R) x, of_comp_lift]
 #align free_lie_algebra.lift_of_apply FreeLieAlgebra.lift_of_apply
 
 @[simp]

841ac1a3

feat: port Algebra.Lie.Free (#4863)

ac5fb5cc

`algebra.lie.free` ⟷ `Mathlib.Algebra.Lie.Free`

Changes since the initial port

Changes in mathlib3

Changes in mathlib3port

Changes in mathlib4

Dependencies 8 + 483

algebra.lie.free ⟷ Mathlib.Algebra.Lie.Free

Changes since the initial port

Changes in mathlib3

Changes in mathlib3port

Changes in mathlib4

Dependencies 8 + 483

`algebra.lie.free` ⟷ `Mathlib.Algebra.Lie.Free`