我在我的消息栏中期待一些东西,但我没有看到它
示例脚本:
Fixpoint add_left (n m : nat) : nat :=
match n with
| O => m
| S p => S (add_left p m)
end.
Lemma demo_1 :
forall (n : nat),
add_left n O = n.
Proof.
intros. (* goal : add_left n O = n *)
let add_left_red := eval red in add_left in (* reduce add_left, but leave goal alone *)
idtac add_left_red. (* print the result *)
(* Print eval. gives error *)
Print red.
Print add_left_red.
admit.
Abort.
在 Jscoq 我看到(https://coq.vercel.app/scratchpad.html):
(fix add_left (n m : nat) {struct n} : nat :=
match n with
| 0 => m
| S p => S (add_left p m)
end)
在 vscode 我什么也没看到。
叉: