Module: Mathlib.LinearAlgebra.RootSystem.GeckConstruction.Lemmas

Goal state before:
pp: case inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + -3 * y = -3 ∨ 2 * x + -3 * y = -1 ∨ 2 * x + -3 * y = 0 ∨ 2 * x + -3 * y = 1 ∨ 2 * x + -3 * y = 3
h₁ :
  2 * (x + 1) + -3 * y = -3 ∨
    2 * (x + 1) + -3 * y = -1 ∨ 2 * (x + 1) + -3 * y = 0 ∨ 2 * (x + 1) + -3 * y = 1 ∨ 2 * (x + 1) + -3 * y = 3
h₂ :
  2 * x + -3 * (y - 1) = -3 ∨
    2 * x + -3 * (y - 1) = -1 ∨ 2 * x + -3 * (y - 1) = 0 ∨ 2 * x + -3 * (y - 1) = 1 ∨ 2 * x + -3 * (y - 1) = 3
h₃ :
  2 * (x + 1) + -3 * (y - 1) = -3 ∨
    2 * (x + 1) + -3 * (y - 1) = -1 ∨
      2 * (x + 1) + -3 * (y - 1) = 0 ∨ 2 * (x + 1) + -3 * (y - 1) = 1 ∨ 2 * (x + 1) + -3 * (y - 1) = 3
hA : A = -3
⊢ False

pp: case inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + -1 * y = -3 ∨ 2 * x + -1 * y = -1 ∨ 2 * x + -1 * y = 0 ∨ 2 * x + -1 * y = 1 ∨ 2 * x + -1 * y = 3
h₁ :
  2 * (x + 1) + -1 * y = -3 ∨
    2 * (x + 1) + -1 * y = -1 ∨ 2 * (x + 1) + -1 * y = 0 ∨ 2 * (x + 1) + -1 * y = 1 ∨ 2 * (x + 1) + -1 * y = 3
h₂ :
  2 * x + -1 * (y - 1) = -3 ∨
    2 * x + -1 * (y - 1) = -1 ∨ 2 * x + -1 * (y - 1) = 0 ∨ 2 * x + -1 * (y - 1) = 1 ∨ 2 * x + -1 * (y - 1) = 3
h₃ :
  2 * (x + 1) + -1 * (y - 1) = -3 ∨
    2 * (x + 1) + -1 * (y - 1) = -1 ∨
      2 * (x + 1) + -1 * (y - 1) = 0 ∨ 2 * (x + 1) + -1 * (y - 1) = 1 ∨ 2 * (x + 1) + -1 * (y - 1) = 3
hA : A = -1
⊢ False

pp: case inr.inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 0 * y = -3 ∨ 2 * x + 0 * y = -1 ∨ 2 * x + 0 * y = 0 ∨ 2 * x + 0 * y = 1 ∨ 2 * x + 0 * y = 3
h₁ :
  2 * (x + 1) + 0 * y = -3 ∨
    2 * (x + 1) + 0 * y = -1 ∨ 2 * (x + 1) + 0 * y = 0 ∨ 2 * (x + 1) + 0 * y = 1 ∨ 2 * (x + 1) + 0 * y = 3
h₂ :
  2 * x + 0 * (y - 1) = -3 ∨
    2 * x + 0 * (y - 1) = -1 ∨ 2 * x + 0 * (y - 1) = 0 ∨ 2 * x + 0 * (y - 1) = 1 ∨ 2 * x + 0 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 0 * (y - 1) = -3 ∨
    2 * (x + 1) + 0 * (y - 1) = -1 ∨
      2 * (x + 1) + 0 * (y - 1) = 0 ∨ 2 * (x + 1) + 0 * (y - 1) = 1 ∨ 2 * (x + 1) + 0 * (y - 1) = 3
hA : A = 0
⊢ False

pp: case inr.inr.inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 1 * y = -3 ∨ 2 * x + 1 * y = -1 ∨ 2 * x + 1 * y = 0 ∨ 2 * x + 1 * y = 1 ∨ 2 * x + 1 * y = 3
h₁ :
  2 * (x + 1) + 1 * y = -3 ∨
    2 * (x + 1) + 1 * y = -1 ∨ 2 * (x + 1) + 1 * y = 0 ∨ 2 * (x + 1) + 1 * y = 1 ∨ 2 * (x + 1) + 1 * y = 3
