([],ncic_name_of_ident name, decr_idx, cic_type, cic_body))
defs
in
- let attrs = `Provided, new_flavour_of_flavour flavour in
+ let attrs = `Provided, new_flavour_of_flavour flavour, `Regular in
NCic.Fixpoint (inductive,inductiveFuns,attrs)
| bo ->
let bo =