anchor.diff:                  send_result <| ReadResult.Ok(ExecutableState.Executable) <| new_state
               else
                   send_result <| ReadResult.Ok(ExecutableState.NotExecutable) <| new_state
  -        else
  +        | true, false ->
  +            send_result <| ReadResult.Ok(ExecutableState.Unauthorized) <| result.state
  +        | false, _ ->
               send_result <| ReadResult.Ok(ExecutableState.NotExecutable) <| result.state
   
       | ReadResult.Ok((_, true)) ->
  
positive.code:         (state : PastryState<Repository>) : Result =
      let cmd = AddFromRelation(fromEvent, relations, toEvent)
      let result = send cmd sendFunc state
      if check_if_positive result.status
      then
          let inner (event : Event) : UpdateEventResult =
              EventOk({event with toRelations = Set.add (relations, toEvent) event.toRelations})
          update_inner_event fromEvent inner result.state
      else
          LockConflict(result.state)
  
  /// Adds given relationships (going to given event) to given event and returns the result
  let add_relation_from (fromEvent : EventName) (relations : RelationType)
  
negative.code:                 EventErr(MissingRelation(result.state))
          update_inner_event fromEvent inner result.state
      else
          printfn ">>>>>>>>>>>>> Remove Relation To: Error - %d | %s" result.status result.message
          MissingEvent(result.state)
  
  /// Removes given relation form given event and returns the result
  let remove_relation_from (fromEvent : EventName) (relations : RelationType)
  