legacy/oldpacking/KHEJKCI.hl

   1 (* ========================================================================== *)
   2 (* FLYSPECK - BOOK FORMALIZATION                                              *)
   3 (*                                                                            *)
   4 (* Lemma: KHEJKCI                                                        *)
   5 (* Chapter: Packing                                                           *)
   6 (* Author: Thomas C. Hales                                                    *)
   7 (* Date: Feb 14, 2010                                                         *)
   8 (* ========================================================================== *)
   9
  10
  11
  12
  13
  14 module type Khejkci_type = sig
  15   val KHEJKCI_concl: term
  16 end;;
  17
  18
  19
  20 module Khejkci : Khejkci_type = struct
  21
  22  let KHEJKCI_concl = `!V k ul. saturated V /\ packing V /\ vor_list V k ul ==>
  23    ((voronoi_list V ul)   face_of (voronoi_closed V (HD ul)) )`;;
  24
  25 end;;
  26