refactor: More simps
This commit is contained in:
parent
1651b265e7
commit
4a396783ab
17 changed files with 138 additions and 87 deletions
|
@ -24,9 +24,10 @@ namespace One
|
|||
theorem solEqZero (S : (PureU1 1).LinSols) : S = 0 := by
|
||||
apply ACCSystemLinear.LinSols.ext
|
||||
have hLin := pureU1_linear S
|
||||
simp at hLin
|
||||
simp only [succ_eq_add_one, reduceAdd, PureU1_numberCharges, univ_unique, Fin.default_eq_zero,
|
||||
Fin.isValue, sum_singleton] at hLin
|
||||
funext i
|
||||
simp at i
|
||||
simp only [PureU1_numberCharges] at i
|
||||
rw [show i = (0 : Fin 1) from Fin.fin_one_eq_zero i]
|
||||
exact hLin
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue