DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor: Some golfing

Browse source
This commit is contained in:
jstoobysmith 2024-10-19 10:57:09 +00:00
parent ae7f8dea1e
commit 2cb219773e
7 changed files with 12 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

4
HepLean/Mathematics/Fin.lean
View file

@ -237,10 +237,6 @@ lemma finExtractOne_symm_inr_apply {n : ℕ} (i : Fin n.succ) (x : Fin n) :
@[simp]
lemma finExtractOne_symm_inl_apply {n : ℕ} (i : Fin n.succ) :
(finExtractOne i).symm (Sum.inl 0) = i := by
simp only [Nat.succ_eq_add_one, finExtractOne, Fin.isValue, Equiv.symm_trans_apply, finCongr_symm,
Equiv.symm_symm, Equiv.sumCongr_symm, Equiv.refl_symm, Equiv.sumCongr_apply, Equiv.coe_refl,
Sum.map_inl, id_eq, Equiv.sumAssoc_symm_apply_inl, Equiv.sumComm_symm, Equiv.sumComm_apply,
Sum.swap_inl, finSumFinEquiv_apply_right, finSumFinEquiv_apply_left, finCongr_apply]
rfl
/-- Given an equivalence `Fin n.succ.succ ≃ Fin n.succ.succ`, and an `i : Fin n.succ.succ`,

4
HepLean/Mathematics/PiTensorProduct.lean
View file

@ -269,7 +269,6 @@ lemma elimPureTensor_update_right (p : (i : ι1) → s1 i) (q : (i : ι2) → s2
funext x
match x with
| Sum.inl x =>
simp only [Sum.elim_inl, ne_eq, reduceCtorEq, not_false_eq_true, Function.update_noteq]
rfl
| Sum.inr x =>
change Function.update q y r x = _
@ -277,7 +276,7 @@ lemma elimPureTensor_update_right (p : (i : ι1) → s1 i) (q : (i : ι2) → s2
split_ifs
· rename_i h
subst h
simp_all only
rfl
· rfl
@[simp]
@ -295,7 +294,6 @@ lemma elimPureTensor_update_left (p : (i : ι1) → s1 i) (q : (i : ι2) → s2
rfl
· rfl
| Sum.inr y =>
simp only [Sum.elim_inr, ne_eq, reduceCtorEq, not_false_eq_true, Function.update_noteq]
rfl
end