get a parameter regardless of record type?

error.txt

food.fs(25,25): error FS0001: This expression was expected to have type
    fruit    
but here has type
    vegie    

food.hs

type vegie = {
    Seeds: int
    Name: string
}

type fruit = {
    Seeds: int
    Name: string
    Color: string
}

let countSeeds item = item.Seeds

let apple : fruit = {
    Seeds = 8
    Name = "Apple"
    Color = "Red"
}

let pepper : vegie = {
    Seeds = 1024
    Name = "Green Bell Pepper"
}

printf "%A" (countSeeds pepper)