9b6a4a7588
This PR fixes a bug in the `LinearOrderPackage.ofOrd` factory. If there is a `LawfulEqOrd` instance available, it should automatically use it instead of requiring the user to provide the `eq_of_compare` argument to the factory. The PR also solves a hygiene-related problem making the factories fail when `Std` is not open.
135 lines
3.9 KiB
Text
135 lines
3.9 KiB
Text
|
||
import Init.Data.Order.PackageFactories
|
||
|
||
variable {α : Type u}
|
||
|
||
opaque X : Type := Unit
|
||
|
||
namespace X
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
opaque instLE : LE X := sorry
|
||
attribute [scoped instance] instLE
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
@[scoped instance] opaque instDecidableLE : DecidableLE X := sorry
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
@[instance] opaque instTotal : Std.Total (α := X) (· ≤ ·) := sorry
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
@[instance] opaque instAntisymm : Std.Antisymm (α := X) (· ≤ ·) := sorry
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
@[instance] opaque instTrans : Trans (α := X) (· ≤ ·) (· ≤ ·) (· ≤ ·) := sorry
|
||
|
||
namespace LinearOrderPackage
|
||
|
||
scoped instance packageOfLE : Std.LinearOrderPackage X := .ofLE X
|
||
|
||
example : instLE = (inferInstanceAs (Std.PreorderPackage X)).toLE := rfl
|
||
example : Std.IsLinearOrder X := inferInstance
|
||
example : Std.LawfulOrderLT X := inferInstance
|
||
example : Std.LawfulOrderOrd X := inferInstance
|
||
example : Std.LawfulOrderMin X := inferInstance
|
||
example : Std.LawfulOrderMax X := inferInstance
|
||
example : Std.LawfulOrderLeftLeaningMin X := inferInstance
|
||
example : Std.LawfulOrderLeftLeaningMax X := inferInstance
|
||
|
||
end LinearOrderPackage
|
||
|
||
namespace LinearPreorderPackage
|
||
|
||
scoped instance packageOfLE : Std.LinearPreorderPackage X := .ofLE X
|
||
|
||
scoped instance instMin : Min X := .leftLeaningOfLE X
|
||
scoped instance instMax : Max X := .leftLeaningOfLE X
|
||
|
||
example : instLE = (inferInstanceAs (Std.LinearPreorderPackage X)).toLE := rfl
|
||
example : Std.IsLinearPreorder X := inferInstance
|
||
example : Std.LawfulOrderLT X := inferInstance
|
||
example : Std.LawfulOrderOrd X := inferInstance
|
||
example : Std.LawfulOrderMin X := inferInstance
|
||
example : Std.LawfulOrderMax X := inferInstance
|
||
example : Std.LawfulOrderLeftLeaningMin X := inferInstance
|
||
example : Std.LawfulOrderLeftLeaningMax X := inferInstance
|
||
|
||
end LinearPreorderPackage
|
||
|
||
end X
|
||
|
||
section
|
||
|
||
def packageWithoutSynthesizableInstances : Std.LinearOrderPackage X := .ofLE X {
|
||
le := X.instLE
|
||
decidableLE := X.instDecidableLE }
|
||
|
||
end
|
||
|
||
section
|
||
|
||
attribute [local instance] X.LinearOrderPackage.packageOfLE
|
||
|
||
def packageWithoutSynthesizableInstances' : Std.LinearOrderPackage X := .ofLE X {
|
||
le := X.instLE
|
||
decidableLE := X.instDecidableLE
|
||
}
|
||
|
||
end
|
||
|
||
/--
|
||
error: could not synthesize default value for field 'lt_iff' of 'Std.Packages.PreorderOfLEArgs' using tactics
|
||
---
|
||
error: Failed to automatically prove that the `LE` and `LT` instances are compatible. Please ensure that a `LawfulOrderLT` instance can be synthesized or manually provide the field `lt_iff`.
|
||
α : Type u
|
||
inst✝² : LE α
|
||
inst✝¹ : DecidableLE α
|
||
inst✝ : LT α
|
||
this✝¹ : LE α := inferInstance
|
||
this✝ : LT α := inferInstance
|
||
⊢ ∀ (a b : α), a < b ↔ a ≤ b ∧ ¬b ≤ a
|
||
-/
|
||
#guard_msgs in
|
||
def packageOfLEOfLT1 [LE α] [DecidableLE α] [LT α] : Std.PreorderPackage α := .ofLE α {
|
||
le_refl := sorry
|
||
le_trans := sorry }
|
||
|
||
def packageOfLEOfLT2 [LE α] [DecidableLE α] [LT α] (h : ∀ a b : α, a < b ↔ a ≤ b ∧ ¬ b ≤ a) :
|
||
Std.PreorderPackage α := .ofLE α {
|
||
lt_iff := h
|
||
le_refl := sorry
|
||
le_trans := sorry }
|
||
|
||
namespace OrdTests
|
||
|
||
section WithoutSynthesizableInstances
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
opaque _root_.X.instOrd : Ord X := sorry
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
opaque _root_.X.instTransOrd : haveI := X.instOrd; Std.TransOrd X := sorry
|
||
|
||
#guard_msgs(error, drop warning) in
|
||
opaque _root_.X.instLawfulEqOrd : haveI := X.instOrd; Std.LawfulEqOrd X := sorry
|
||
|
||
def packageWithoutSynthesizableInstances : Std.LinearOrderPackage X := .ofOrd X {
|
||
ord := X.instOrd
|
||
transOrd := X.instTransOrd
|
||
eq_of_compare := by
|
||
extract_lets
|
||
intro a b
|
||
letI := X.instOrd
|
||
exact X.instLawfulEqOrd.eq_of_compare }
|
||
|
||
end WithoutSynthesizableInstances
|
||
|
||
section WithSynthesizableInstances
|
||
|
||
attribute [scoped instance] X.instOrd X.instTransOrd X.instLawfulEqOrd
|
||
|
||
def packageWithSynthesizableInstances : Std.LinearOrderPackage X := .ofOrd X
|
||
|
||
end WithSynthesizableInstances
|
||
|
||
end OrdTests
|