anchor.diff:  /// </summary>
   module Pretty =            
       open Starling.Core.Pretty
  +    open Starling.Core.Expr.Pretty
       open Starling.Core.Model.Pretty
       open Starling.Core.Instantiate.Pretty
       open Starling.Core.Z3.Pretty
  
positive.code:             |> Map.toList
              |> List.map (uncurry (flip (mkVarExp Unmarked)))
  
          let head = 
              translateVFunc ctx funcDecls { Name = "emp" ; Params = vpars }
              
          (* MuZ3 doesn't like 'true' appearing in the head of a rule, so
             don't emit if emp resolved to this. *)
          if head.IsTrue
          then Seq.empty
          else
              // TODO(CaptainHayashi): actually get these initialisations from
              // somewhere.
              let body =
                  vpars
                  |> List.map
                         (fun v -> BEq (v,
                                        match v with
                                        | AExpr _ -> AExpr (AInt 0L)
                                        | BExpr _ -> BExpr (BFalse)))
                  |> mkAnd
                  |> boolToZ3 ctx
  
              Seq.singleton ("init", ctx.MkImplies (body, head))
  
  
      (*
  
negative.code:         { /// <summary>
            ///     List of definite viewdefs, as (view, def) pairs, to check.
            /// </summary>
            Definites : (VFunc * BoolExpr) list
            /// <summary>
            ///     Map of (view name, FuncDecl) bindings.
            /// </summary>
  