feat: Add contr_contr theorem

This commit is contained in:
jstoobysmith 2024-10-19 08:33:49 +00:00
parent 0bbc3f4019
commit 90dd337aab
5 changed files with 257 additions and 154 deletions

View file

@ -204,7 +204,7 @@ lemma extractTwo_finExtractTwo_succ {n : } (i : Fin n.succ.succ.succ) (j : F
rw [succsAbove_predAboveI, succsAbove_predAboveI]
exact hy
simp
rw [predAbove_eq_iff]
rw [predAboveI_eq_iff]
simp [y]
erw [← Equiv.symm_apply_eq ]
have h0 : (Hom.toEquiv σ).symm (i.succAbove j) =