diff options
| author | msozeau | 2009-09-02 20:46:09 +0000 |
|---|---|---|
| committer | msozeau | 2009-09-02 20:46:09 +0000 |
| commit | 2015ca9f06f02f4a22653600dec676fc68dd83f7 (patch) | |
| tree | d21b87e4d5c7be12907780bc1efac6ebc66c74f6 /plugins | |
| parent | 07bd9c28f37b9ec390e5e3dcacdfd8183056be88 (diff) | |
Stop unnecessary use of lazy values for constraints, simplifying
setoid_rewrite's code. Cleanup in vernacexpr.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12303 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/setoid_ring/newring.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4 index 14fd9192e9..6d1ed511b7 100644 --- a/plugins/setoid_ring/newring.ml4 +++ b/plugins/setoid_ring/newring.ml4 @@ -533,7 +533,7 @@ let ring_equality (r,add,mul,opp,req) = (setoid,op_morph) | _ -> let setoid = setoid_of_relation (Global.env ()) r req in - let signature = [Some (r,req);Some (r,req)],Some(Lazy.lazy_from_val (r,req)) in + let signature = [Some (r,req);Some (r,req)],Some(r,req) in let add_m, add_m_lem = try Rewrite.default_morphism signature add with Not_found -> @@ -546,7 +546,7 @@ let ring_equality (r,add,mul,opp,req) = match opp with | Some opp -> (let opp_m,opp_m_lem = - try Rewrite.default_morphism ([Some(r,req)],Some(Lazy.lazy_from_val (r,req))) opp + try Rewrite.default_morphism ([Some(r,req)],Some(r,req)) opp with Not_found -> error "ring opposite should be declared as a morphism" in let op_morph = @@ -1035,7 +1035,7 @@ let field_equality r inv req = mkApp((Coqlib.build_coq_eq_data()).congr,[|r;r;inv|]) | _ -> let _setoid = setoid_of_relation (Global.env ()) r req in - let signature = [Some (r,req)],Some(Lazy.lazy_from_val (r,req)) in + let signature = [Some (r,req)],Some(r,req) in let inv_m, inv_m_lem = try Rewrite.default_morphism signature inv with Not_found -> |