1718ca21cd
This PR deprecates `.toCtorIdx` for the more naturally named `.ctorIdx` (and updates the standard library).
56 lines
1.5 KiB
Text
56 lines
1.5 KiB
Text
module
|
||
|
||
inductive Vec (α : Type u) : Nat → Type u
|
||
| nil : Vec α 0
|
||
| cons : α → {n : Nat} → Vec α n → Vec α (n+1)
|
||
deriving DecidableEq
|
||
|
||
inductive Test (α : Type)
|
||
| mk₀
|
||
| mk₁ : (n : Nat) → (α × α) → List α → Vec α n → Test α
|
||
| mk₂ : Test α → α → Test α
|
||
deriving DecidableEq
|
||
|
||
def t1 [DecidableEq α] : DecidableEq (Vec α n) :=
|
||
inferInstance
|
||
|
||
def t2 [DecidableEq α] : DecidableEq (Test α) :=
|
||
inferInstance
|
||
|
||
/-! Public structures should yield public instances independent of `public section`. -/
|
||
|
||
/--
|
||
trace: [Elab.Deriving.decEq] ⏎
|
||
public instance : DecidableEq✝ PubEnum✝ := fun x✝ y✝ =>
|
||
if h✝ : x.ctorIdx✝ = y.ctorIdx✝ then
|
||
isTrue✝
|
||
(by
|
||
first
|
||
| have aux✝ := congrArg✝ PubEnum.ofNat h✝; rw [PubEnum.ofNat_ctorIdx, PubEnum.ofNat_ctorIdx] at aux✝;
|
||
assumption
|
||
| rfl)
|
||
else isFalse✝ fun h✝ => by subst h✝; contradiction
|
||
-/
|
||
#guard_msgs in
|
||
set_option trace.Elab.Deriving.decEq true in
|
||
public inductive PubEnum where
|
||
| a | b
|
||
deriving DecidableEq
|
||
|
||
public inductive PubInd where
|
||
| a (n : Nat) | b
|
||
deriving DecidableEq
|
||
|
||
/-- info: Decidable.rec (fun h => false) (fun h => true) (decEqPubInd✝ PubInd.b PubInd.b) -/
|
||
#guard_msgs in
|
||
#with_exporting
|
||
#reduce decide (PubInd.b = PubInd.b)
|
||
|
||
public inductive PubExpInd where
|
||
| a (n : Nat) | b
|
||
deriving @[expose] DecidableEq
|
||
|
||
/-- info: true -/
|
||
#guard_msgs in
|
||
#with_exporting
|
||
#reduce decide (PubExpInd.b = PubExpInd.b)
|