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:             | "monitor" -> true
              | _ -> false
  
          static member internal evalExtrinsic fnName originOpt exprs world =
              match fnName with
              | "v2" ->
                  match World.evalManyInternal exprs world with
  
negative.code:                     | Some propertyValue ->
                          match World.trySetSimulantProperty propertyName (propertyValue, propertyType) simulant world with
                          | (true, world) -> (Unit, world)
                          | (false, world) -> (Violation (["InvalidProperty"; "Set"], "Property value could not be set.", originOpt), world)
                      | None -> (Violation (["InvalidPropertyValue"; "Set"], "Property value could not be exported into Simulant property.", originOpt), world)
                  | None -> (Violation (["InvalidProperty"; "Set"], "Property value could not be set.", originOpt), world)
              | Left error -> error
  
          static member evalMonitor5 subscription (eventAddress : obj Address) subscriber world =
  