89686fcd02
This PR "monomorphizes" the structure `Std.PRange shape α`, replacing it with nine distinct structures `Std.Rcc`, `Std.Rco`, `Std.Rci` etc., one for each possible shape of a range's bounds. This change was necessary because the shape polymorphism is detrimental to attempts of automation. **BREAKING CHANGE:** While range/slice notation itself is unchanged, this essentially breaks the entire remaining (polymorphic) range and slice API except for the dot-notation(`toList`, `iter`, ...). It is not possible to deprecate old declarations that were formulated in a shape-polymorphic way that is not available anymore.
23 lines
604 B
Text
23 lines
604 B
Text
inductive BoundShape where
|
||
| «open» : BoundShape
|
||
| closed : BoundShape
|
||
| unbounded : BoundShape
|
||
|
||
structure RangeShape where
|
||
lower : BoundShape
|
||
upper : BoundShape
|
||
|
||
abbrev Bound (shape : BoundShape) (α : Type u) : Type u :=
|
||
match shape with
|
||
| .open | .closed => α
|
||
| .unbounded => PUnit
|
||
|
||
def U {shape : RangeShape} (b : Bound shape.upper α) : Unit := sorry
|
||
|
||
structure T (l : α) : Type u where
|
||
|
||
def mysorry : α := sorry -- instead of `mysorry`, we could also use `sorry`.
|
||
|
||
example (inv : (T (U (shape := ⟨.closed, .closed⟩) 1)) → Prop)
|
||
(h : inv mysorry) : True := by
|
||
grind
|