(* This is how we compute the meet by division by powers of 2 *)

Lemma nat_meet_euclid_2 r1 d1 r2 d2 :
r1 < 2
-> r2 < 2
-> (r1+2*d1) ⇣ (r2+2*d2)
= (r1⇣r2) + 2*(d1⇣d2).