Skip to content

filter split golf branch high to drop statement-deleting files#5

Open
Thmoas-Guan wants to merge 3 commits into
yuanyi-350:masterfrom
LehengChen:review/categorytheory-golf-v1-high
Open

filter split golf branch high to drop statement-deleting files#5
Thmoas-Guan wants to merge 3 commits into
yuanyi-350:masterfrom
LehengChen:review/categorytheory-golf-v1-high

Conversation

@Thmoas-Guan
Copy link
Copy Markdown
Collaborator

base: 0915ed3
kept_files: 131
removed_files: 22
rule: drop files whose patch deletes top-level def/lemma/theorem/instance/abbrev/class/structure declarations


Open in Gitpod

yuanyi-350 and others added 3 commits April 13, 2026 10:18
base: 0915ed3
kept_files: 131
removed_files: 22
rule: drop files whose patch deletes top-level def/lemma/theorem/instance/abbrev/class/structure declarations
congr 1
simp [Under.map, Comma.mapLeft]
rfl
simp [precompEnrichedHom']
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This should be simp only, so actually no golf is done

cases Z
rcases f with ⟨⟨⟨⟩⟩⟩
exact g
comp g f := ULift.up (PLift.up (g.down.down.trans f.down.down))
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Should be more careful when editing definitions.

Comment on lines +334 to +335
map₂_comp := by intro _ _ _ _ _ η θ; exact Quot.induction_on₂ η θ fun _ _ => rfl
map₂_whisker_left := by intro _ _ _ _ _ _ η; exact Quot.induction_on η fun _ => by cat_disch
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is a restate of the original proof, still need examination

calc
_ = h ◁ (i.inv ≫ i.hom).right := by simp [-Iso.inv_hom_id]
_ = 𝟙 _ := by simp [Iso.inv_hom_id])
(whiskering h).mapIso i
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Is this properly tested?

Comment on lines +57 to +58
ext; simp [mapComp', F.mapComp_id_left_hom f, Strict.leftUnitor_eqToIso,
PrelaxFunctor.map₂_eqToHom]
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Modulo use of ; it looks like an improvement, similar above

simp only [O, H, Finset.mem_biUnion, Finset.mem_univ, Finset.mem_image,
PSigma.mk.injEq, true_and, exists_and_left]
exact ⟨j, rfl, j', g, by simp⟩
aesop (add simp [H])
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Whether aesop is correctly used here needs discussion

Comment on lines +339 to +340
Final F :=
(isConnected_iff_final_of_unique F).mp (IsFiltered.isConnected C)
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

looks good, similar below

refine FilteredClosureSmall.InductiveStep.max ?_ ?_ x y
all_goals apply Nat.lt_succ_of_le
exacts [Nat.le_max_left _ _, Nat.le_max_right _ _]
exact FilteredClosureSmall.InductiveStep.max (by omega) (by omega) x y
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is somehow really violating readability? This needs some further examination

slice_lhs 2 3 => rw [NatTrans.naturality]
slice_lhs 1 2 => rw [← NatTrans.comp_app, NatTrans.naturality, NatTrans.comp_app]
rw [Category.assoc] }
naturality := fun X Y f => by cat_disch }
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I remember in this case cat_disch is prefered, so OK here

symm
apply hc.uniq (c.extend _)
simp
have : g₁.right = g₂.right := hc.hom_ext this
Copy link
Copy Markdown
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is definitely improvement

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

3 participants