the next generation of the in-browser educational proof assistant
call seen
+11
-6
+11
-6
src/HOTerm.res
+11
-6
src/HOTerm.res
···
483
483
}
484
484
| VarS({idx}) => Var({idx: idx})
485
485
| SchematicS({schematic}) =>
486
-
Schematic({
487
-
schematic,
488
-
allowed: env
489
-
->Map.values
490
-
->Core__Iterator.toArray,
491
-
})
486
+
switch gen {
487
+
| Some(g) => {
488
+
seen(g, schematic)
489
+
let allowed =
490
+
env
491
+
->Map.values
492
+
->Core__Iterator.toArray
493
+
Schematic({schematic, allowed})
494
+
}
495
+
| None => raise(ParseError("Schematics not allowed here"))
496
+
}
492
497
| LambdaS({name, body}) =>
493
498
Lam({
494
499
name,