Changeset 2649 for extracted/division.ml


Ignore:
Timestamp:
Feb 7, 2013, 10:43:49 PM (8 years ago)
Author:
sacerdot
Message:

...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • extracted/division.ml

    r2601 r2649  
    2828let rec natp_rect_Type4 h_pzero h_ppos = function
    2929| Pzero -> h_pzero
    30 | Ppos x_3822 -> h_ppos x_3822
     30| Ppos x_4693 -> h_ppos x_4693
    3131
    3232(** val natp_rect_Type5 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
    3333let rec natp_rect_Type5 h_pzero h_ppos = function
    3434| Pzero -> h_pzero
    35 | Ppos x_3826 -> h_ppos x_3826
     35| Ppos x_4697 -> h_ppos x_4697
    3636
    3737(** val natp_rect_Type3 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
    3838let rec natp_rect_Type3 h_pzero h_ppos = function
    3939| Pzero -> h_pzero
    40 | Ppos x_3830 -> h_ppos x_3830
     40| Ppos x_4701 -> h_ppos x_4701
    4141
    4242(** val natp_rect_Type2 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
    4343let rec natp_rect_Type2 h_pzero h_ppos = function
    4444| Pzero -> h_pzero
    45 | Ppos x_3834 -> h_ppos x_3834
     45| Ppos x_4705 -> h_ppos x_4705
    4646
    4747(** val natp_rect_Type1 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
    4848let rec natp_rect_Type1 h_pzero h_ppos = function
    4949| Pzero -> h_pzero
    50 | Ppos x_3838 -> h_ppos x_3838
     50| Ppos x_4709 -> h_ppos x_4709
    5151
    5252(** val natp_rect_Type0 : 'a1 -> (Positive.pos -> 'a1) -> natp -> 'a1 **)
    5353let rec natp_rect_Type0 h_pzero h_ppos = function
    5454| Pzero -> h_pzero
    55 | Ppos x_3842 -> h_ppos x_3842
     55| Ppos x_4713 -> h_ppos x_4713
    5656
    5757(** val natp_inv_rect_Type4 :
Note: See TracChangeset for help on using the changeset viewer.