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:         | MuSat.Unsat ex -> commaSep [ String "unsat" ; printZ3Exp ex ]
          | MuSat.Unknown -> String "?"
      
      
      /// Pretty-prints a response.
      let printResponse mview =
          function
  
negative.code:                 |> mkAnd
                  |> boolToZ3 ctx
  
              Seq.singleton ("init", ctx.MkImplies (body, head))
  
  
      (*
  