@@ -87,7 +87,7 @@ def GeneralizedHeytingAlgebra.copy (c : GeneralizedHeytingAlgebra α)
8787 himp := himp
8888 le_himp_iff _ _ _ := by simp [eq_le, eq_himp, eq_inf]
8989
90- /-- A function to create a provable equal copy of a generalised coheyting algebra
90+ /-- A function to create a provable equal copy of a generalised co-Heyting algebra
9191with possibly different definitional equalities. -/
9292def GeneralizedCoheytingAlgebra.copy (c : GeneralizedCoheytingAlgebra α)
9393 (le : α → α → Prop ) (eq_le : le = (by infer_instance : LE α).le)
@@ -121,7 +121,7 @@ def HeytingAlgebra.copy (c : HeytingAlgebra α)
121121 compl := compl
122122 himp_bot := by simp [eq_le, eq_himp, eq_bot, eq_compl]
123123
124- /-- A function to create a provable equal copy of a coheyting algebra
124+ /-- A function to create a provable equal copy of a co-Heyting algebra
125125with possibly different definitional equalities. -/
126126def CoheytingAlgebra.copy (c : CoheytingAlgebra α)
127127 (le : α → α → Prop ) (eq_le : le = (by infer_instance : LE α).le)
@@ -140,7 +140,7 @@ def CoheytingAlgebra.copy (c : CoheytingAlgebra α)
140140 hnot := hnot
141141 top_sdiff := by simp [eq_le, eq_sdiff, eq_top, eq_hnot]
142142
143- /-- A function to create a provable equal copy of a biheyting algebra
143+ /-- A function to create a provable equal copy of a bi-Heyting algebra
144144with possibly different definitional equalities. -/
145145def BiheytingAlgebra.copy (c : BiheytingAlgebra α)
146146 (le : α → α → Prop ) (eq_le : le = (by infer_instance : LE α).le)
0 commit comments