strict and hidden options

server/leanserver/GameServer/Commands.lean

@@ -61,9 +61,24 @@ partial def reprintCore : Syntax → Option Format
 def reprint (stx : Syntax) : Format :=
   reprintCore stx |>.getD ""
 
+
+syntax hintArg := " (" (&"strict" <|> &"hidden") " := " withoutPosition(term) ")"
+
 /-- A tactic that can be used inside `Statement`s to indicate in which proof states players should
-see hints. -/
+see hints. The tactic does not affect the goal state. -/
-elab "Hint" msg:interpolatedStr(term) : tactic => do
+elab "Hint" args:hintArg* msg:interpolatedStr(term) : tactic => do
+
+  let mut strict := false
+  let mut hidden := false
+
+  for arg in args do
+    match arg with
+    | `(hintArg| (strict := true)) => strict := true
+    | `(hintArg| (strict := false)) => strict := false
+    | `(hintArg| (hidden := true)) => hidden := true
+    | `(hintArg| (hidden := false)) => hidden := false
+    | _ => throwUnsupportedSyntax
+
   let goal ← Tactic.getMainGoal
   goal.withContext do
     -- We construct an expression that can produce the hint text. The difficulty is that we
@@ -77,11 +92,15 @@ elab "Hint" msg:interpolatedStr(term) : tactic => do
       for i in [:decls.size] do
         text ← `(let $(mkIdent decls[i]!.userName) := $(mkIdent varsName)[$(quote i)]!; $text)
       return ← mkLambdaFVars #[vars] $ ← elabTermAndSynthesize text none
-    let mvar ← mkFreshExprMVar none
+    let textmvar ← mkFreshExprMVar none
-    guard $ ← isDefEq mvar text -- Store the text in a mvar.
+    guard $ ← isDefEq textmvar text -- Store the text in a mvar.
     -- The information about the hint is logged as a message using `logInfo` to transfer it to the
     -- `Statement` command defined below:
-    logInfo (.tagged `Hint (.compose (.ofGoal mvar.mvarId!) (.ofGoal goal)))
+    logInfo $
+      .tagged `Hint $
+      .nest (if strict then 1 else 0) $
+      .nest (if hidden then 1 else 0) $
+      .compose (.ofGoal textmvar.mvarId!) (.ofGoal goal)
 
 /-- Define the statement of the current level.
 
@@ -109,12 +128,19 @@ elab "Statement" statementName:ident ? descr:str sig:declSig val:declVal : comma
   let mut hints := #[]
   let mut nonHintMsgs := #[]
   for msg in msgs.msgs do
-    if let (MessageData.withNamingContext _ (MessageData.withContext ctx
+    -- Look for messages produced by the `Hint` tactic. They are used to pass information about the
-        (.tagged `Hint (.compose (.ofGoal text) (.ofGoal goal))))) := msg.data then
+    -- intermediate goal state
+    if let MessageData.withNamingContext _ $ MessageData.withContext ctx $
+        .tagged `Hint $
+        .nest strict $
+        .nest hidden $
+        .compose (.ofGoal text) (.ofGoal goal) := msg.data then
       let hint ← liftTermElabM $ withMCtx ctx.mctx $ withLCtx ctx.lctx #[] $ withEnv ctx.env do
         return {
           goal := ← abstractCtx goal
           text := ← instantiateMVars (mkMVar text)
+          strict := strict == 1
+          hidden := hidden == 1
         }
       hints := hints.push hint
     else

server/leanserver/GameServer/EnvExtensions.lean

@@ -20,8 +20,10 @@ structure GoalHintEntry where
   goal : AbstractCtxResult
   /-- Text of the hint as an expression of type `Array Expr → MessageData` -/
   text : Expr
-  /--  If true, then hint should be hidden by default -/
+  /--  If true, then hint should be hidden and only be shown on player's request -/
   hidden : Bool := false
+  /--  If true, then the goal must contain only the assumptions specified in `goal` and no others -/
+  strict : Bool := false
 
 instance : Repr GoalHintEntry := {
   reprPrec := fun a n => reprPrec a.text n

server/leanserver/GameServer/RpcHandlers.lean

@@ -123,7 +123,7 @@ def findHints (goal : MVarId) (doc : FileWorker.EditableDocument) : MetaM (Array
         if let some fvarBij := matchExpr (← instantiateMVars $ hintGoal) (← instantiateMVars $ ← inferType $ mkMVar goal)
         then
           let lctx := (← goal.getDecl).lctx
-          if ← matchDecls hintFVars lctx.getFVars (strict := true) (initBij := fvarBij)
+          if ← matchDecls hintFVars lctx.getFVars (strict := hint.strict) (initBij := fvarBij)
           then
             let text := (← evalHintMessage hint.text) hintFVars
             let ctx := {env := ← getEnv, mctx := ← getMCtx, lctx := ← getLCtx, opts := {}}

server/testgame/TestGame/Levels/Function/L11_Inverse.lean

@@ -21,13 +21,13 @@ open Function
 
 Statement bijective_iff_has_inverse "" {A B : Type} (f : A → B) :
     Bijective f ↔ ∃ g, LeftInverse g f ∧ RightInverse g f := by
-  Hint "constructor"
+  Hint (hidden := true) "constructor"
   constructor
   Hint "intro h" -- does not show
   intro h
   Hint "rcases h with ⟨h₁, h₂⟩" -- shows too late: 1, 2 after
   rcases h with ⟨h₁, h₂⟩
-  Hint "let g := fun x => (h₂ x).choose" -- shows correct + 1 after
+  Hint (strict := true) "let g := fun x => (h₂ x).choose" -- shows correct + 1 after
   let g := fun x => (h₂ x).choose
   Hint "use g"
   use g
@@ -53,7 +53,7 @@ Statement bijective_iff_has_inverse "" {A B : Type} (f : A → B) :
   constructor
   Hint "intro a b hab"
   intro a b hab
-  Hint "have h : g (f a) = g (f b)"
+  Hint (strict := true) "have h : g (f a) = g (f b)"
   have h : g (f a) = g (f b)
   Hint "apply congrArg"
   apply congrArg