tell application "Finder"
    set my_selection to (target of front Finder window)
    set my_name to name of my_selection
    set volume_list to paragraphs of (do shell script "hdiutil info | grep ^/dev/disk | grep -o '/Volumes/.*'")
    set source_list to paragraphs of (do shell script "hdiutil info | grep ^image'-'alias | grep -o '/.*'")
    set match_found to false
    repeat with v from 1 to (count volume_list)
        if "/Volumes/" & my_name = item v of volume_list then
            set match_found to true
            exit repeat
        end if
    end repeat
    if match_found is not equal to true then
        display dialog ¬
            "The selected volume does not appear to be a Disk Image." with title ¬
            "Could not find Disk Image" with icon stop ¬
            buttons ["OK"] default button 1
        return
    else
        set my_source to POSIX file (item v of source_list) as alias
        eject my_name
        move my_source to the trash
    end if
end tell