anchor.diff:                  (subscriber :> Participant)
                   world
   
  -        static member evalMonitor6 fnName originOpt evaledArg evaledArg2 world =
  +        static member evalMonitor6 fnName evaledArg evaledArg2 originOpt world =
               match evaledArg with
               | Binding _
               | Fun _ ->
  
positive.code:                         let address = Relation.resolve context.SimulantAddress relation
                          match World.tryDeriveSimulant address with
                          | Some simulant -> Right (simulant, world)
                          | None -> Left (Violation (["InvalidPropertyRelation"], "Relation must have 0 to 3 names.", originOpt), world)
                      | (Violation _, _) as error -> Left error
                      | (_, world) -> Left (Violation (["InvalidPropertyRelation"], "Relation must be either a String or Keyword.", originOpt), world)
                  | None -> Right (context, world)
              match simulantAndEnvEir with
              | Right (simulant, world) ->
  
negative.code:                 | Some simulant -> (Bool (World.getSimulantExists simulant world), world)
                  | None -> (Bool false, world)
              | Violation _ as error -> (error, world)
              | _ -> (Violation (["InvalidArgumentType"; "SimulantExists"], "Function '" + fnName + "' requires 1 Relation argument.", originOpt), world)
  
          static member internal evalGet propertyName relationExprOpt originOpt world =
              let context = World.getScriptContext world
  