feat: Property of time-order w.r.t. superCommute

2025-01-29 12:09:02 +00:00 · 2025-01-29 12:09:02 +00:00 · c2d89cc093
commit c2d89cc093
parent a79d0f8fed
8 changed files with 781 additions and 8 deletions
--- a/HepLean/PerturbationTheory/FieldStatistics/Basic.lean
+++ b/HepLean/PerturbationTheory/FieldStatistics/Basic.lean
@ -235,6 +235,10 @@ lemma ofList_map_eq_finset_prod (s : 𝓕 → FieldStatistic) :
    simp only [List.length_cons, List.nodup_cons] at hl
    exact hl.2

+lemma ofList_pair (s : 𝓕 → FieldStatistic) (φ1 φ2 : 𝓕) :
+    ofList s [φ1, φ2] = s φ1 * s φ2 := by
+  rw [ofList_cons_eq_mul, ofList_singleton]
+
 /-!

 ## ofList and take