(* Constructions with depth *************************************************)
lemma depth_structure (p):
- â\9d\98pâ\9d\98 = â\9d\98â\8a\97pâ\9d\98.
+ â\99p = â\99â\8a\97p.
#p elim p -p //
* [ #n ] #p #IH //
[ <structure_L_sn <depth_L_sn <depth_L_sn //