type AdtLisrt<'A>(head:Node<'A>) =

  member s.DeleteHead () =
    match list with
    |Empty-> false
    |Cons(value, next) -> list<-next; true
[<EntryPoint>]
let main argv =
  let mutable list = new AdtList<int>(1) :> SList<int>
  list.DeleteHead //вот здесь и ругается... Если я туплю, прошу  прошения!
  0