h₂ :
  2 * x + 1 * (y - 1) = -3 ∨
    2 * x + 1 * (y - 1) = -1 ∨ 2 * x + 1 * (y - 1) = 0 ∨ 2 * x + 1 * (y - 1) = 1 ∨ 2 * x + 1 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 1 * (y - 1) = -3 ∨
    2 * (x + 1) + 1 * (y - 1) = -1 ∨
      2 * (x + 1) + 1 * (y - 1) = 0 ∨ 2 * (x + 1) + 1 * (y - 1) = 1 ∨ 2 * (x + 1) + 1 * (y - 1) = 3
hA : A = 1
⊢ False

pp: case inr.inr.inr.inr
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 3 * y = -3 ∨ 2 * x + 3 * y = -1 ∨ 2 * x + 3 * y = 0 ∨ 2 * x + 3 * y = 1 ∨ 2 * x + 3 * y = 3
h₁ :
  2 * (x + 1) + 3 * y = -3 ∨
    2 * (x + 1) + 3 * y = -1 ∨ 2 * (x + 1) + 3 * y = 0 ∨ 2 * (x + 1) + 3 * y = 1 ∨ 2 * (x + 1) + 3 * y = 3
h₂ :
  2 * x + 3 * (y - 1) = -3 ∨
    2 * x + 3 * (y - 1) = -1 ∨ 2 * x + 3 * (y - 1) = 0 ∨ 2 * x + 3 * (y - 1) = 1 ∨ 2 * x + 3 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 3 * (y - 1) = -3 ∨
    2 * (x + 1) + 3 * (y - 1) = -1 ∨
      2 * (x + 1) + 3 * (y - 1) = 0 ∨ 2 * (x + 1) + 3 * (y - 1) = 1 ∨ 2 * (x + 1) + 3 * (y - 1) = 3
hA : A = 3
⊢ False

Tactic:
<;>

Goal state after:
case inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + -3 * y = -3 ∨ 2 * x + -3 * y = -1 ∨ 2 * x + -3 * y = 0 ∨ 2 * x + -3 * y = 1 ∨ 2 * x + -3 * y = 3
h₁ :
  2 * (x + 1) + -3 * y = -3 ∨
    2 * (x + 1) + -3 * y = -1 ∨ 2 * (x + 1) + -3 * y = 0 ∨ 2 * (x + 1) + -3 * y = 1 ∨ 2 * (x + 1) + -3 * y = 3
h₂ :
  2 * x + -3 * (y - 1) = -3 ∨
    2 * x + -3 * (y - 1) = -1 ∨ 2 * x + -3 * (y - 1) = 0 ∨ 2 * x + -3 * (y - 1) = 1 ∨ 2 * x + -3 * (y - 1) = 3
h₃ :
  2 * (x + 1) + -3 * (y - 1) = -3 ∨
    2 * (x + 1) + -3 * (y - 1) = -1 ∨
      2 * (x + 1) + -3 * (y - 1) = 0 ∨ 2 * (x + 1) + -3 * (y - 1) = 1 ∨ 2 * (x + 1) + -3 * (y - 1) = 3
hA : A = -3
⊢ False

case inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + -1 * y = -3 ∨ 2 * x + -1 * y = -1 ∨ 2 * x + -1 * y = 0 ∨ 2 * x + -1 * y = 1 ∨ 2 * x + -1 * y = 3
h₁ :
  2 * (x + 1) + -1 * y = -3 ∨
    2 * (x + 1) + -1 * y = -1 ∨ 2 * (x + 1) + -1 * y = 0 ∨ 2 * (x + 1) + -1 * y = 1 ∨ 2 * (x + 1) + -1 * y = 3
h₂ :
  2 * x + -1 * (y - 1) = -3 ∨
    2 * x + -1 * (y - 1) = -1 ∨ 2 * x + -1 * (y - 1) = 0 ∨ 2 * x + -1 * (y - 1) = 1 ∨ 2 * x + -1 * (y - 1) = 3
h₃ :
  2 * (x + 1) + -1 * (y - 1) = -3 ∨
    2 * (x + 1) + -1 * (y - 1) = -1 ∨
      2 * (x + 1) + -1 * (y - 1) = 0 ∨ 2 * (x + 1) + -1 * (y - 1) = 1 ∨ 2 * (x + 1) + -1 * (y - 1) = 3
hA : A = -1
⊢ False

case inr.inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 0 * y = -3 ∨ 2 * x + 0 * y = -1 ∨ 2 * x + 0 * y = 0 ∨ 2 * x + 0 * y = 1 ∨ 2 * x + 0 * y = 3
h₁ :
  2 * (x + 1) + 0 * y = -3 ∨
    2 * (x + 1) + 0 * y = -1 ∨ 2 * (x + 1) + 0 * y = 0 ∨ 2 * (x + 1) + 0 * y = 1 ∨ 2 * (x + 1) + 0 * y = 3
