ocaml - OCaml でネストされた let 定義を理解する

Question

let quad x = let add x y = x + y in
             let double x = add x x in
             double x + double x;;

入力の 4 倍を計算する方法を理解できません。のような表現が分かります。

let x = 1 in let x = x+2 in let x = x+3 in x

として評価します

(x -> x = x+2 in let x = x+3 in x) 1