File tree Expand file tree Collapse file tree 1 file changed +16
-42
lines changed
Expand file tree Collapse file tree 1 file changed +16
-42
lines changed Original file line number Diff line number Diff line change @@ -23,27 +23,14 @@ info: equations:
2323#print equations replace
2424
2525/--
26- error: Failed to realize constant replace.eq_def:
27- failed to generate unfold theorem for `replace`
28- case h_1
29- f : Nat → Option Nat
30- t : Nat
31- x : Option Nat
32- u : Nat
33- heq✝ : f t = some u
34- ⊢ replace f t = u
35- ---
36- error: Failed to realize constant replace.eq_def:
37- failed to generate unfold theorem for `replace`
38- case h_1
39- f : Nat → Option Nat
40- t : Nat
41- x : Option Nat
42- u : Nat
43- heq✝ : f t = some u
44- ⊢ replace f t = u
45- ---
46- error: Unknown identifier `replace.eq_def`
26+ info: replace.eq_def (f : Nat → Option Nat) (t : Nat) :
27+ replace f t =
28+ match f t with
29+ | some u => u
30+ | none =>
31+ match t with
32+ | Nat.zero => Nat.zero
33+ | t'.succ => replace f t'
4734-/
4835#guard_msgs in
4936#check replace.eq_def
@@ -73,27 +60,14 @@ info: equations:
7360#print equations replace2
7461
7562/--
76- error: Failed to realize constant replace2.eq_def:
77- failed to generate unfold theorem for `replace2`
78- case h_1
79- f : Nat → Option Nat
80- t1 t2 : Nat
81- x : Option Nat
82- u : Nat
83- heq✝ : f t1 = some u
84- ⊢ replace2 f t1 t2 = u
85- ---
86- error: Failed to realize constant replace2.eq_def:
87- failed to generate unfold theorem for `replace2`
88- case h_1
89- f : Nat → Option Nat
90- t1 t2 : Nat
91- x : Option Nat
92- u : Nat
93- heq✝ : f t1 = some u
94- ⊢ replace2 f t1 t2 = u
95- ---
96- error: Unknown identifier `replace2.eq_def`
63+ info: replace2.eq_def (f : Nat → Option Nat) (t1 t2 : Nat) :
64+ replace2 f t1 t2 =
65+ match f t1 with
66+ | some u => u
67+ | none =>
68+ match t2 with
69+ | Nat.zero => Nat.zero
70+ | t'.succ => replace2 f t1 t'
9771-/
9872#guard_msgs in
9973#check replace2.eq_def
You can’t perform that action at this time.
0 commit comments