fix: reintroduce basic definition lemmas

Closes: #155

DocGen4/Process/DefinitionInfo.lean

@@ -19,6 +19,14 @@ partial def stripArgs (e : Expr) : Expr :=
     stripArgs (Expr.instantiate1 body (mkFVar ⟨name⟩))
   | _ => e
 
+def valueToEq (v : DefinitionVal) : MetaM Expr := withLCtx {} {} do
+  withOptions (tactic.hygienic.set . false) do
+    lambdaTelescope v.value fun xs body => do
+      let us := v.levelParams.map mkLevelParam
+      let type ← mkEq (mkAppN (Lean.mkConst v.name us) xs) body
+      let type ← mkForallFVars xs type
+      return type
+
 def processEq (eq : Name) : MetaM CodeWithInfos := do
   let type ← (mkConstWithFreshMVarLevels eq >>= inferType)
   let final := stripArgs type
@@ -30,7 +38,18 @@ def DefinitionInfo.ofDefinitionVal (v : DefinitionVal) : MetaM DefinitionInfo :=
   let isNonComputable := isNoncomputable (← getEnv) v.name
   try
     let eqs? ← getEqnsFor? v.name
-    let equations ← eqs?.mapM (·.mapM processEq)
+    match eqs? with
+    | some eqs =>
+      let equations ← eqs.mapM processEq
+      return {
+        toInfo := info,
+        isUnsafe,
+        hints := v.hints,
+        equations,
+        isNonComputable
+      }
+    | none =>
+      let equations := #[← prettyPrintTerm <| stripArgs (← valueToEq v)]
       return {
         toInfo := info,
         isUnsafe,