feat: Static Wick theorem

2025-01-30 12:45:00 +00:00 · 2025-01-30 12:45:00 +00:00 · 9372410fbc
commit 9372410fbc
parent c421746f4b
7 changed files with 240 additions and 0 deletions
--- a/HepLean/PerturbationTheory/WickContraction/InsertAndContract.lean
+++ b/HepLean/PerturbationTheory/WickContraction/InsertAndContract.lean
@ -304,4 +304,11 @@ lemma insertAndContract_uncontractedList_none_map (φ : 𝓕.States) {φs : List
  conv_rhs => rw [get_eq_insertIdx_succAbove φ φs i]
  rfl

+@[simp]
+lemma insertAndContract_uncontractedList_none_zero (φ : 𝓕.States) {φs : List 𝓕.States}
+    (φsΛ : WickContraction φs.length) :
+    [φsΛ ↩Λ φ 0 none]ᵘᶜ = φ :: [φsΛ]ᵘᶜ := by
+  rw [insertAndContract_uncontractedList_none_map]
+  simp [uncontractedListOrderPos]
+
 end WickContraction