anchor.diff:          let wZ = translateGView ctx funcDecls w
           let gZ = translateVFunc ctx funcDecls g
   
  -        (ctx.MkImplies (ctx.MkAnd [| cZ ; wZ |], gZ),
  -         ctx.MkSymbol name :> Z3.Symbol)
  +        (name, ctx.MkImplies (ctx.MkAnd [| cZ ; wZ |], gZ))
   
       /// <summary>
       ///     Constructs muZ3 rules and goals for a model.
  
positive.code:         |> List.unzip
          (* The LHS contains a list of tuples that need to make a map.
             The RHS needs to be filtered for indefinite constraints. *)
          |> pairMap Map.ofSeq Seq.concat
  
      (*
       * Views
  
negative.code:     ///     to use to start queries.
      /// </returns>
      let translate ctx { Globals = svars ; ViewDefs = ds ; Axioms = xs } =
          let funcDecls, assertions = translateViewDefs ctx ds
          let vrules = translateVariables ctx funcDecls svars
          let trules = xs |> Map.toSeq |> Seq.map (translateTerm ctx funcDecls svars)
  
          { Assertions = Array.ofSeq assertions
            Rules = Seq.append vrules trules |> Map.ofSeq
            FuncDecls = funcDecls }
  
  
      /// <summary>
  