anchor.diff:          /// Output of satisfiability reports for the Z3 terms.
           | Sat of Map<string, Z3.Status>
           /// Output of the MuZ3 translation step only.
  -        | MuTranslate of (Z3.BoolExpr * Z3.Symbol) seq * Map<string, Z3.FuncDecl>
  +        | MuTranslate of MuModel
           /// Output of the MuZ3 proof.
           | MuSat of Map<string, MuSat>
   
  
positive.code:     ///     The <c>ViewDef</c> to process.
      /// </param>
      /// <returns>
      ///     A pair of a pair of the name of the view, the <c>FuncDecl</c>
      ///     produced for the view, and an optional tuple of <c>BoolExpr</c>
      ///     and <c>Symbol</c> producing a rule for the definition.
      /// </returns>
      let translateViewDef (ctx : Z3.Context) ( { View = vs; Def = ex } : ViewDef<DFunc> ) =
          let funcDecl = funcDeclOfDFunc ctx vs
  
negative.code:                      let eparams = List.map (uncurry (mkVarExp Unmarked)) vs.Params
                       let funcApp = applyFunc ctx funcDecl eparams
  
                       ctx.MkIff (boolToZ3 ctx dex, funcApp))
                  ex
  
          (mapEntry, rule)
  
  