diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-18 13:52:15 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-18 13:52:15 +0000 |
| commit | 168424263f9c8510a4c51d59a2945babd20880f4 (patch) | |
| tree | 8afc3396e03d0568506470b639d2a2d1ba897fa1 /plugins/funind/functional_principles_types.ml | |
| parent | 020aa7a8e9bca88631e6d7fa68d1ff462f5af25a (diff) | |
declaration_hooks use Ephemeron
Ideally, any component of the global state that is a function or any
other unmarshallable data should be stocked as an ephemeron to make
the state always marshallable.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16893 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/functional_principles_types.ml')
| -rw-r--r-- | plugins/funind/functional_principles_types.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/funind/functional_principles_types.ml b/plugins/funind/functional_principles_types.ml index d11e810e1..58f43ed49 100644 --- a/plugins/funind/functional_principles_types.ml +++ b/plugins/funind/functional_principles_types.ml @@ -329,7 +329,7 @@ let generate_functional_principle id_of_f,Indrec.make_elimination_ident id_of_f (family_of_sort type_sort) in let names = ref [new_princ_name] in - let hook new_principle_type = Some (fun _ _ -> + let hook new_principle_type _ _ = if Option.is_empty sorts then (* let id_of_f = Label.to_id (con_label f) in *) @@ -357,7 +357,7 @@ let generate_functional_principle names := name :: !names in register_with_sort InProp; - register_with_sort InSet) + register_with_sort InSet in let (id,(entry,g_kind,hook)) = build_functional_principle interactive_proof old_princ_type new_sorts funs i @@ -519,7 +519,7 @@ let make_scheme (fas : (constant*glob_sort) list) : Entries.definition_entry lis this_block_funs 0 (prove_princ_for_struct false 0 (Array.of_list funs)) - (fun _ -> None) + (fun _ _ _ -> ()) with e when Errors.noncritical e -> begin begin @@ -593,7 +593,7 @@ let make_scheme (fas : (constant*glob_sort) list) : Entries.definition_entry lis this_block_funs !i (prove_princ_for_struct false !i (Array.of_list funs)) - (fun _ -> None) + (fun _ _ _ -> ()) in const with Found_type i -> |