constructor
⊢ (∀ (a b c : ↑VeryDiv), (↑a ∣ ↑b → ↑b ∣ ↑c → ↑a ∣ ↑c) ∧ (↑a ∣ ↑b → ↑b ∣ ↑a → a = b)) ∧
    ∀ (a b : ↑VeryDiv), ↑a ∣ ↑b ∨ ↑b ∣ ↑a
case left

⊢ ∀ (a b c : ↑VeryDiv), (↑a ∣ ↑b → ↑b ∣ ↑c → ↑a ∣ ↑c) ∧ (↑a ∣ ↑b → ↑b ∣ ↑a → a = b)

case right

⊢ ∀ (a b : ↑VeryDiv), ↑a ∣ ↑b ∨ ↑b ∣ ↑a