h₂ :
  2 * x + 0 * (y - 1) = -3 ∨
    2 * x + 0 * (y - 1) = -1 ∨ 2 * x + 0 * (y - 1) = 0 ∨ 2 * x + 0 * (y - 1) = 1 ∨ 2 * x + 0 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 0 * (y - 1) = -3 ∨
    2 * (x + 1) + 0 * (y - 1) = -1 ∨
      2 * (x + 1) + 0 * (y - 1) = 0 ∨ 2 * (x + 1) + 0 * (y - 1) = 1 ∨ 2 * (x + 1) + 0 * (y - 1) = 3
hA : A = 0
⊢ False

case inr.inr.inr.inl
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 1 * y = -3 ∨ 2 * x + 1 * y = -1 ∨ 2 * x + 1 * y = 0 ∨ 2 * x + 1 * y = 1 ∨ 2 * x + 1 * y = 3
h₁ :
  2 * (x + 1) + 1 * y = -3 ∨
    2 * (x + 1) + 1 * y = -1 ∨ 2 * (x + 1) + 1 * y = 0 ∨ 2 * (x + 1) + 1 * y = 1 ∨ 2 * (x + 1) + 1 * y = 3
h₂ :
  2 * x + 1 * (y - 1) = -3 ∨
    2 * x + 1 * (y - 1) = -1 ∨ 2 * x + 1 * (y - 1) = 0 ∨ 2 * x + 1 * (y - 1) = 1 ∨ 2 * x + 1 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 1 * (y - 1) = -3 ∨
    2 * (x + 1) + 1 * (y - 1) = -1 ∨
      2 * (x + 1) + 1 * (y - 1) = 0 ∨ 2 * (x + 1) + 1 * (y - 1) = 1 ∨ 2 * (x + 1) + 1 * (y - 1) = 3
hA : A = 1
⊢ False

case inr.inr.inr.inr
ι : Type u_1
R : Type u_2
M : Type u_3
N : Type u_4
inst✝¹⁰ : CommRing R
inst✝⁹ : CharZero R
inst✝⁸ : IsDomain R
inst✝⁷ : AddCommGroup M
inst✝⁶ : Module R M
inst✝⁵ : AddCommGroup N
inst✝⁴ : Module R N
P : RootPairing ι R M N
inst✝³ : Finite ι
inst✝² : P.IsCrystallographic
b : P.Base
i j k l m : ι
inst✝¹ : P.IsReduced
inst✝ : P.IsIrreducible
hi : i ∈ b.support
hj : j ∈ b.support
hij : i ≠ j
this✝ : Module.IsReflexive R M
this : IsAddTorsionFree M
contra : P.IsG2
n : ι
x y : ℤ
A : ℤ := P.pairingIn ℤ j i
hki : P.root k ≠ P.root i
hki' : P.root k ≠ -P.root i
hli : P.root l ≠ P.root i
hli' : P.root l ≠ -P.root i
hmi : P.root m ≠ P.root i
hmi' : P.root m ≠ -P.root i
hni : P.root n ≠ P.root i
hni' : P.root n ≠ -P.root i
h₀ : 2 * x + 3 * y = -3 ∨ 2 * x + 3 * y = -1 ∨ 2 * x + 3 * y = 0 ∨ 2 * x + 3 * y = 1 ∨ 2 * x + 3 * y = 3
h₁ :
  2 * (x + 1) + 3 * y = -3 ∨
    2 * (x + 1) + 3 * y = -1 ∨ 2 * (x + 1) + 3 * y = 0 ∨ 2 * (x + 1) + 3 * y = 1 ∨ 2 * (x + 1) + 3 * y = 3
h₂ :
  2 * x + 3 * (y - 1) = -3 ∨
    2 * x + 3 * (y - 1) = -1 ∨ 2 * x + 3 * (y - 1) = 0 ∨ 2 * x + 3 * (y - 1) = 1 ∨ 2 * x + 3 * (y - 1) = 3
h₃ :
  2 * (x + 1) + 3 * (y - 1) = -3 ∨
    2 * (x + 1) + 3 * (y - 1) = -1 ∨
      2 * (x + 1) + 3 * (y - 1) = 0 ∨ 2 * (x + 1) + 3 * (y - 1) = 1 ∨ 2 * (x + 1) + 3 * (y - 1) = 3
hA : A = 3
⊢ False