Initial commit

PostscriptTest.v

@@ -0,0 +1,68 @@
+Set Warnings "-notation-overridden,-parsing".
+From Stdlib Require Export String.
+From LF Require Import Postscript.
+
+Parameter MISSING: Type.
+
+Module Check.
+
+Ltac check_type A B :=
+    match type of A with
+    | context[MISSING] => idtac "Missing:" A
+    | ?T => first [unify T B; idtac "Type: ok" | idtac "Type: wrong - should be (" B ")"]
+    end.
+
+Ltac print_manual_grade A :=
+    match eval compute in A with
+    | Some (_ ?S ?C) =>
+        idtac "Score:"  S;
+        match eval compute in C with
+          | ""%string => idtac "Comment: None"
+          | _ => idtac "Comment:" C
+        end
+    | None =>
+        idtac "Score: Ungraded";
+        idtac "Comment: None"
+    end.
+
+End Check.
+
+From LF Require Import Postscript.
+Import Check.
+
+Goal True.
+
+idtac " ".
+
+idtac "Max points - standard: 0".
+idtac "Max points - advanced: 0".
+idtac "".
+idtac "Allowed Axioms:".
+idtac "functional_extensionality".
+idtac "FunctionalExtensionality.functional_extensionality_dep".
+idtac "plus_le".
+idtac "le_trans".
+idtac "le_plus_l".
+idtac "add_le_cases".
+idtac "Sn_le_Sm__n_le_m".
+idtac "O_le_n".
+idtac "".
+idtac "".
+idtac "********** Summary **********".
+idtac "".
+idtac "Below is a summary of the automatically graded exercises that are incomplete.".
+idtac "".
+idtac "The output for each exercise can be any of the following:".
+idtac "  - 'Closed under the global context', if it is complete".
+idtac "  - 'MANUAL', if it is manually graded".
+idtac "  - A list of pending axioms, containing unproven assumptions. In this case".
+idtac "    the exercise is considered complete, if the axioms are all allowed.".
+idtac "".
+idtac "********** Standard **********".
+idtac "".
+idtac "********** Advanced **********".
+Abort.
+
+(* 2026-01-07 13:18 *)
+
+(* 2026-01-07 13:18 *)