aboutsummaryrefslogtreecommitdiff
path: root/doc/plugin_tutorial/tuto3/src/g_tuto3.mlg
diff options
context:
space:
mode:
authorTalia Ringer2019-06-03 09:41:22 -0400
committerTalia Ringer2019-06-03 09:41:22 -0400
commita3fbe76736340e964917e6fcb9899735adb75eaf (patch)
tree1d07d6c1ac24410ae7d220710b3ab774ae8ba1bc /doc/plugin_tutorial/tuto3/src/g_tuto3.mlg
parent7032085c809993d6a173e51aec447c02828ae070 (diff)
Update tutorial plugin to use sigma, in keeping with doc recommendations
Diffstat (limited to 'doc/plugin_tutorial/tuto3/src/g_tuto3.mlg')
-rw-r--r--doc/plugin_tutorial/tuto3/src/g_tuto3.mlg8
1 files changed, 4 insertions, 4 deletions
diff --git a/doc/plugin_tutorial/tuto3/src/g_tuto3.mlg b/doc/plugin_tutorial/tuto3/src/g_tuto3.mlg
index f4d9e7fd5b..14b8eb5f07 100644
--- a/doc/plugin_tutorial/tuto3/src/g_tuto3.mlg
+++ b/doc/plugin_tutorial/tuto3/src/g_tuto3.mlg
@@ -14,13 +14,13 @@ open Stdarg
VERNAC COMMAND EXTEND ShowTypeConstruction CLASSIFIED AS QUERY
| [ "Tuto3_1" ] ->
{ let env = Global.env () in
- let evd = Evd.from_env env in
- let evd, s = Evd.new_sort_variable Evd.univ_rigid evd in
+ let sigma = Evd.from_env env in
+ let sigma, s = Evd.new_sort_variable Evd.univ_rigid sigma in
let new_type_2 = EConstr.mkSort s in
- let evd, _ =
+ let sigma, _ =
Typing.type_of (Global.env()) (Evd.from_env (Global.env())) new_type_2 in
Feedback.msg_notice
- (Printer.pr_econstr_env env evd new_type_2) }
+ (Printer.pr_econstr_env env sigma new_type_2) }
END
VERNAC COMMAND EXTEND ShowOneConstruction CLASSIFIED AS QUERY